Ado+vb+sql="prise de tête"

holycristal Messages postés 19 Date d'inscription lundi 19 mai 2003 Statut Membre Dernière intervention 28 octobre 2004 - 18 oct. 2004 à 17:04
jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 - 18 oct. 2004 à 17:16
Bonjour à tous
Je m'explique,
J'ai une Base de Donnée Access 97 avec plusieurs tables et plusieurs champs dans chaque table.
J'ai créé une formulaire avec une zone de saisie et un boutton "OK".
Je veux que quand je clique sur OK il m'enregistre la valeur de la zone de texte dans le champs correspondant.
J'ai fait une truc comme sa, dite moi si c'est correcte ou pas:

Private sub CmdOk_click()
Dim i as Integer
i = 1
adobd.recordset!Nom = TxtType.Text
While adobd.recordset!NumType = i
i = i + 1
Wend
adobd.recordsource = "INSERT INTO Type VALUES (i, TxtType.text);"
adobd.recordset.addnew
EndSub

1 réponse

jrivet Messages postés 7392 Date d'inscription mercredi 23 avril 2003 Statut Membre Dernière intervention 6 avril 2012 60
18 oct. 2004 à 17:16
Salut,
adodb.recordset!NumType , n a pas l air correct effectivement.

Essaie un truc du style (situ as ta connection cnx ADO existante et ouverte):
Dim rs as new adodb.recordset ' ca te creer un objet recordset
set rs.activeconnection = cnx
rs.source= "INSERT INTO Type (NomChamp1, NomChamp2)VALUES (" & i & ", '" & TxtType.text & "')"
rs.open

Si tu n a pas ta connection ouverte (ou si tu ne sais pas comment faire , renvoie un post).
@+
Julien
-----------------------------------------------------------
:big) Essai ca sinon on trouvera autre chose ;)
-----------------------------------------------------------
0
Rejoignez-nous