Discussion :

[Louis Griffont]

Bonjour

Voila, dans un même traitement, j'utilise d'abord un TSQLQuery pour obtenir un résultat, puis je veux utiliser le même TSQLQuery pour obtenir un second résultat, mais là Lazarus plante me disant que je ne peux pas le faire !

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
 
         sql_Local.SQL.Text:='DESCRIBE '+stl_tblNom;
         Try
            sql_Local.ExecSQL;
            sg_Tables.Cells[2,j] := IntToStr( sql_Local.RecordCount);
         Except
            On E:Exception do ShowMessage( 'Erreur Describe : '+E.Message);
         End;
         sql_local.close;
         sql_local.sql.text := 'select count(*) from '+stl_tblNom;
         try
//CELUI-LA PLANTE ! 
            sql_Local.ExecSQL;
            sg_Tables.Cells[3,j]:=sql_Local.Fields[0].AsString;
         Except
               On E:Exception do showmessage( 'Erreur Count : '+E.Message);
         End;
         sql_local.close;

Que puis-je faire ? Merci !

[Invité]

Bonjour,

Pour avoir essayé les composants natifs, il y a quelques semaines (et les avoir abandonnés rapidement), il me semble que les requêtes SELECT s'ouvrent avec Open (comme avec ZeosLib)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
//zQuerySUID.close; Eventuellement
 zQuerySUID.SQL.Clear;
 zQuerySUID.SQL.Add('SELECT.....;')
try
  zQuerySUID.Open;
  zQuerySUID.First;
  while not zQuerySUID.Eof do begin
    lbRep.Items.Add(zQuerySUID.Fields[0].AsString);
    zQuerySUID.Next;
  end;
  zQuerySUID.Close;
except...

et ceci, même si on n'attend qu'une réponse (COUNT ou LIMIT 1)

Code :

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

1
2
3
4
5
6
7
8
9
//zQuerySUID.close; Eventuellement
 zQuerySUID.SQL.Clear;
 zQuerySUID.SQL.Add('SELECT.... LIMIT 1;')
try
  zQuerySUID.Open;
  zQuerySUID.First;
  if not zQuerySUID.Eof then sResult=zQuerySUID.Fields[0].AsString;
  zQuerySUID.Close;
except...

et non pas avec ExecSQL que l'on utilise pour les INSERT, UPDATE, DELETE...

Cordialement. Gilles

[chris37]

Bonjour,

Un petit complément ici

@+

[Louis Griffont]

Merci a vous 2,

Ca fonctionne pile poil maintenant.