Discussion :

[bruce207]

Bonjour à tous,
je voudrais savoir comment faire pour recuperer des informations depuis les textbox dun formulaire (vb6)et les inserer dans la base de donnée (Access). J'ai essayé le code suivant:

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
 'Déclaration des variables
Dim cnx As ADODB.Connection
Dim rst As ADODB.Recordset
Dim bnd As BindingCollection
Private Sub Command2_Click()
'Instanciation des variables
Set cnx = New ADODB.Connection
Set rst = New ADODB.Recordset
Set bnd = New BindingCollection
'Définition du pilote de connexion
cnx.Provider = "Microsoft.jet.OLEDB.4.0"
'Définition de la chaine de connexion
cnx.ConnectionString = "c:\documents and settings\administrateur\mes documents\mon_prog\fiferpro.mdb"
'Ouverture de la base de donnée
cnx.Open
'Exécution de la requete
 rst.Open " INSERT INTO membre (mat_mem, nom_mem, nation_mem, stat_mem, infos_mem) Values ('text1(0).text', 'text1(2).text', 'text1(6).text', 'text1(7).text', 'text1(10).text')", cnx, adOpenDynamic, adLockOptimistic, adCmdText End Sub

mais ce code ne me renvoie que les text1(i).text et non les valeurs meme qui se trouvent sur le formulaire. Merci d'avance.

[pc75]

Bonjour,

Enlève les apostrophes

.... Values ('" & text1(0).text & "', '" & text1(2).text & "', ....

[bruce207]

merci cette fois les informations sont dans la base. Sauf que maintenant je voudrais savoir comment envoyer des informations dans plusieurs tables à la fois car mon formulaire contient des textboxs de differentes tables. J'ai ecrit a la suite ceci:

Code :

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

1
2
3
4
5
'Déclaration des variables...
...
cnx.Open
'Exécution de la requete
 rst.Open " INSERT INTO membre (mat_mem, nom_mem, nation_mem, stat_mem, infos_mem) Values ('"&text1(0).text&"', ' "&text1(2).text'&", '"&text1(6).text&"', '"&text1(7).text&"', '"&text1(10).text &"')", " insert into nomtable (col1, col2, ....) values (value1, val2, ...) "cnx, adOpenDynamic, adLockOptimistic, adCmdText

mais ca me donne un message d'erreur de compilation; nombre d'argument incorrect....
que faire?

[muzele]

Salut !
ouvre ta connexion

Code :

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

1
2
3
4
5
6
7
8
9
10
cnx.open
'premier enregistrement
rst.open "insert into la_premiere_table ....."
'close la connexion puis reouvre la
rst.close
rst2.open
'déclare un deuxième enregistrement
rst.open "insert into la_deuxieme_table ....."
rst2.close
' et ainsi de suite

esperons que cela fonctionne !
@ plus !

[bruce207]

Merci de ton aide mais ça n'a pas marché ce que j'ai fait est le suivant

Code :

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

1
2
3
4
5
 
'Première requete
rst.Open "INSERT INTO nomtable .......
'Deuxiemme requete
rst.Open "INSERT INTO nomtable.....