Discussion :

[Lyna2007]

Bonjour je viens de débuter avec delphi j'ai crée une table avec MS SQL puis je l'ai rempli a partire de delphi mais maintenant j'ai le probléme de récupérer cette tabde mon bout de code:

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
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
var
  ADOConnection :  TADOConnection;
  ADOCommande : TADOCommand;
 
begin
 
 
        ADOConnection := connection;
 
        // If still not open, bring up login prompt
        If not ( ADOConnection.Connected = true ) then
         try
           ADOConnection.LoginPrompt := true;
           ADOConnection.Open;
        except
          on E: Exception do
          begin
          end;
       end;
 
       // If still not connected, do not go further
        If ( not ( ADOConnection.Connected = true ) ) then
        exit;
 
      ADOCommande := TADOCommand.Create(nil);
      ADOCommande.Connection :=   ADOConnection;
 
      ADOCommande.CommandText := 'SELECT * FROM [test].[dbo].[joueur]';
      ADOCommande.Execute;
 
     end

j'ai utilisé la requette select comme j'ai l'habitude de faire avec d'autre language mais je ne sais pas comment récupérer ma table pour que je peux faire une boucle est afficher certain champs.
j'envisage de faire une boucle comme ca
for i:=0 to Fields.Count-1 do
begin
ShowMessage(Fields[i].Value);

Merci de votre aide

[rbh]

Salut
je vois 2 solutions :
soit tu change ton TADOCommand par un TADOQuery;
Auquel cas tu peux attaquer les champs par:

Code :

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

1
2
  MonADOQuery.Fields...
  MonADOQuery.FieldByName('...').AsInteger(ou string, float, ...)

Ou alors tu rajoute une variable Recordset:

Code :

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

1
2
3
4
5
6
7
 
MonRecordset: _Recordset;
begin
...
MonRecordset := ADOCommande.Execute;
 
MonRecordset.Fields[0].Value;

[Lyna2007]

Merci rbh

pour ce qu'est de TADOQuery je l'ai deja utilisé mais mon programme ca plante dans
query.Connection := ADOConnection;

Pour la deuxieme option ca march superbe mais je ne récupére que la premiere ligne de ma table avec la boucle

MonRecordset := ADOCommande.Execute;
for i:=0 to MonRecordset.Fields.Count-1 do
test := MonRecordset.Fields[0].Value;

ca me donne seulement la premiere ligne de ma table et MonRecordset.Fields.Count-1 me donne le nombre de colonne de ma table j'ai chercher autre chose mais je n'ai pas trouver.

est ce que je ne peux pas récuperer toute la table comme avec SqlReader
while(sqlreader.read())
test := sqlreader['name'];

Merci encore une fois pour ton aide rbh

[Rayek]

peux tu préciser ce que tu veux faire des données récupérer car il sera peut être plus simple de te montrer une autre solution.

[rbh]

Salut

Code :

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

1
2
3
4
5
6
 
While not MonRecordset.Eof do
begin
  ...
  MonRecordset.MoveNext;
end;

Les fields Sont bien le nombre de champs dans le résultat. Pour le nombre de résultats, je crois que c'est RecordCount, (à vérifier)

[Lyna2007]

Merci rbh

ca fait la faire mon probléme est résolu merci de ton soutien est ca me donne l'envi d'apprendre plus sur Delphi.