Discussion :

[pobrouwers]

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

[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

[pobrouwers]

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

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

[ThierryAIM]

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

[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

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.