Delphi et Requete SQL

J'utilise Delphi et la connexion ADO

J'aimerais savoir comment mettre une requete sql dans une variable pour pouvoir l'utiliser genre pour un edit

Genre Je veux compter la somme des valeurs d'un champs d'une table et la mettre dans un edit

Merci

tu peut etres plus precis dans ta question,

Citation:

---

comment mettre une requete sql dans une variable

---

tu parle de la requete SQL (en forme de text) ou le resultat Dataset? ta question est vraiment ambigue mais je vais essayer d'y repondre.
pour le premier cas :

Code:

---

1 2 3 4 5 6

function GetCopyOfSQLScript(Query:TADOQuery):TStrings; begin Result:=TStringList.Create; Result.Assign(Query.SQL); end;

---

cette fonction crée un objet TStrings qui contient le script SQL de ta requête

pour le 2eme cas :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

function GetDatasetCopyOf(Query:TADOQuery):TADODataSet; var TmpFilePath:String; begin TmpFilePath:='c:\TmpFile'; // tu peut changer de nom Result:= TADODataSet.Create(nil); Query.SaveToFile(TmpFilePath); Result.LoadFromFile(TmpFilePath); DeleteFile(TmpFilePath); end;

---

cette fonction créer une copie des données de ta requête, en utilisant unfichier temporaire, le resultat sera sous la forme d'un TADODataSet

=============================================
j'espere que j'ai pu repondre à ta question, (mais n'oublies pas q'il fo tjr etre precis les question ke tu poses)

Oui c'est en forme de texte car je dois prendre le résultat de la requete SQL

Exemple:

Code:

---

1 2 3 4 5

ADOQuery1.CLOSE; AdoQuery1.CLEAR; ADOQuery1.SQL.ADD( 'Select Sum(XXX) from XXX'); ADOQuery1.OPEN;

---

Et la transmettre dans un Edit.text

C'est juste ca que jveux savoir...comment transférer le résultat dans le EDIT!!???

c'et tres simple (sujet déjà vu plusieurs fois, une recherche sur le forum n'aurait pas été du luxe)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13

With AdoQuery do begin Close; SQL.Clear; SQL.Add('Select sum(xxx) as Resultat from xxx'); Open; Last; // on sait jamais certain sgbd nécessite cette fonction pour avoir le resustat de recordcount if Recordcount > then Edit1.Text := FieldByName('Resustat').asString else Edit1.Text := '0'; end;

---

Au passage j'ai corrigé les fautes de frappe de Malatar :wink: , ce qui évitera que tu postes un autre message parce que tu ne comprends pas la solution qu'il propose :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

With AdoQuery do begin Close; SQL.Clear; SQL.Add('Select sum(xxx) as Resultat from xxx'); Open; Last; // on sait jamais certain sgbd nécessite cette fonction pour avoir le resustat de recordcount if Recordcount > 0 then Edit1.Text := FieldByName('Resultat').asString else Edit1.Text := '0'; end;

---

Merci ca fonctionne :)