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:
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.
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
Partager