Discussion :

[jackvpt]

Bonjour à toutes et à tous,

Soit une base de données avec les champs 'CATEGORIE', 'QUESTION' et 'REPONSE' gérée sous Delphi avec des composants UIB (Database, Transaction, Dataset et Query) et un Datasource relié à un DBGrid.

Je lance une requête du genre:

Code :

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

1
2
3
Query.Sql.Clear;
Query.Sql.Add('SELECT QUESTION FROM TABLE WHERE CATEGORIE=' + quotedstr('CAT1'));
Query.Execsql;

Tout se passe bien, j'ai le résultat dans mon DBGrid.

Comment faire pour récupérer les valeurs du champ 'QUESTION' et les stocker dans une variable ?

J'ai cherché dans le forum et la FAQ mais les exemples que je trouve ne fonctionnent pas avec les composants UIB:

Code :

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

1
2
3
ShowMessage(Query1.Fields[0].AsString);
 
Edit1.Text := MaQuery.FieldByName('blabla').AsString;

Qui aurait la gentillesse de me donner un bout de code exemple avec les UIB pour que je puisse m'en inspirer ???

Merci à tous

[Cl@udius]

Salut

Query dans ton exemple, c'est bien un TUIBQuery ?

Si oui, cela donnerait ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
  with UIBQuery1 do
  begin
    SQL.Clear;
    SQL.Add('SELECT FIRST 1 QUESTION FROM TABLE WHERE CATEGORIE = ?;');
    Params.AsString[0] := 'CAT1';
    try
      Open;
      Edit1.Text := Fields.ByNameAsString['QUESTION'];
    finally
      Close(etmCommit);
    end;
  end;

Quelques remarques au passage:

• Avec un SELECT on fait un Open et non ExecSQL (on ne répètera jamais assez).
• Avec le UIB on utilise Execute pour les requêtes INSERT, UPDATE, DELETE ou requêtes DDL. ExecSQL étant réservé aux scripts.
• Après la lecture des données, ne pas oublier de faire un Commit.

Comment faire pour récupérer les valeurs du champ 'QUESTION' et les stocker dans une variable ?

J'ai ajouté FIRST 1 dans l'exemple de requête, car je ne vois pas comment tu peux stocker de multiples valeurs dans une seule variable.

@+ Claudius

[jackvpt]

Bonsoir Cl@udius et merci pour ta réponse ,

C'est effectivement un

Code :

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

Fields.ByNameAsString['QUESTION'];

que je cherchais.

A bientôt...