Problème avec BatchMove

Version imprimable

16/04/2009, 18h41
defluc

Problème avec BatchMove

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.
20/04/2009, 21h04
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.
21/04/2009, 07h46
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 ;)
21/04/2009, 21h47
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.
22/04/2009, 08h18
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 :D.

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

Ceci fonctionne

Code:

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:

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;

22/04/2009, 20h58
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.

je vois au moins une source d'erreur !
Code:

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