Inserer données via vb dans une base access

hardelgylls Messages postés 16 Date d'inscription jeudi 24 juillet 2003 Statut Membre Dernière intervention 20 juillet 2004 - 15 nov. 2003 à 16:30
asem67 Messages postés 145 Date d'inscription mardi 3 septembre 2002 Statut Membre Dernière intervention 24 février 2008 - 16 nov. 2003 à 16:39
bonjour j'au une application VB et j'aimerais inserer des donnees dans une base access vai un controle adodc j'ai fai cela mais ça ne fonctionne pas ça fait rien

saisie.Recordset.AddNew ' on ajoute 1 enregistrement
saisie.Recordset.Fields("nordinateur") = txtAdr2.Text ' on definit les champs ou on ajoute
saisie.Recordset.Fields("nom_utilisateur") = txtVille.Text
saisie.Recordset.Fields("processeur") = txtCA.Text
saisie.Recordset.Fields("disque_dur") = txtPre.Text
saisie.Recordset.Fields("nom_reseau") = txtAdr1.Text
saisie.RecordSet.update

saisie est le nom de mon controle adodc

suis je bien partis ou est ce que je plante completement
hardelgylls :approve)

3 réponses

cs_Jack Messages postés 14006 Date d'inscription samedi 29 décembre 2001 Statut Modérateur Dernière intervention 28 août 2015 79
15 nov. 2003 à 16:56
Une autre solution consisterai à créer une connexion adodc à la DB et d'utiliser la forme SQL :
SQL = "Insert into MaTable ('nordinateur', ...)
values ('" & txtAdr2.Text & "', '" & ... & '")
MaConnexion.Execute SQL

Vala
Jack
0
hardelgylls Messages postés 16 Date d'inscription jeudi 24 juillet 2003 Statut Membre Dernière intervention 20 juillet 2004
15 nov. 2003 à 17:38
je viens de faire ce que tu m'as dis mais il n'a pas l'air d'apprecier la methode execute
j'ai fait ça :

Private Sub cmdOk_Click()
Dim saisie As Adodc
Dim SQL As String

SQL = "Insert into config_pc ('nordinateur') values('" & txtAdr2.Text & "')"
saisie.Execute SQL
End Sub

as tu une idée
hardelgylls :approve)
0
asem67 Messages postés 145 Date d'inscription mardi 3 septembre 2002 Statut Membre Dernière intervention 24 février 2008
16 nov. 2003 à 16:39
slt
tu peut aussi faire:

adodc.recorset.addnew 'ajout nouveau
adodc1.recorset!NomduChamp = Text1.text
etc......
adodc1.recorset.update 'enregistrement
adodc.refresh ' rafraichissement

A+

ASEM67
0
Rejoignez-nous