enregistrement des données dans ma base Fermé

Question

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

shinigami · Answer

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

Jack bauer · Answer

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....

Enregistrement des données dans ma base

2 réponses

Discussions similaires

Newsletters