Executer plusieurs requêtes par un seul composant query

**magicstar** · 21/10/2009, 21h15

Bonsoir,

Je veux juste savoir si le fait d'attribuer à un seul composant query plusieurs requêtes différentes peut bloquer l'application ou produire des erreurs .

J'ai un bouton et en cliquant dessus la mise à jour de trois tables s'effectue plus une insertion dans une autre table et tout ça avec le même composant adoquery, donc j'efface son contenu avant chaque écriture du code sql.
J'ai constaté que ça marche et l'execution s'effectue d'une manière séquentielle mais je voudrai avoir votre avis,...je me demande si ça ne va pas me produire des ennuis plus tard !

**Montor** · 21/10/2009, 21h29

si tu fais une centaine d'opération avec une seule bouton cela n'implique pas TQuery ,TCommande mais lorsque tu appelle Execute une seule requête est exécutée

**BuzzLeclaire** · 21/10/2009, 22h08

Envoyé par magicstar

Bonsoir,

Je veux juste savoir si le fait d'attribuer à un seul composant query plusieurs requêtes différentes peut bloquer l'application ou produire des erreurs .

J'ai un bouton et en cliquant dessus la mise à jour de trois tables s'effectue plus une insertion dans une autre table et tout ça avec le même composant adoquery, donc j'efface son contenu avant chaque écriture du code sql.
J'ai constaté que ça marche et l'execution s'effectue d'une manière séquentielle mais je voudrai avoir votre avis,...je me demande si ça ne va pas me produire des ennuis plus tard !

Salut,

Si tu prends soins de mettre active := False avant ton SQL.Clear et un active := False apres chaque requete, tu n'aura auncun probleme.

Maintenant si tu exécute une requete par ExecSql moi je le ferais sur un autre Query.

Bye.

**magicstar** · 22/10/2009, 00h05

Merci pour vos réponses

Si tu prends soins de mettre active := False avant ton SQL.Clear et un active := False apres chaque requete, tu n'aura auncun probleme.

Et quand je mets le active := true

Envoyé par BuzzLeclaire

Maintenant si tu exécute une requete par ExecSql moi je le ferais sur un autre Query.

Bye.

...Et c'est avec le ExecSql que je les exécute

et pourquoi tu mets un autre Query..??

**Lung** · 22/10/2009, 08h27

Envoyé par BuzzLeclaire

Maintenant si tu exécute une requete par ExecSql moi je le ferais sur un autre Query.

Pourquoi ?
C'est fait pour, non ?

Moi, quand j'ai une série de traitements à faire, une TQuery, c'est suffisant.

**SergioMaster** · 22/10/2009, 08h41

Moi, quand j'ai une série de traitements à faire, une TQuery, c'est suffisant.

Et pourquoi pas un SQLScript ?

c'est vrai , il n'est peut être pas fourni avec les versions de Delphi mais il me semble en avoir vu un dans la JVCL et pas mal d'autres suites de composants d'accès aux BDD le propose .

**anapurna** · 22/10/2009, 13h16

salut

en fait le plus simple pour ne pas ce compliquer la vie
tu prend deux tquery
un que tu nomme QrMaj et l'autre QrDatas
le Premier ne sert qu'a executer les commande sql de maj (delete,update,create,insert) et le second uniquement les select
pour la maintenance c'est super pratique

ensuite tu te creer trois methodes pour les commande de maj

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
 
procedure TSCriptSql.AddSQL (Cmd: string);
begin
  qrMaj.SQL.Append (Cmd);
  if Length(qrMaj.SQL.Text)>32000 then
      EndSQL;
 
end;
procedure TSCriptSql.EndSQL ;
begin
  if Length(qrMaj.SQL.Text)>0 then
     qrMaj.execSql;
 
end;
procedure TSCriptSql.ExecSQL (Cmd: string);
begin
  AddSQL(cmd);
  EndSql;
end;

et voila tu peut soit executer directement ta mise a jour soit la mettre dans un pool est executer lorsque tu atteint un nombre important de caractere

@+ Phil

**magicstar** · 22/10/2009, 19h06

Merci à tous pour vos contributions

Envoyé par Lung

Moi, quand j'ai une série de traitements à faire, une TQuery, c'est suffisant.

Tu m'as rassuré

alors je pourrai laisser mon programme comme il est, en attendant de l'améliorer.

Envoyé par SergioMaster

Et pourquoi pas un SQLScript ?

Je ne le connais pas

et je n'ai pas trouvé où le télécharger!!
est ce qu'il fonctionne de la même manière que anapurna vient de le dire..??

**magicstar** · 22/10/2009, 19h31

Envoyé par anapurna

salut

en fait le plus simple pour ne pas ce compliquer la vie
tu prend deux tquery
un que tu nomme QrMaj et l'autre QrDatas
le Premier ne sert qu'a executer les commande sql de maj (delete,update,create,insert) et le second uniquement les select
pour la maintenance c'est super pratique

Et ça à l'air plus propre.
Voilà je prends l'exemple de cet ensemble de requêtes:

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
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
    ADOQuery1.ExecSQL;
 
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('DELETE * from Table2' );
    ADOQuery1.ExecSQL;
 
 
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('INSERT INTO Table3 (ch1, ch2, ch3) VALUES(:ch1,
:ch2,:ch3)');
     ADOQuery1.Parameters.ParamByName('ch1').Value:= Edit1.Text;
     ADOQuery1.Parameters.ParamByName('ch2').Value:= Edit2.Text;
     ADOQuery1.Parameters.ParamByName('ch3').Value:= Edit3.Text;
     ADOQuery1.ExecSQL;

Comment j'utiliserai ces méthodes dans ce cas là

TSCriptSql.ExecSQL (Cmd: string);
TSCriptSql.AddSQL (Cmd: string);
TSCriptSql.EndSQL ;

Merci

**Montor** · 22/10/2009, 19h50

tu as oiblier de mettre dans le code

Code :

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

1
2
active := False ;
active := true;

**Cl@udius** · 23/10/2009, 09h41

Envoyé par Montor

tu as oiblier de mettre dans le code

Code :

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

1
2
active := False ;
active := true;

Non non

, Active à True/False ou Open/Close est réservé aux requêtes sélection qui renvoient un curseur sur des données. Ce n'est pas le cas ici.

@+ Claudius

**anapurna** · 23/10/2009, 12h23

salut

Envoyé par magicstar

Et ça à l'air plus propre.
Voilà je prends l'exemple de cet ensemble de requêtes:

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
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
    ADOQuery1.ExecSQL;
 
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('DELETE * from Table2' );
    ADOQuery1.ExecSQL;
 
 
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('INSERT INTO Table3 (ch1, ch2, ch3) VALUES(:ch1,
:ch2,:ch3)');
     ADOQuery1.Parameters.ParamByName('ch1').Value:= Edit1.Text;
     ADOQuery1.Parameters.ParamByName('ch2').Value:= Edit2.Text;
     ADOQuery1.Parameters.ParamByName('ch3').Value:= Edit3.Text;
     ADOQuery1.ExecSQL;

Comment j'utiliserai ces méthodes dans ce cas là

Merci

salut dans ton cas se serait

Code :

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

1
2
3
4
ExecSQL (' INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
  ExecSQL ('DELETE * from Table2');
  st := 'INSERT INTO Table3 (ch1, ch2, ch3) VALUES(%s,%s,%s)'  
  ExecSQL (Format(st,[QuotedStr(Edit1.Text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),]);

@+ Phil

**magicstar** · 23/10/2009, 17h18

Salut,

Envoyé par anapurna

Code :

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

1
2
3
4
ExecSQL (' INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
  ExecSQL ('DELETE * from Table2');
  st := 'INSERT INTO Table3 (ch1, ch2, ch3) VALUES(%s,%s,%s)'  
  ExecSQL (Format(st,[QuotedStr(Edit1.Text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),]);

Phil

et ça sert à quoi les deux autres méthodes!!, AddSQL et EndSQL ??

**anapurna** · 23/10/2009, 18h29

salut

bin tu peut faire

Code :

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

1
2
3
4
5
6
 
AddSQL (' INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
 AddSQL ('DELETE * from Table2');
  st := 'INSERT INTO Table3 (ch1, ch2, ch3) VALUES(%s,%s,%s)'  
  AddSQL (Format(st,[QuotedStr(Edit1.Text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),]);
EndSql;

a la difference du execsql celui-ci ne seras executer qu'a la fin au momment du endSql ou lorsque la taille du scripte depasse la capacité de 32 Ko

je pensai que le code ete clair comme de l'eau de roche mais faut croire que non

@+ Phil

**Franck SORIANO** · 23/10/2009, 19h24

Envoyé par magicstar

Voilà je prends l'exemple de cet ensemble de requêtes:

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
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
    ADOQuery1.ExecSQL;
 
    ADOQuery1.SQL.Clear;
    ADOQuery1.SQL.Add('DELETE * from Table2' );
    ADOQuery1.ExecSQL;
 
 
     ADOQuery1.SQL.Clear;
     ADOQuery1.SQL.Add('INSERT INTO Table3 (ch1, ch2, ch3) VALUES(:ch1,
:ch2,:ch3)');
     ADOQuery1.Parameters.ParamByName('ch1').Value:= Edit1.Text;
     ADOQuery1.Parameters.ParamByName('ch2').Value:= Edit2.Text;
     ADOQuery1.Parameters.ParamByName('ch3').Value:= Edit3.Text;
     ADOQuery1.ExecSQL;

Comment j'utiliserai ces méthodes dans ce cas là

Merci

J'ai franchement envi de dire que le composant TADOQuery ne te sert à rien :

Code :

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

1
2
3
4
5
6
7
 
var
  NbRec: OleVariant;
 
ADOConnection.Execute('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT * FROM Table2', NbRec, [eoExecuteNoRecords]);
ADOConnection.Execute('DELETE * from Table2' , NbRec, [eoExecuteNoRecords]);
...

En fait, en vérifiant dans mon Delphi, tu peux même faire :

Code :

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

1
2
3
 
ADOConnection.Execute('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT * FROM Table2');
ADOConnection.Execute('DELETE * from Table2');

mais je pense que ça doit être récent.

Tu as également la version Script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  SQL : TStrings;
 
begin
  SQL := TStringList.Create;
  try
    SQL.Add('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT * FROM Table2');
    SQL.Add('DELETE * from Table2');
    ...
    ADOConnection.execute(SQL.Text);
  finally
    SQL.Free;
  end;

**magicstar** · 23/10/2009, 23h40

Envoyé par anapurna

salut

bin tu peut faire

Code :

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

1
2
3
4
5
6
 
AddSQL (' INSERT INTO  Table1 (ch1, ch2,ch3) SELECT* FROM Table2');
 AddSQL ('DELETE * from Table2');
  st := 'INSERT INTO Table3 (ch1, ch2, ch3) VALUES(%s,%s,%s)'  
  AddSQL (Format(st,[QuotedStr(Edit1.Text),QuotedStr(Edit2.Text),QuotedStr(Edit3.Text),]);
EndSql;

a la difference du execsql celui-ci ne seras executer qu'a la fin au momment du endSql ou lorsque la taille du scripte depasse la capacité de 32 Ko

je pensai que le code ete clair comme de l'eau de roche mais faut croire que non

@+ Phil

Merci Phil, c'est moi qui est nulle

.... j'ai cru que je devrai utiliser les 3 méthodes pour une requête

, ce n'est que maintenant que j'ai bien compris leur fonctionnement.

**magicstar** · 23/10/2009, 23h51

Envoyé par Franck SORIANO

Code :

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

1
2
3
 
ADOConnection.Execute('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT * FROM Table2');
ADOConnection.Execute('DELETE * from Table2');

mais je pense que ça doit être récent.

ça ne marche pas l'erreur est :

Undeclared identifier ADOConnection

Envoyé par Franck SORIANO

Tu as également la version Script :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
var
  SQL : TStrings;
 
begin
  SQL := TStringList.Create;
  try
    SQL.Add('INSERT INTO  Table1 (ch1, ch2,ch3) SELECT * FROM Table2');
    SQL.Add('DELETE * from Table2');
    ...
    ADOConnection.execute(SQL.Text);
  finally
    SQL.Free;
  end;

et ça aussi ne marche pas : erreur

Unknown directive 'SQL'

**Franck SORIANO** · 24/10/2009, 08h40

[QUOTE=magicstar;4739811ça ne marche pas l'erreur est :

Undeclared identifier ADOConnection
[/QUOTE]
ADOConnection, c'est le composant connexion que tu utilises avec ADO. Il faut que tu mettes le nom de ton composant.