Discussion :

[souminet]

Bonjour à tous et à toutes

Voilà, pour les besoins de mon application j'aurais besoin d'implémenter la même structure de requête sur des tables différentes....
Le code est le suivant:

Code :

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

1
2
3
4
5
6
7
procedure TFAbsence.abledesAbsents3Click(Sender: TObject);
begin
datamodule5.Qarchiv.SQL.Clear;
datamodule5.Qarchiv.SQL.ADD('INSERT INTO "ArchAbs.DBF"(NUM, MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES)');
datamodule5.Qarchiv.SQL.ADD('SELECT NUM,MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES FROM "TempAbs.DBF"');
datamodule5.Qarchiv.ExecSQL;
end;

pour les tables: TempAbs.DBF et ArchAbs.DBF

Maintenant, il faudrait la même chose pour les 2 autres tables différentes!

Pourrais-je utiliser le même Query, dans un code semblable (En changeant biensur les noms des tables), le code serait associé à l'événement onclick d'un autre bouton: Archive2

Merci +++

[ero-sennin]

Salut,

Tu peux très bien te servir du même TQuery pour faire tes requêtes SQL. Le tout, c'est de bien vider le contenu du TQuery donc comme tu le fais via un Clear ...

Donc si je comprends bien, tu auras un second bouton qui va contenir la même requête mais pour une table différente ...

A+

[EDIT]
Exemple :

Code :

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

1
2
3
4
5
6
7
procedure TFAbsence.Archive2Click(Sender: TObject);
begin
datamodule5.Qarchiv.SQL.Clear;
datamodule5.Qarchiv.SQL.ADD('INSERT INTO "AutreTable1.DBF"(NUM, MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES)');
datamodule5.Qarchiv.SQL.ADD('SELECT NUM,MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES FROM "AutreTable2.DBF"');
datamodule5.Qarchiv.ExecSQL;
end;

[freud]

normalement oui, juste à aprés datamodule5.Qarchiv.ExecSQL;
tu refait un autre SQL.Clear et tu met chaine SQL

[Cl@udius]

Salut

Tu peux te faire une petite fonction qui va construire ta requête avec les noms de tables qui vont bien:

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
 
function SetSQLText(const AInto, AFrom: string): string;
const
  SQL = 'INSERT INTO "%s"(NUM, MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES) ' +
    'SELECT NUM,MATRICULE,PUCE,NOM,PRENOM,FONCTION,DEPT,DATES FROM "%s"');
begin
  result := Format(SQL, [AInto, AFrom]);
end;
 
 
  // ...
  with DataModule5.Qarchiv do
  begin
    SQL.Text := SetSQLText('ArchAbs.DBF', 'TempAbs.DBF');
    ExecSQL;
    Close;
  end;
  // ...

@+ Claudius

[souminet]

Ok, Merci ++

La question ne devrait plus se poser !!!

[moezben]

Salut
Trés bonne réponse de Cl@udius , en faite , je veux juste ajouter pour des raisons de sécurités de fermer la requête par

Code :

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

1
2
 
datamodule5.Qarchiv.Close;

Ensuite de mettre sa datasource à Nil

Code :

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

1
2
 
datamodule5.Qarchiv.Datasource := nil;

Bon , c'est ce que j'ai à ajouter , j'espére que ça va optimiser ton code
Bonne journée