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;

[chaplin]

Ne faudrait-il pas utiliser la BDE de bout en bout, pour le dataset source et de destination. J'ai toujours procédé ainsi, et je n'ai jamais eu de problème tout en faisant attention au type d'option BatAppend,BatCopy.

[SergioMaster]

je vois au moins une source d'erreur !

Code :

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

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

c'est SQlQuery.Open qu'il faut mettre au lieu de SQLQuery.ExecSQL mais c'est peut être une faute de copier coller ?
sans parler bien sur comme le dit Chaplin de l'option