BTS IG Informatique de Gestion

Forumeur occasionnel Messages: 20

boujour a tous et a toute

voila j'ai fait un code en vb

Code:

Sub copie1()

Dim i As Integer
Dim db As DAO.Database
Dim ajout As DAO.Recordset
Dim tbl As DAO.Recordset
Dim fld()
Dim modif As DAO.Recordset
Dim mot As String

mot = "serveur1"

Set db = CurrentDb

Set tbl = db.OpenRecordset("select * from salut where nom_serveur ='" & mot & "';")
Set ajout = db.OpenRecordset("select * from temporaire where nom_serveur ='" & mot & "';")

Do Until ajout.EOF
tbl.AddNew
For i = 1 To ajout.Fields.Count - 1
tbl.Fields(i) = IIf(Len(ajout.Fields(i)) <> 0, ajout.Fields(i), tbl.Fields(i))

Next
ajout.MoveNext

If tbl.EOF Then ' regarde si le record est pas en doublon oef doit etre vrai
tbl.Update
tbl.MoveNext
End If
Loop
End Sub

mais lordque je l'execute rien ne se passe
alors que il devrait copier les données dans une ligne d'une table a une autre

si vous avez la reponse

merci!!!!!!

Forumeur occasionnel Sexe: Messages: 16 Localisation: metz

Code:

Sub copie1()

Dim i As Integer
Dim db As DAO.Database
Dim ajout As DAO.Recordset
Dim tbl As DAO.Recordset
Dim fld()
Dim modif As DAO.Recordset
Dim mot As String

mot = "serveur1"
Set db = CurrentDb

Set ajout = db.OpenRecordset("select * from temporaire where nom_serveur ='" & mot & "';")

while not ajout.eof
set tbl=db.openrcordset("select * from salut where nom_serveur=" & chr(34) & mot & chr(34))
if not tbl.eof then 'vérifie pas de doublons
tbl.AddNew
For i = 1 To ajout.Fields.Count - 1
tbl.Fields(i) = IIf(Len(ajout.Fields(i)) <> 0, ajout.Fields(i), tbl.Fields(i))
Next i
tbl.update
end if
ajout.MoveNext
Wend
End Sub

le mieux est de placer un update à chaque addnew. Le code est modifié et i tourne. Tu peut aussi faire un refresh sur ton recordset à la fin. Chr(34) représente le caractère ascii des doubles quotes. En tout cas je te conseil de changer de modèle objet et plutôt d'utiliser ADO.
Plus d'infos: tofalu@hotmail.com

Webmaster Sexe: Messages: 5584 Localisation: Montpellier

tofalu a écrit:

Plus d'infos: tofalu@hotmail.com

Toi t'as trop confiance en le filtre anti-spam d'hotmail.
(Je dis pas ca pour les gens ici, mais pour les robots de spam qui chassent les emails dans les forums)