Connexion d'access 2000

Signaler
Messages postés
29
Date d'inscription
vendredi 18 avril 2008
Statut
Membre
Dernière intervention
11 juin 2008
-
Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
-
slt
j ai une base de données access et j'arrive pas a la connécté avec VB6 vous pouvez m'aidé , j'ai tapé :

Set conn_pr = New ADODB.Connection
conn_pr.Provider = "Microsoft.jet.Oledb.4.0"
conn_pr.ConnectionString = "Data Source=" & App.Path & "\Data.mdb;Jet OLEDB:Database Password="
conn_pr.Open

mais ça marche pas , comment fair alors ,
merci

1 réponse

Messages postés
3983
Date d'inscription
jeudi 14 juillet 2005
Statut
Membre
Dernière intervention
30 juin 2013
13
Dim
Cnx As New ADODB.Connection
Dim DBPath As String
DBPath = "C:\TaBase.mdb"
Cnx.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & DBPath & ";Uid=Admin;Pwd=;"
On Error Resume Next
Cnx.Open
If Err Then
 MsgBox "Erreur lors de l'ouverture de la BDD", vbExclamation
End If
Err.Clear
On Error GoTo 0
MsgBox "Base ouverte avec succès !", vbInformation ':=)
Cnx.Close
Set Cnx = Nothing ,

----

Colorisation syntaxique par Renfield


_______________________________________________________________________


VB.NET
is good ...
VB6
is better