Discussion :

[tarmo57]

Re Salut tous.J'aimerais s avoir si il est possible de ma requete de pouvoir enregistrer tous les enregistrements dans une table ? sans obligatoirement les affichés dans un DBGrid

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
With DataModule1.Query10 do
  begin
    SQL.Clear;
    SQL.Add('select * from Amicalistes.DB ');
    SQL.Add('where Date1 between :Date10 and :Date12');
 
    ParamByName('Date10').AsDateTime := DateTimePicker1.Date;
    ParamByName('Date12').AsDateTime := DateTimePicker2.Date;
 
    //try
      Open;
 
 //action
 
    end;
  end;

Merci

[SergioMaster]

sans obligatoirement les affichés dans un DBGrid

rien n'oblige a afficher un dataset dans une dbgrid !


Enfin, dépendant de la BDD non indiquée mais en général
un SQL du genre fera le travail , sans même avoir a ouvrir un dataset !

Code SQL :

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

1
2
 
INSERT INTO TABLE2 SELECT * FROM TABLE1 <WHERE ....>

cela pour 2 Tables identiques

Après l'on peut affiner

Code :

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

1
2
 
INSERT INTO TABLE1 (CHAMP1,CHAMP2) SELECT CHAMPA,CHAMPB FROM TABLE2 <WHERE .....>

[tarmo57]

Oui excuse sergio je travail avec une table paradox.

mais dans le code que tu me montre je ne peux enregistrer qu'un seul enregistrement ?
avec ma requete j'ai environs 250 lignes de trouver, il faut une boucle surement ?
mais je ne vois pas qu elle condition mettre pour faire l'enregistrement multiple de ma requete dans une autre table

[ShaiLeTroll]

Pour paradox, cela me semble du SQL un peu trop poussé !
regarde la méthode TTable.BatchMove

un peu de lecture Paradox cookbook de Frédéric BROUARD (SQLPro)

Sinon, pourquoi ne pas finir le code que tu as commencé ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Query.Open;
while not Query.EOF do
begin
  DestTable.Append();
  for i := 0 to DestTable.FieldCount - 1 do
  begin
    /*TField*/ Field := Query.FindField(DestTable.Fields[i].FieldName);
    if Assigned(Field)
      DestTable.Fields[i].Value := Field.Value;
  DestTable.Post();
  Query.Next();
end;

Sinon en SQL, un INSERT SELECT va copier l'ensemble de la requête dans la table, c'est très pratique, je l'ai souvent utilisé en MySQL, c'est le SQL qui le gère pas de boucle mais c'est innapliquable à Paradox !

Sous le module DB de Delphi 6 : fonctionnalité non supporté

Code sql :

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

1
2
insert into "c:\2myparadoxexe.db" (field_1, field_2, field_3)
select field_1, field_2, field_3 from "c:\2myparadoxexe.db"

Mais, on peut tricher un peu avec le Module DB

Code sql :

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

select field_1, field_2, field_3 from "c:\2myparadoxexe.db"

puis

Code sql :

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

1
2
insert into "c:\2myparadoxexe.db" (field_1, field_2, field_3) 
select * from ":prive:reponse.db"

Je ne connais pas comme fonctionne L'Explorateur SQL qui utilise le BDE, il doit probablement générer des tables temporaires lui aussi mais avec des numéro plutôt qu'un nom fixe comme ":prive:reponse.db", du coup, je ne sais pas faire un speudo INSERT SELECT avec L'Explorateur SQL !

Si tu arrive à reproduire le comportement du Module DB via FieldsDefs.Assign + CreateTable pour créer la table temporaire, c'est jouable

[SergioMaster]

Effectivement ,avec paradox et BDE la méthode la plus simple reste le Batchmove

[BuzzLeclaire]

Oui excuse sergio je travail avec une table paradox.

mais dans le code que tu me montre je ne peux enregistrer qu'un seul enregistrement ?
avec ma requete j'ai environs 250 lignes de trouver, il faut une boucle surement ?
mais je ne vois pas qu elle condition mettre pour faire l'enregistrement multiple de ma requete dans une autre table

Salut,

Cela dépend de ce que tu souhaites en faire après...

Car par exemple tu peux trés bien créer un Record

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Type
  TAmicale = Record
    Code     : String;
    Nom      : String;
    Date1   : String;
  End;
 
// ...
 
Var
  Amicales           : Array of TAmicale ;

Ensuite tu peux t'amuser avec :

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
procedure ArrayOfAmicales;
var
  n : Integer;
begin
 
  SetLength(Amicales,0);
  Finalize(Amicales);
 
  With DataModule1.Query10 do
  begin
    SQL.Clear;
    SQL.Add('select * from Amicalistes.DB ');
    SQL.Add('where Date1 between :Date10 and :Date12');
    try
      Active := True;
      SetLength(Amicales,Recordset.RecordCount);
      for n := 0 to High(Amicales) do
      begin
        Amicales[n].Code   := FieldByName('Code').AsString;
        Amicales[n].Nom    := FieldByName('Nom').AsString;
        Amicales[n].Date1  := FieldByName('Date1').AsString;
        next;
      end;
    finally
      Close;
    end;
  end;
end;

Et donc tu peux l'enregistrer ou tu veux par la suite, dans un fichier texte, te servir de ton record pour alimenté une base etc...

[tarmo57]

Impeccable merci a tous de votre aide