Réutilisation d'un TSQLQuery ?

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:

---

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 !

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:

---

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:

---

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

Bonjour,

Un petit complément ici

@+

Merci a vous 2,

Ca fonctionne pile poil maintenant.

:king: