Bonsoir a tous,

Je dois mettre a jour un fichier dbf a partir d'un table access. La table access comporte plus de 2000 records.

Voici mon code

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Set rstResultat1 = dbsbase.Execute("SELECT idClient, CliNom, cliPre, cliAdr1 , cliCp, cliVille from Client")
 
Do Until rstResultat1.EOF
    frmExport.Caption = "Export Vers CUBIC : Mise à Jour du Client N° " & rstResultat1(0)
    rst.Open "UPDATE " & FilesClient & " SET " & _
             "C_nom1='" & Left(Replace(rstResultat1(1), "'", "''"), 30) & "'," & _
             "C_nom2='" & Left(Replace(rstResultat1(2), "'", "''"), 30) & "'," & _
             "C_adresse='" & Left(Replace(rstResultat1(3), "'", "''"), 30) & "'," & _
             "C_localite='" & Left(rstResultat1(4) & " " & Replace(rstResultat1(5), "'", "''"), 30) & "'" & _
             " WHERE cdbl(C_numero)=" & rstResultat1(0) & ";", cnn, , , adCmdText
    rstResultat1.MoveNext
Loop
MsgBox "UPDATE Réussi"
rstResultat1.Close
Il fonctionne mais met en temps de fou.
Comment optimiser ce code
Avez vous une idée
Merci d'avance