1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22
|
Public maFunction()
...
...
While Not oRst.EOF
requeteValues = "'" & oRst.Fields(0).Value & "'"
For Compteur = 1 To 22
requeteValues = requeteValues & ", " & "'" & oRst.Fields(Compteur).Value & "'"
Next Compteur
'MsgBox "Value " & requeteValues
requeteInsert = "INSERT INTO MATABLE VALUES(" & requeteValues & ")"
oDbWrite.Execute requeteInsert, dbFailOnError
'Si erreur, insert l'id dans une table de log...
On Error GoTo trace_erreur
oRst.MoveNext
Wend
Exit Function
trace_erreur
'mon insert dans ma table qui va bien...
return
End Function |
Partager