je veux fair une connection entre vb6 et access 2000 afin d'aficher le contenu des tables sur des zone text [si simple/facile] not for me
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Dim cnx As ADODB.Connection
Set cnx = New ADODB.Connection
 
'Définition du pilote de connexion
'cnx.Provider = "Microsoft.Jet.Oledb.4.0"
'Définition de la chaîne de connexion
cnx.ConnectionString = "C:\Documents and Settings\gfoos\Mes documents\gad elmaleh\test1.mdb"
'Ouverture de la base de données
Set cnx = New ADODB.Connection
cnx.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Documents and Settings\gfoos\Mes documents\gad elmaleh\test1.mdb ;User Id=Admin; Password="
 
'la table
Dim rs As ADODB.Recordset
 
Set eleve = New ADODB.Recordset
rseleve = test1.OpenRecordset("eleve", dbOpenDynaset)
cnx.Open
rseleve = test1.OpenRecordset("eleve", dbOpenDynaset)
rs.CursorLocation = adUseClient
Text1 = rseleve![code_eleve]
Text2 = rseleve![nom_eleve]
Text3 = rseleve![adr_eleve]