Conextion BDD access avec VB avec un mot de passe
cs_PDT
Messages postés
56
Date d'inscription
samedi 7 décembre 2002
Statut
Membre
Dernière intervention
7 août 2003
-
12 avril 2003 à 11:53
mohamedat Messages postés 2 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 18 janvier 2006 - 18 janv. 2006 à 08:17
mohamedat Messages postés 2 Date d'inscription mercredi 4 février 2009 Statut Membre Dernière intervention 18 janvier 2006 - 18 janv. 2006 à 08:17
A voir également:
- Conextion BDD access avec VB avec un mot de passe
- Mot aléatoire ✓ - Forum C
- Melangeur de mot - Forum Javascript / DHTML
- Mélangeur de mot - Forum PHP
- Mot de passe aleatoire - Conseils pratiques -PHP
- Mélanger un mot ✓ - Forum Delphi / Pascal
1 réponse
mohamedat
Messages postés
2
Date d'inscription
mercredi 4 février 2009
Statut
Membre
Dernière intervention
18 janvier 2006
18 janv. 2006 à 08:17
18 janv. 2006 à 08:17
************************************************************************************************************** '
' '
' Module contenant deux fonctions de connections ADO à une base donnée Access sécurisé par groupe de travail '
' (mdw) '
' La première méthode utilise un DNS pré-définis sur le poste de travail et dans lequel ont aura pris soin de '
' définir le fichier mdw du groupe de travail sur lequel ont travail pour ouvrire la base de donnée '
' '
' La seconde est une connection directe sans DNS '
' '
' '
' ************************************************************************************************************** '
Public Function ConnDNS(NomDuDNS As String, UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String
ConnDNS = False
' Nom que vous avez donné à votre DNS lorsque vous l'avez créé
NomDuDNS = "XXXXXX" ' dans l Administrateur de Sources de données (ODBC)
' du Panneau de configuration de Microsoft Windows
' initialise la chaine de connexion
strConn = "DNS=" & NomDuDNS & ";"
' vérifie que la connexion est bien fermée
If Cnx.State = adStateOpen Then
Cnx.Close
End If
' Connexion à la base de donnée
Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
' Attente jusqu'à la connexion effective
While (Cnx.State = adStateConnecting)
DoEvents
Wend
'
Vérification des erreurs éventuelles engendrés par la connexion ou attribution de la valeur "True" à la connexion
If Cnx.Errors.Count > 0 Then
MsgBox Cnx.Errors.Item(0)
ConnDNS = False
Exit Function
Else:
ConnDNS = True
End If
Exit Function
Err_ConnStrait:
MsgBox err.Description
ConnDNS = False
Exit Function
End Function
Public Function ConnStrait(UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String
ConnStrait = False
' Initialise la chaine de connexion
strConn = "Data Source=C:\...\NomDuFichier.MDB;" & _
"Jet OLEDB:System database=C:\...\NomDuFichier.MDW"
Cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
' vérifie que la connexion est bien fermée
If Cnx.State = adStateOpen Then
Cnx.Close
End If
' Connexion à la base de donnée
Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
' Attente jusqu'à la connexion effective
While (Cnx.State = adStateConnecting)
DoEvents
Wend
' Vérification des erreurs eventuelles ou attribution de la valeur "True" à la connexion
If Cnx.Errors.Count > 0 Then
MsgBox Cnx.Errors.Item(0)
ConnStrait = False
Exit Function
Else:
ConnStrait = True
End If
Exit Function
Err_ConnStrait:
MsgBox err.Description
ConnStrait = False
Exit Function
End Function
' '
' Module contenant deux fonctions de connections ADO à une base donnée Access sécurisé par groupe de travail '
' (mdw) '
' La première méthode utilise un DNS pré-définis sur le poste de travail et dans lequel ont aura pris soin de '
' définir le fichier mdw du groupe de travail sur lequel ont travail pour ouvrire la base de donnée '
' '
' La seconde est une connection directe sans DNS '
' '
' '
' ************************************************************************************************************** '
Public Function ConnDNS(NomDuDNS As String, UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String
ConnDNS = False
' Nom que vous avez donné à votre DNS lorsque vous l'avez créé
NomDuDNS = "XXXXXX" ' dans l Administrateur de Sources de données (ODBC)
' du Panneau de configuration de Microsoft Windows
' initialise la chaine de connexion
strConn = "DNS=" & NomDuDNS & ";"
' vérifie que la connexion est bien fermée
If Cnx.State = adStateOpen Then
Cnx.Close
End If
' Connexion à la base de donnée
Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
' Attente jusqu'à la connexion effective
While (Cnx.State = adStateConnecting)
DoEvents
Wend
'
Vérification des erreurs éventuelles engendrés par la connexion ou attribution de la valeur "True" à la connexion
If Cnx.Errors.Count > 0 Then
MsgBox Cnx.Errors.Item(0)
ConnDNS = False
Exit Function
Else:
ConnDNS = True
End If
Exit Function
Err_ConnStrait:
MsgBox err.Description
ConnDNS = False
Exit Function
End Function
Public Function ConnStrait(UserName As String, Password As String) As Boolean
On Error GoTo Err_ConnStrait
Dim Cnx As New ADODB.Connection
Dim strConn As String
ConnStrait = False
' Initialise la chaine de connexion
strConn = "Data Source=C:\...\NomDuFichier.MDB;" & _
"Jet OLEDB:System database=C:\...\NomDuFichier.MDW"
Cnx.Provider = "Microsoft.Jet.OLEDB.4.0"
' vérifie que la connexion est bien fermée
If Cnx.State = adStateOpen Then
Cnx.Close
End If
' Connexion à la base de donnée
Cnx.Open ConnectionString:=strConn, UserID:=UserName, Password:=Password
' Attente jusqu'à la connexion effective
While (Cnx.State = adStateConnecting)
DoEvents
Wend
' Vérification des erreurs eventuelles ou attribution de la valeur "True" à la connexion
If Cnx.Errors.Count > 0 Then
MsgBox Cnx.Errors.Item(0)
ConnStrait = False
Exit Function
Else:
ConnStrait = True
End If
Exit Function
Err_ConnStrait:
MsgBox err.Description
ConnStrait = False
Exit Function
End Function