Discussion :

[Papy214]

Bonjour,

A partir d'une connexion TADOConnection, j'exporte les données et structure d'une table dans un fichier XML.

Code :

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

1
2
3
4
5
6
 
var
  R: _Recordset;
begin
  R := ADOConnection1.Execute('SELECT * FROM Jetons');
  R._xSave('D:\Jetons.csv', adPersistXML);

Ça me donne un fichier XML avec structure et données de la table.


Est-il maintenant possible d'utiliser ce même fichier pour restaurer une table dans la base ? Faut-il passer par ADOX ou une commende SQL que j'aurais zappé permet-elle de faire ça facilement ?

A défaut, je passerai par une lecture du fichier XML mais j'imagine qu'il doit exister quelque chose de tout prêt !

Papy !

[Ph. B.]

Bonjour,

Regardez cet article : Initiation à XML et Delphi 6. AMHA, il y a matière pour atteindre votre objectif...

[Papy214]

Merci ce n'est pas vraiment ce que je cherchais. Lire un fichier XML, avec ou sans l'assistant liaison XML de Delphi, je sais faire. Je cherche en fait une manière simple de sauvegarder contenu d'une table d'une base de données (_xsave) pour pouvoir recréer la table ultérieurement en cas de problème. Une procédure de restauration de données tables par tables.

Pour l'instant, j'en suis à une solution intermédiaire.

1. Sauvegarde de la table dans un fichier
2. Chargement du fichier dans un Recorset
3. Lecture des lignes du recordset et ajout à la table originelle une fois vidée

ça fonctionne mais quand une table contient beaucoup d'enregistrements, ça prend beaucoup de ressources. C'est pour ça que je pensais plutôt à un genre "BULK INSERT" du SQL.

Mais faute de mieux ...

Merci tout de même de l'intérêt porte à ma question

[Ph. B.]

ça fonctionne mais quand une table contient beaucoup d'enregistrements, ça prend beaucoup de ressources. C'est pour ça que je pensais plutôt à un genre "BULK INSERT" du SQL.

Dans ce cas, avez vous fait l'insertion dans la base via la commande UpdateBatch(arAll) du RecordSet une fois les données chargées en mémoire ?

Autre piste, construire un script sql avec insertion par lot et commit sur le lot et pas sur chaque insertion...

[SergioMaster]

construire un script sql avec insertion par lot et commit sur le lot et pas sur chaque insertion...

[Papy214]

Pour UpdateBatch, soir la solution n'est pas adaptée à mon cas, soit je l'utilise mal. J'ai testé le code suivant qui ne restaure pas mes données.

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
16
17
18
19
20
21
22
23
 
  T, G: TADOTable;
begin
 
  if FileExists('D:\JetonsT.adtg') then
    DeleteFile('D:\JetonsT.adtg');
 
  T := TADOTable.Create(Self);
  T.Connection := ADOConnection1;
  T.TableName := 'Jetons';
  T.Open;
  T.SaveToFile('D:\JetonsT.adtg');
  T.Close;
  T.Free;
 
  ADOConnection1.Execute('DELETE FROM Jetons');
 
  G := TADOTable.Create(Self);
  G.ConnectionString := ADOConnection1.ConnectionString;
  G.TableName := 'Jetons';
  G.LoadFromFile('D:\JetonsT.adtg');
  G.UpdateBatch();
  G.Free;

Au moment du LoadFromFile, Le Tablename est remplacé par le nom du fichier (normal). Et si je le mets après, Delphi se plaint parce qu'il ne peut pas faire cette opération sur un ensemble de données ouvert.


Je vais me tourner vers une solution script SQL.

Merci à vous deux.

[Ph. B.]

Bonjour,

Je suppose que je dispose d'un objet ADOConnection1 de type TADOconnection dans ma fiche de type TForm1.

Il faut faire un truc du genre :

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
procedure TForm1.Import;
var
  DSetSrc,                     
  DSetDest: TADODataSet;
  i: Integer;
begin
  DSetDest := TADODataSet.Create(nil);
  try
    // Préparer l'ensemble de données pour un traitement par lot
    DSetDest.Connection := ADOConnection1;
    DSetDest.CursorType := ctStatic;
    DSetDest.LockType := ltBatchOptimistic;
    DSetDest.CommandType := cmdText;
    DSetDest.CommandText := 'SELECT * FROM Jetons';
    DSetDest.Open;
    //
    DSetSrc := TADODataSet.Create(nil);
    try
      DSetSrc.LoadFromFile('D:\JetonsT.adtg');
      // Transférer les données
      DSetSrc.First;
      while not DSetSrc.Eof do
      begin
        DSetDest.Append;
        for i := 0 to DSetSrc.FieldCount - 1 do
          DSetDest.Fields[i].Value := DSetSrc.Fields[i].Value;
        DSetDest.Post;
        DSetSrc.Next;
      end;
      // Appliquer les mises à jour
      DSetDest.UpdateBatch(arAll);
    finally
      DSetDest.Close;
      DSetSrc.Free;
    end;
  finally
    DSetDest.Free;
  end;
end;

Dans l'exemple, je n'ai pas purgé préalablement la table Jetons.

[Papy214]

C'est un peu ce que je pensais faire au départ mais sans connaître ce UpdateBatch.

Merci pour le coup de main et joyeux futur noël !