Sujet Précédent Sujet Suivant

Pb: Se connecter à un .mdb sur le reseau

goumis2002 Messages postés 15 Date d'inscription samedi 20 décembre 2003 Statut Membre Dernière intervention 26 février 2007 - 19 janv. 2005 à 12:15
goumis2002 Messages postés 15 Date d'inscription samedi 20 décembre 2003 Statut Membre Dernière intervention 26 février 2007 - 19 janv. 2005 à 15:09
Salut Tout le monde
Je ne suis pas nouv sur ce site , je m'y brache souvant pour apprendre de
nouvelles choses ,mais je n'ai jamais participe (Ni sources ni au Forum).
C'est mon 1er msg .Il s'agit d'un pb rencontré lors de mon dev
auquel je n'arrive pas a trouver de sol . Voilà , je suis entrain de travailler sur
une solution en VB6 (Base de données en ACCESS 97) , je desire placer ma
base sur un (pc1) de resaeu et installer l'application sur les autres postes de
meme reseau alors pour acceder aux données j'ai procédé comme suit :
CheminDB = "[file://\\Nom-PC\c\Dossier-Datas\NomDatas.mdb \\Nom-PC\c\Dossier-Datas\NomDatas.mdb ]"
Set mdbDatas = OpenDatabase(CheminDB, False, False, ";pwd=2004")
Data2.DatabaseName = CheminDB
ça marche mais a condition de partager c sur (Pc1) , partage à accés complet
sans mot de passe . Aidez moi svp pour acceder à ma base (.mdb) sans partager
le C ,ou bien, le partager mais avec un mot de passe .

MERCI ET B PROG
Goumis

3 réponses

Réponse 1 / 3
cs_ITALIA Messages postés 2169 Date d'inscription vendredi 20 avril 2001 Statut Membre Dernière intervention 30 juin 2009 10
19 janv. 2005 à 12:37
En DAO :
En cochant Projet ...Référence..Microsoft DAO 3.51 Object Library

CheminBase = "[file://Nom-PC/c/Dossier-Datas/NomDatas.mdb \\Nom-PC\c\Dossier-Datas\NomDatas.mdb]"
Passe="Italia"
Set Db = OpenDatabase(CheminBase, False, False, ";pwd=" & Passe)
.....

Ta Requéte
.....

It@li@
0
Réponse 2 / 3
cs_CanisLupus Messages postés 3757 Date d'inscription mardi 23 septembre 2003 Statut Membre Dernière intervention 13 mars 2006 21
19 janv. 2005 à 12:42
Salut,

Pour capturer une ressource réseau, j'ai retrouvé un tit code dans mes cartons mais pas testé avec une machine XP comme serveur réseau.

' POUR CONNECTER LA RESSOURCE RESEAU
'If AddConnection("RemoteName", "UserName", "UserPwd", "LocalName") Then
' ...
'End If

' Avec :
' RemoteName = le nom de la machine distante
' UserName = nom de l'utilisateur qui se connecte si défini sur machine distante, sinon "Invité" ou ""
' UserPwd = le password de partage
' LocalName = la lettre logique sur le poste qui capture (z: par exemple)

' POUR DECONNECTER LA RESSOURCE RESEAU
'CancelConnection "LocalName"

' Constantes d'erreur
Private Const NO_ERROR As Long = 0 ' The function was successful
Private Const ERROR_BAD_USERNAME As Long = 2202& ' Mauvais nom d'utilisateur
Private Const ERROR_INVALID_PASSWORD As Long = 86& ' The password was invalid.
Private Const ERROR_ALREADY_ASSIGNED As Long = 85& ' LocalName déjà assigné
Private Const ERROR_BAD_DEVICE As Long = 1200& ' LocalName invalide
Private Const ERROR_BAD_NET_NAME As Long = 67& ' RemoteName invalide ou introuvable


' Constantes de Type de ressource
Private Const RESOURCETYPE_DISK = &H1


'
Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type


' Fonctions API
Private Declare Function WNetAddConnection2 _
Lib "mpr.dll" Alias "WNetAddConnection2A" _
( _
lpNetResource As NETRESOURCE, _
ByVal lpPassword As String, _
ByVal lpUserName As String, _
ByVal dwFlags As Long _
) As Long

Private Declare Function WNetCancelConnection2 _
Lib "mpr.dll" Alias "WNetCancelConnection2A" _
( _
ByVal lpName As String, _
ByVal dwFlags As Long, _
ByVal fForce As Long _
) As Long


Function AddConnection(RemoteName As String, UserName As String, UserPwd As String, LocalName As String)
Dim Retour As Long
Dim SharedResource As NETRESOURCE


SharedResource.lpRemoteName = RemoteName
SharedResource.lpLocalName = LocalName
SharedResource.dwType = RESOURCETYPE_DISK


' Tentative de connexion à la ressource partagée
Retour = WNetAddConnection2(SharedResource, UserPwd, UserName, 0)

Select Case Retour
Case NO_ERROR ' Ca se passe bien
AddConnection = True
Case ERROR_BAD_USERNAME
MsgBox "Mauvais nom d'utilisateur"
AddConnection = False
Case ERROR_INVALID_PASSWORD
MsgBox "Password invalide"
AddConnection = False
Case ERROR_ALREADY_ASSIGNED
MsgBox "LocalName déjà assigné"
AddConnection = False
Case ERROR_BAD_DEVICE
MsgBox "LocalName invalide"
AddConnection = False
Case ERROR_BAD_NET_NAME
MsgBox "RemoteName invalide ou introuvable"
AddConnection = False
Case Else
MsgBox "Erreur n° " & Retour & " non gérée par l'appli."
AddConnection = False
End Select

End Function


Function CancelConnection(LocalName As String)
Dim Retour As Long


' Pour fermer la connexion
Retour = WNetCancelConnection2(LocalName, 0, 0)

End Function



Cordialement, CanisLupus
0
Réponse 3 / 3
goumis2002 Messages postés 15 Date d'inscription samedi 20 décembre 2003 Statut Membre Dernière intervention 26 février 2007
19 janv. 2005 à 15:09
MERCI POUR VOS REPONSES , je vais essayer avec ..

Goumis
0
Rejoignez-nous