1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VB.NET

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
Afficher la suite

1 réponse

Réponse 1 / 1
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
Répondre Posez votre question