Insérer des données en vb to access
amine_marc
Messages postés
256
Date d'inscription
Statut
Membre
Dernière intervention
-
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Polux31 Messages postés 6917 Date d'inscription Statut Membre Dernière intervention -
Bjr,
J'ai un problème simple parce que je suis débutant en vb6;
Je veux insérer des informations insérées par l'utilisateur dans des textbox, à une base de données Access 2003 (un fichier "bd_sav.mdb" contient une seule table "client") à l'aide du VB, mais quand je clique sur le bouton de validation Command1, un message s'affiche disant:
"Erreur de compilation
Type défini par l'utilisateur non défini"
tel que le compilateur séléctionne la 2ième ligne de mon code:
Private Sub Command1_Click()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nouveaux\moad_SAV_vb6\bd_sav.mdb"
con.Open
Dim rs As ADODB.Recorset
Set rs = New Recordset
rs.Open " INSERT TO client VALUES (num_client, nom_client, prenom_client, adr_client, code_postal, ville_client, tel_client), con, AdopenDynamic, AdLockOptimistic"
rs.Close
con.Close
End Sub
Veuillez me corriger mon programme, et merci d'avance.
J'ai un problème simple parce que je suis débutant en vb6;
Je veux insérer des informations insérées par l'utilisateur dans des textbox, à une base de données Access 2003 (un fichier "bd_sav.mdb" contient une seule table "client") à l'aide du VB, mais quand je clique sur le bouton de validation Command1, un message s'affiche disant:
"Erreur de compilation
Type défini par l'utilisateur non défini"
tel que le compilateur séléctionne la 2ième ligne de mon code:
Private Sub Command1_Click()
Dim con As ADODB.Connection
Set con = New ADODB.Connection
con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nouveaux\moad_SAV_vb6\bd_sav.mdb"
con.Open
Dim rs As ADODB.Recorset
Set rs = New Recordset
rs.Open " INSERT TO client VALUES (num_client, nom_client, prenom_client, adr_client, code_postal, ville_client, tel_client), con, AdopenDynamic, AdLockOptimistic"
rs.Close
con.Close
End Sub
Veuillez me corriger mon programme, et merci d'avance.
A voir également:
- Insérer des données en vb to access
- Insérer video powerpoint - Guide
- Insérer signature word - Guide
- Comment insérer des points de suite sur word - Guide
- Insérer liste déroulante excel - Guide
- Insérer table des matières word - Guide
5 réponses
Bonjour,
Il faut ajouter Microsoft ActiveX Data Objects x.x Library à ton projet.
Menu > Projets > Références ... (cocher la référence ci dessus) et valider
;o)
Il faut ajouter Microsoft ActiveX Data Objects x.x Library à ton projet.
Menu > Projets > Références ... (cocher la référence ci dessus) et valider
;o)
Private Sub Command1_Click()
Dim con As Connection
Set con = New Connection
Dim rs As Recordset
Set rs = New Recordset
con.Provider = "microsoft.jet.oledb.4.0"
con.Open "TON URL"
rs.Open "select * from etudiants", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!nom = nom1.Text
rs!prenom = prenom1.Text
rs!adresse = adresse1.Text
rs.Update
rs.Close
MsgBox "operation d'ajout reussite"
End Sub
voici un ptit exemple d'ajout d'un form à une base j'espére que ca vous aidera
Dim con As Connection
Set con = New Connection
Dim rs As Recordset
Set rs = New Recordset
con.Provider = "microsoft.jet.oledb.4.0"
con.Open "TON URL"
rs.Open "select * from etudiants", con, adOpenDynamic, adLockOptimistic
rs.AddNew
rs!nom = nom1.Text
rs!prenom = prenom1.Text
rs!adresse = adresse1.Text
rs.Update
rs.Close
MsgBox "operation d'ajout reussite"
End Sub
voici un ptit exemple d'ajout d'un form à une base j'espére que ca vous aidera
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question