Discussion :

[derrick23]

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

[chebreg]

tu peut etres plus precis dans ta question,

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 :

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

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 :

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

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)

[derrick23]

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

Exemple:

Code :

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

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!!???

[Rayek]

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

Code :

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

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;

[Magnus]

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

Code :

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

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;

[derrick23]

Merci ca fonctionne