Insérer des données en vb to access
amine_marc
Messages postés
286
Statut
Membre
-
Polux31 Messages postés 7219 Statut Membre -
Polux31 Messages postés 7219 Statut Membre -
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.
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) -
J'ai ajouter Microsoft ActiveX Data Objects 6.0 et le même pb reste bloquer le programme.
-
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 -
-
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question -
Private Sub Command1_Click() Dim con As ADODB.Connection Dim CnxString As String Set con = New ADODB.Connection CnxString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\Nouveaux\moad_SAV_vb6\bd_sav.mdb" con.Open CnxString '......
