Discussion :

[defluc]

Bonsoir à tous

J'utilise le composant TBatchMove avec un TQuery comme Source et un TTable en Destination.

La première exécution du composant TBatchMove me retourne une table dont le contenu correspond à mes attentes.

Dans le cours de mon programme, la requête est modifiée. Mais à l'exécution du composant TBatchMove qui suit, le contenu de la table de destination n'est pas modifié. J'ai vérifié le contenu de la requête et il a bien été modifié.

J'ai tout essayé : vider la table de destination, la détruire et la recréer... Rien n'y fait.


Merci d'avance à tout qui pourrait me résoudre ce problème.

[philnext]

Bon ça ne répond pas à ta question mais je te conseille de faire ce genre de manips avec une requète SQL. De cette manière tu as une meilleur maîtrise de ce qui se passe.

[SergioMaster]

Cela fait longtemps que je n'ai plus utilisé Batchmove (excellent par ailleurs dommage qu'il ne soit qu'avec BDE) .
Je pense que cela vient de l'option que tu utilises BatAppend,BatCopy etc ...
Dis-en un peu plus

[defluc]

J'ai abandonné pour une requête Sql comme suggéré par philnext qui ne pose aucun problème

Mais, cette expérience remet en question la fiabilité de TBatchMove.

[SergioMaster]

Bizarre quand même , j'ai ,il y a de cela longtemps, fait un programme de réplication de base de données (une 20 de tables) avec batchmove et jusqu'à présent il est toujours opérationnel .

pour ces tables et Query je n'utilisait pourtant qu'un seul composant batchmove

[defluc]

Ceci fonctionne

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
    TableRadius.Close;
    SqlQuery.SQL.Clear;
    SqlQuery.SQL.Add('Insert into "' + CurDir + '\Temp\XlRadius.Db" ' +
                     'Select * From "' + CurDir + '\Temp\TableRadius.Db" ' +
                     'Where ParcelM2 <> 0');
    SqlQuery.ExecSql;

Mais ce qui suit donne le résultat décrit dans mon premier message

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
    TableRadius.Close;
    SqlQuery.SQL.Clear;
    SqlQuery.SQL.Add('Select * From "' + CurDir + '\Temp\TableRadius.Db" ' +
                     'Where ParcelM2 <> 0');
    SqlQuery.ExecSql;
    BatchMove.Source := SqlQuery;
    BatchMove.Destination := XLTableRadius;
    BatchMove.Execute;