Optimiser un code d'update d'un fichier dbf et access

Version imprimable

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:

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

18/03/2007, 01h06
ProgElecT

je ne suis pas trés fort sur cette syntaxe pour mettre à jour de cette façon,
mais je suis étonné que tu ouvres avec rst.Open et que tu ne fermes pas avec un rst.Close en fin de boucle (avant le rstResultat1.MoveNext, par exemple).
Cela dit, je ne sais pas si cela rendrai le travail plus rapide.

Salutation
18/03/2007, 13h39
pobrouwers

Merci pour ta réponse, je vais essayer mais je suis pas sur que ca ira plus vite

Citation:

je ne suis pas trés fort sur cette syntaxe pour mettre à jour de cette façon,

Comment fais-tu pour mettre a jour un fichier par rapport a une autre table ?

Merci
18/03/2007, 14h42
ThierryAIM

Citation:

Envoyé par pobrouwers

Comment fais-tu pour mettre a jour un fichier par rapport a une autre table ?

Avec une requête Execution
puisque ton UPDATE ne renvoie rien, tu n'as pas besoin d'un rst.Open
19/03/2007, 16h16
Vld44

et utilise left$ à la place de left;

edit :

J'ignore les possibilités d'access, mais pour moi si on parlait d'algo pure il y a un problème assez énorme dans ton code :D

Voici ce que tu fais :

VB -> ADO -> Base Access -> ADO -> VB
loop 2000 fois
VB -> ADO -> Fichier DBF
do

Alors est-ce qu'il ne serait pas possible de faire ton update et select en une seule requête ?

UPDATE fichier,table access SET fichier.champ = table.champ where ...

Je raisonne dans l'absolu c'est probablement impossible à faire avec ADO.