Discussion :

[vbcasimir]

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 :

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

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

[mika]

Tu veux faire quoi au juste avec ta requete

[vbcasimir]

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

[Magnus]

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

[vbcasimir]

en quoi est-il mieux ?

[mika]

Ton résultat peut être mis dans un Dbgrid

[vbcasimir]

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

[Magnus]

A tout hasard,

Code :

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

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.

[Benjamin GAGNEUX]

Salut,

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

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

Code :

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

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+

[vbcasimir]

merci beaucoup pour ce coup de pouce !!!

[vbcasimir]

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

Code :

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

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

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

[vbcasimir]

bon j'ai trouvé la bonne synthaxe

Code :

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

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