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

[OhMonBato]

Le but de ces tutoriels est justement d'éviter d'avoir à tout réexpliquer à chaque fois. Ce ne sont pas les exemples pratiques qui manquent.
Je ne suis pas expert en base de données et c'est justement grâce à ses tuto que j'arrive à faire le genre de choses que tu veux faire toi même.
Plutôt donc que d'attendre un code tout cuit qui ne correspondra jamais exactement à ton besoin précis, creuse un peu, prends le temps de faire des essais et si vraiment tu butes sur un point particulier, fais le nous savoir ici en montrant le code que tu as, en expliquant clairement l'éventuel code d'erreur que tu as et sur quelle ligne l'erreur se produit ou en expliquant bien ce qui se produit ou ne se produit pas.

[azzouz_soui]

Bonjour,
D'abord il faut écrire en français pour que tout le monde comprenne.
Je partage l'avis avec ohmonbato,il faut chercher dans le forum,écrire des bouts de code d'essai.
Faire une analyse du projet que tu veux réaliser.
Pour visualiser le contenu d'une table il faut la lier à un datagrid.
voici un exemple.

Code :

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

1
2
3
Private Sub DataGrid1_RowColChange(LastRow As Variant, ByVal LastCol As Integer)
T1.Text = DataGrid1.Columns(0).Text
T2.Text = DataGrid1.Columns(1).Text

bonne continuation.

[ProgElecT]

Je partage l'avis avec ohmonbato

moi aussi

Pour visualiser le contenu d'une table il faut la lier à un datagrid

c'est bien là le probléme, le datagrid n'est pas le seul contrôle utilisable pour visualiser le contenu d'une table d'une base de données, d'ou l'utilité de lire les tutoriels traitant du sujet et de lire les FAQs par là même occasion.