Bonjour a tous

j'ai une application vb6 et je voudrai enregestrer les données sous bdaccess 2003

• j'ai convertis la base de donnée vers bd 97
• j'ai créer une interface visual des zones detexte  et la commande enregestrer (pour ajouter les donnes de la zone de texte dans une  tavle access)
• le code de la commande enregestrer :
• Private Sub Cmdenregestrer_Click()
  txtnom.Locked = True
  txtnomn.Locked = True
  txtprenom.Locked = True
  txttel.Locked = True
  txtadresse.Locked = True
  txtcin.Locked = True
  txtforma.Locked = True
  txtdip.Locked = True
  txtetab.Locked = True
  txtdate.Locked = True
  txtle.Locked = True
  Data1.Recordset.Update
  cmdenregestrer.Enabled = False
  cmdnouveau.Enabled = True
  End Sub
• mais ca ne marche pas

SVP SVP SVP aidez moi

Renseigne toi sur l'ADO sans datacontrol plutot que ta méthode, pour moi je dirai qu'il manque les champs de ta base a référencé ...

En ADO ca donnerai :
recordset![tonchamp] = tatextebox.text ...

 

aprés j'me trompe peu etre

Tous sur MACOSXLeopard

Totooo62

je ne comprend rien que t'écrit

moi je voudrai que les donner seront ajoutées a la bd lorsque je clik sur  enregestrer

ADO?????????????

Il faut que tu aille dans Projet/Référence et que tu ajoute un truc du genre ActiveX Recordset 2.8
ensuite le code ca donnerai quelque chose du genre

pour de l'ADO il faut une connexion
Connexion: moyen permettant les échanges de données.
La source de données à laquelle vous vous connectez est
spécifiée dans une chaîne de connexion

et un recordset

Option Explicit
Dim CNX as New ADODB.Connection
Dim RS as New ADODB.Recordset

Private Sub Form_Load()
CNX.Open ""Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\... ton chemin"
RS.Open ("tatable"), CNX, curseur, verrou
End Sub

Private Sub cmdenregistre_Click()
RS.AddNew 'Ajoute un enregistrement a ta table précisé dans l'RS.Open
tatxtbox.text = RS!tonchampenrapport 'tu référence tes champs en fonction de tes textbox
tonautretxtbox.text = RS!tonautrechampenrapport
...
...
RS.Update 'tu enregistre l'ajout
End Sub

et pas oublié le CNX.Close et le RS.Close quand tu ferme la form

ca doit donner quelque chose  comme ca
ADO : Active (X) Data Object. Une forme d'accès aux datas de Microsoft, qui se sert de modules ActiveX.


renseigne toi sur le site vbfrance, y a plein de source