vb6/access 2000 problem de connexion

Version imprimable

:salut:
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:

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]

vb6/access2000 probleme connection

Bonsoir,
voici un exemple de connexion.

Code:

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

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:

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

03/10/2008, 03h14
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 :D
03/10/2008, 09h05
OhMonBato

Citation:

Envoyé par XsaiddX

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.
03/10/2008, 09h46
XsaiddX

Citation:

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
03/10/2008, 12h12
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.
03/10/2008, 13h06
azzouz_soui

vb6/access2000 probleme connection
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:

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.
03/10/2008, 13h37
ProgElecT

Citation:

Envoyé par azzouz_soui

Je partage l'avis avec ohmonbato

moi aussi :aie:

Citation:

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.