recuperer une requête avec le composant TIBSQL ??

BONJOUR ,

Je voudrais recupérer une requête avec le composant TIBSQL
pour l'instant je me connecte à la base sans problème maintenant je ne sais pas comment exploiter ce composant :

Code:

---

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

procedure TForm1.Button1Click(Sender: TObject); begin DataModule2.IBDatabase1.Params.Clear; DataModule2.IBDatabase1.Params.Append('user_name=SYSDBA'); DataModule2.IBDatabase1.Params.Append('password=admin'); DataModule2.IBDatabase1.Connected := true; DataModule2.IBTransaction1.Active := true; DataModule2.IBSQL1.SQL := 'select FULL_NAME from EMPLOYEE where FIRST_NAME = ''luke'''; DataModule2.IBSQL1.ExecQuery;   ???? end;

---

j'ai mon aide delphi qui evidemment ne fonctionne pas pour le composant IBX ARRRRRRRGGHH !!!

j'ai cherché un tutoriel qui expliquerait ça en détail mais je n'ai pas trouvé ..

Merci

Tu veux faire quoi au juste avec ta requete

bien un truc tout simple j'ai un champs texte dans lequel je saisi le nom de la personne et je recupère son prénom

Un TIBQuery ça serait pas mieux ; en + je sais m'en servir ? :wink:

en quoi est-il mieux ?

Ton résultat peut être mis dans un Dbgrid

je comprends mais là je veux juste récupérer un resultat pas plus

A tout hasard,

Code:

---

1 2 3 4 5 6

with DataModule2.IBSQL1 while not Eof do begin FieldByName('FULL_NAME').AsString; end // if end // while

---

placé par exemple dans une boucle while ne te renvoie pas la valeur de ce champ pour chacun des enregistrements de ta table ?

En tout cas c'est ce genre de procédé que j'utilise via un TIBQuery.

Salut,

Citation:

---

Envoyé par vbcasimir

j'ai mon aide delphi qui evidemment ne fonctionne pas pour le composant IBX ARRRRRRRGGHH !!!

---

:faq: :wink:


Sinon pour obtenir les résultats texte de la colonne NumChamps d'un TIBSQL : IBSQL1.Fields[NumChamps-1].AsString;

Code:

---

1 2 3 4 5 6 7

IBSQL1.SQL := 'select FULL_NAME from EMPLOYEE where FIRST_NAME = ''luke'''; IBSQL1.ExecQuery;   while not IBSQL1.Eof do begin MonMemo.Lines.add(IBSQL1.Fields[0].AsString;) IBSQL1.Next; end;

---

Quant au TIBQuery, il est préférable de limiter son utilisation au controles DB. Le TIBSQL est plus rapide et donc à privilégier.

j'espère avoir fait avancer le chmilblick.
A+

merci beaucoup pour ce coup de pouce !!! :D

par contre juste une petite question lorsque je passe le paramètre de la requête de la façon suivante

Code:

---

1 2 3 4 5

DataModule2.IBSQL1.SQL := 'update EMPLOYEE set last_name = ''totuy'' where FIRST_NAME = ''Luke''';   DataModule2.IBSQL1.ExecQuery;

---

j'ai le message d'erreur suivant

Citation:

---

[Erreur] Unit1.pas(40): Types incompatibles : 'TStrings' et 'String'

---

bon j'ai trouvé la bonne synthaxe

Code:

---

1 2 3

DataModule2.IBSQL1.SQL.Add ('select last_name from EMPLOYEE where FIRST_NAME = ''Luke''');

---