Base de donnés temporelle

Version imprimable

06/08/2006, 18h27
ghassenus

Base de donnés temporelle

dans mon application de QCM chaque question peut avoir plusieurs propositions avec des photos des animations flash et des vidéo lorsque l'utilisateur détermine le nb de proposition qu'il desire (par exemple 2 proposition) il bascule dans une fenêtre pour la saisie de ces proposition que j'enregistre dans une base de donnés à part alors voici le probléme:
comment enregistrer ces réponse dans une base temporaire puisque l'utilisateur peut changer le nb de prop (3 ou5 ) et l'enregistrer dans la base finale lorsq'il termine la création de la question!
si cela n'est pas assez claire dites le moi je vais poser la source sur le forum
merci d'avance!

PS : j'utulis des tables paradox sous delphi 2005 architect
07/08/2006, 14h31
ghassenus
comme personne ne veut donner la réponse je me suis casser la tête et j'ai trouver la solution suivante

Je crée une table de même structure (Table1=Table_temp)et je vide à chaque utilisation
et avant de la vider on fait un BatchMove En gros ça revient à dire:
Code:

1 2 3 4 5 6 7 Table_temp.EmptTable; . . //Ici le traitement sur Table_temp . . Table1.BatchMove(Table_temp,batAppend);
Je sais que c'est un peux tirer par les cheuveux mais si vous avez d'autre proposition je suis preneur :P merci!
07/08/2006, 14h41
Yurck

Bonjour,

Temporaire ??
Si tu veux du temporaire pourquoi ne pas laisser en mémoire (dans un TCLientDataset par exemple) tes informations "temporaire" jusqu'à enregistrement ?
Tu peux aussi ajouter un flag via un champ dans ta base pour signifier l'état "temporaire".

Bien sur tu peux aussi choisir le TBatchmove
07/08/2006, 15h34
ghassenus

malheresement je ne sais pas utiliser >TClientDataSet:oops:

Au plus simple un petit exemple de code :

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
procedure TForm1.BitBtn1Click(Sender: TObject);
Var
  cdsXML  : TClientDataset;
  dsProv   : TDatasetProvider;
  Qr         : TQuery;
  i           : Integer;
begin
  SaveDialog.Filter     := 'Fichiers XML (*.XML)|*.XML';
  SaveDialog.DefaultExt := 'xml';
  If SaveDialog.Execute then
  begin
    Qr := TQuery.Create(Self);
    try
      Qr.DatabaseName := 'My_DatabaseName';
      Qr.Sql.Text := 'Select * from Table'
      cdsXML := TClientDataset.Create(Nil);
      try
        dsProv := TDatasetProvider.Create(Self);
        try
          cdsXML.Close;
          cdsXML.SetProvider(dsProv);
          dsProv.DataSet      := Qr;
          cdsXML.active       := true;
          cdsXML.SetProvider(Nil);
          cdsXML.SaveToFile(SaveDialog.FileName, dfXml);
        finally
          dsProv.Free;
        end;
      finally
        cdsXML.Free;
      end;
    finally
      Qr.Free;
    end;
  end;
end;

Mais sais-tu faire du SQL ?
Parce qu'il est peut-être tout aussi intéressant de garder en mémoire cache tes modifs via le Tquery en mode cacheupdates.

a+

08/08/2006, 10h49
ghassenus

oui je m'en sort pas mal pour le SQl merci pour ce petit code :D je vais l'analyser pour essayer de le comprendre