Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 8 sur 8
  1. #1
    Membre Expert
    Inscrit en
    novembre 2007
    Messages
    1 631
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : novembre 2007
    Messages : 1 631
    Points : 1 141
    Points
    1 141

    Par défaut _Recordset + ADO + restauration de données

    Bonjour,

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

    Code :
    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 !

  2. #2
    Expert Confirmé
    Avatar de Ph. B.
    Homme Profil pro Philippe
    Inscrit en
    avril 2002
    Messages
    1 327
    Détails du profil
    Informations personnelles :
    Nom : Homme Philippe
    Âge : 48
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2002
    Messages : 1 327
    Points : 3 629
    Points
    3 629

    Par défaut

    Bonjour,

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

  3. #3
    Membre Expert
    Inscrit en
    novembre 2007
    Messages
    1 631
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : novembre 2007
    Messages : 1 631
    Points : 1 141
    Points
    1 141

    Par défaut

    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

  4. #4
    Expert Confirmé
    Avatar de Ph. B.
    Homme Profil pro Philippe
    Inscrit en
    avril 2002
    Messages
    1 327
    Détails du profil
    Informations personnelles :
    Nom : Homme Philippe
    Âge : 48
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2002
    Messages : 1 327
    Points : 3 629
    Points
    3 629

    Par défaut

    Citation Envoyé par Papy214 Voir le message
    ç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...
    Philippe.

  5. #5
    Rédacteur/Modérateur
    Avatar de SergioMaster
    Homme Profil pro Serge Girard
    Développeur informatique
    Inscrit en
    janvier 2007
    Messages
    5 327
    Détails du profil
    Informations personnelles :
    Nom : Homme Serge Girard
    Âge : 58
    Localisation : France, Loire Atlantique (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Industrie

    Informations forums :
    Inscription : janvier 2007
    Messages : 5 327
    Points : 9 732
    Points
    9 732

    Par défaut

    Citation Envoyé par Ph. B. Voir le message
    construire un script sql avec insertion par lot et commit sur le lot et pas sur chaque insertion...
    La seule chose absolue dans un monde comme le nôtre, c'est l'humour. » Albert Einstein
    J'entends et j'oublie. Je vois et je me souviens. Je fais et je comprends . Confucius
    Si votre seul outil est un marteau, vous aurez tendance a ne voir que des clous

  6. #6
    Membre Expert
    Inscrit en
    novembre 2007
    Messages
    1 631
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : novembre 2007
    Messages : 1 631
    Points : 1 141
    Points
    1 141

    Par défaut

    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 :
    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.

  7. #7
    Expert Confirmé
    Avatar de Ph. B.
    Homme Profil pro Philippe
    Inscrit en
    avril 2002
    Messages
    1 327
    Détails du profil
    Informations personnelles :
    Nom : Homme Philippe
    Âge : 48
    Localisation : France, Haute Garonne (Midi Pyrénées)

    Informations professionnelles :
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : avril 2002
    Messages : 1 327
    Points : 3 629
    Points
    3 629

    Par défaut

    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 :
    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.
    Philippe.

  8. #8
    Membre Expert
    Inscrit en
    novembre 2007
    Messages
    1 631
    Détails du profil
    Informations personnelles :
    Âge : 53

    Informations forums :
    Inscription : novembre 2007
    Messages : 1 631
    Points : 1 141
    Points
    1 141

    Par défaut

    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 !

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •