Enregistrement des données dans ma base
jack bauer
-
Jack bauer -
Jack bauer -
bonjour ,
j'ai un gros soucis avec ma bdd créé sous access... mon appli Vb 6 doit récupérer les données d'une table via une form et les garder dans une autres table. Je voudrais que vous m'aidiez à comprendre la logique à adopter pour transférer les données...
Mon soucis est de pouvoir m'y faire avec la form, les bouttons, et les contrôles de données...
Merci d'avance
j'ai un gros soucis avec ma bdd créé sous access... mon appli Vb 6 doit récupérer les données d'une table via une form et les garder dans une autres table. Je voudrais que vous m'aidiez à comprendre la logique à adopter pour transférer les données...
Mon soucis est de pouvoir m'y faire avec la form, les bouttons, et les contrôles de données...
Merci d'avance
2 réponses
-
bonjour
tu fait comme ça
si tu as dans rs les enregistrement à transférer et dans rs2 les enregistrements de ouvert en dbopendynaset tu fais :
do while not rs.eof
rs2.addnew
rs2.fields(nom_du_champ).value = rs.fields(nom_du_champ).value
ainsi de suite pour les autres champs
rs2.update
loop
rs.close
rs2.close
voila
pour plus d'info voir http://toptech.geekaddict.net-
-
sltut !
j'ai essayé le code que tu m'as donné mais ça ne marche pas ... puisque je prends des données de plusieurs tables vers une autre tables, lorsque j'execute le débogage me dit qu'un objet est requis . je ne sais pas de quel objet il s'agit .
Voici mon code:
Private Sub Command1_Click()
Call connect
Do While Not rs1.EOF
rs5.AddNew
rs5.Fields(nom).Value = rs.Fields(nom).Value
rs.Fields(prénom).Value = rs.Fields(prénom).Value
rs.Fields(matricule).Value = rs.Fields(matricule).Value
rs.Fields(spécialité).Value = rs.Fields(spécialité).Value
rs.Fields(catégorie).Value = rs.Fields(catégorie).Value
rs.Fields(poste).Value = rs.Fields(poste).Value
Loop
rs1.Close
'======
Do While Not rs2.EOF
rs2.Fields(nomservice).Value = rs5.Fields(service).Value
Loop
rs2.Close
'==========
Do While Not rs4.EOF
rs4.Fields(nomsite).Value = rs5.Fields(site).Value
rs4.Fields(pays).Value = rs5.Fields(pays).Value
Loop
rs4.Close
'============
rs5.Update
rs5.Close
End Sub
-
-
maintenant j'ai un code qui ne marche pas ... le système dit qu'un objet est requis. Je voudrais introduire des données issues de plusieurs tables ( 1, 2, 3, 4) dans une autre table (5 ).
Voici mon code :
Private Sub Command1_Click()
Call connect
Do While Not rs1.EOF
rs5.AddNew
rs5.Fields(nom).Value = rs.Fields(nom).Value
rs.Fields(prénom).Value = rs.Fields(prénom).Value
rs.Fields(matricule).Value = rs.Fields(matricule).Value
rs.Fields(spécialité).Value = rs.Fields(spécialité).Value
rs.Fields(catégorie).Value = rs.Fields(catégorie).Value
rs.Fields(poste).Value = rs.Fields(poste).Value
Loop
rs1.Close
'======
Do While Not rs2.EOF
rs2.Fields(nomservice).Value = rs5.Fields(service).Value
Loop
rs2.Close
'==========
Do While Not rs4.EOF
rs4.Fields(nomsite).Value = rs5.Fields(site).Value
rs4.Fields(pays).Value = rs5.Fields(pays).Value
Loop
rs4.Close
'============
rs5.Update
rs5.Close
End Sub
J'ai besoin d'aide....
