base de donné sous firebird & delphi 2010

slt
je travaille sous le delphi 2010 la base de donné sous firebird et les composant s UIB pour accéder a la base de donné
je voulais tester l'affichage de la base de donné dans un stringGrid mais kand je l'éxecute et je click sur le button , on m'affiche rien
ps: j'ai testé la base de donné si elle est bien connecté , tout est bien
peut etre vous avez une idée différente sur ce que je fais
voisi le code que j'ai implémenté:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.Button1Click(Sender: TObject); var i:integer;   begin i:=1; Query.Close(); Query.SQL.Clear;   Query.SQL.Add('SELECT NOM,PRENOM FROM ESSAIE1' );   Query.Open();   Grid.RowCount:=2; while Not Query.Eof do begin Grid.Cells[0,i]:=Query.Fields.ByNameAsString['NOM']; Grid.Cells[1,i]:=Query.Fields.ByNameAsString['PRENOM']; Inc(i); Grid.RowCount:=Query.Fields.RecordCount+1; Query.Next;   end;   Query.Close(); end;

---

Bonsoir,

Vous devez exécuter votre requête au sein d'une transaction en utilisant le composant correspondant :

Code:

---

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

Query.Close(); Query.SQL.Clear; Query.SQL.Add('SELECT NOM,PRENOM FROM ESSAIE1'); IF UIBTransaction1.InTransaction Then UIBTransaction1.Commit; Try UIBTransaction1.StartTransaction; Query.Open; //Votre boucle de lecture UIBTransaction1.Commit; Except UIBTransaction1.RollBack: End;

---

Et ne pas oublier la méthode de déplacement du DataSet qui ne figure pas dans votre code :

Code:

---

1 2	Query.Next;

---

Citation:

---

Code:

---

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

Query.Close(); Query.SQL.Clear; Query.SQL.Add('SELECT NOM,PRENOM FROM ESSAIE1'); IF UIBTransaction1.InTransaction Then UIBTransaction1.Commit; Try UIBTransaction1.StartTransaction; Query.Open; //Votre boucle de lecture UIBTransaction1.Commit; Except UIBTransaction1.RollBack: End;

---

---

j'ai essayé ta méthode mais toujour rien , on m'affiche rien :?

Citation:

---

Et ne pas oublier la méthode de déplacement du DataSet qui ne figure pas dans votre code :

---

sii elle est figure dans le code , elle est juste apré :

Citation:

---

Grid.RowCount:=Query.Fields.RecordCount+1;

---

merci ;)

Qu'es-ce qui n'affiche rien ?
Avez-vous lié le compo transaction avec celui de la Database ?
Recevez-vous un message ?
Avez-vous d'abord etabli une connexion avec la BDD ?

Code:

---

1 2 3 4 5 6

Try UIBDatabase1.Connected:=true; Except Showmessage('Connexion non etablie'). End;

---

Essayez de tester juste aprés l'Ouverture si le DataSet est rempli:

Code:

---

1 2 3

Query.Open; Showmessage(IntToStr(Query.RecordCount));

---

Citation:

---

Envoyé par fifi_dz

sii elle est figure dans le code , elle est juste apré :

---

Désolé, je n'ai pas fais attention parce qu'elle se trouve sur la même ligne que Query.Fields.RecordCount+1

Citation:

---

Avez-vous lié le compo transaction avec celui de la Database ?

---

oui toute est bien lié

voici le code exacte :)

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

procedure TForm1.Button2Click(Sender: TObject); var i:integer; info:Tficheinfo; begin i:=1; Query.Close(); Query.SQL.Clear;   {Commande:TmbTBXStringGrid; }     Query.SQL.Add('SELECT NOM,PRENOM FROM TAB' );   Query.Open();   while Not Query.Eof do begin Grid.Cells[0,i]:=Trim(Query.Fields.ByNameAsString['NOM']); Grid.Cells[1,i]:=Query.Fields.ByNameAsString['PRENOM'];   Query.Next; Grid.RowCount:=Query.Fields.RecordCount+1; Inc(i); end;   Query.Close(); end;

---

le problème c'était au niveau de la requête , au lieu de mettre le nom de la table , j'ai mi le nom de la base de donné :?
merci :ccool: