Discussion :

[XsaiddX]

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]

[azzouz_soui]

Bonsoir,
voici un exemple de connexion.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Dim cnx As ADODB.Connection
Dim rs As ADODB.Recordset
 'dans form load
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 =  App.Path & "\Base.mdb"
'Ouverture de la base de données
cnx.Open 
Set rs = New adodb.Recordset
rs.Open "select * from table", cnx, adOpenKeyset, adLockOptimistic

bon courage

[yoann7]

Voila exemple du même genre, qui marche très bien.
Tu appel demarrage quand tu lance l'appli et après tu travail sur des recordsets, ici rs_ADHERENT.fields(0) .... etc

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
Public Sub demarrage()
'ouverture de la connexion
chemin = App.Path & "\nomDeTaBase.mdb"
strcnn = "provider=microsoft.jet.OLEDB.4.0; Persist Security info=false; data source= "
strcnn = strcnn + chemin
Set cn = New ADODB.Connection
cn.Open strcnn
End Sub
 
Public Sub openADHERENT()
 
'ouverture du recordset ADHERENT
Set rs_ADHERENT = New ADODB.Recordset
rs_ADHERENT.CursorType = adOpenDynamic
rs_ADHERENT.CursorLocation = adUseClient
sql_ADHERENT = "select * from ADHERENT"
rs_ADHERENT.Open sql_ADHERENT, cn, adOpenDynamic, adLockOptimistic
 
End Sub

[XsaiddX]

merci
et si je veux afficher le contenue d'une ou plusieurs tables sur une interface vb ?? et se deplacer dans les enregistrements??
et desole pour had les qestions lamkalkhine je dis ca car il m'ai venu a la tete que tu vas comprendre

[OhMonBato]

merci
et si je veux afficher le contenue d'une ou plusieurs tables sur une interface vb ?? et se deplacer dans les enregistrements??

Tu vas voir les tutoriels dont le lien se trouve en haut de chauqe page ou dans ma signature.

[XsaiddX]

Tu vas voir les tutoriels dont le lien se trouve en haut de chauqe page ou dans ma signature

merci mon pote j'ai deja vu ca c'est que du theorie et j'ai rien trouver
moi j'ai besoin du syntaxe pour afficher et se deplacer c'est tout

et merci encore une foit