Discussion :

[michel71]

Bonjour,

Je tourne en rond et c'est pas bon pour mon équilibre

Plus sérieusement j’essaie d'afficher dans un StringGrid le contenu d'une table

Sur ma form j'ai un FDconnection (pas de problème )
j'ai un FDquery (pas de problème j'ai pu remplir ma table avec ce code)

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 With FDQuery1 do
        begin
          SQL.Clear;
          SQL.Add('INSERT INTO tirage (ligne, n1, n2, n3, n4, n5)');
          SQL.Add('VALUES (:ligne, :n1, :n2, :n3, :n4, :n5)');
          ParamByName('ligne').AsInteger := i;
          ParamByName('n1').AsInteger := comb[1];
          ParamByName('n2').AsInteger := comb[2];
          ParamByName('n3').AsInteger := comb[3];
          ParamByName('n4').AsInteger := comb[4];
          ParamByName('n5').AsInteger := comb[5];
           ExecSQL;
        end;

Là ou je coince c'est pour lire ma table

J'ai essayé plein de truc mais rien ne marche
donc SVP montrer moi un morceau de code pour lire cette table

avec ce code j'ai une erreur de syntaxe à la ligne 1

Code :

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

1
2
      FDQuery1.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne:=''i');
      StringGrid1.Cells[1,1] := InttoStr(row[1] );

Merci

[Papy214]

Code :

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

FDQuery1.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne := :i', [ValeurDeI]);

[Papy214]

Question quand même : pourquoi un TStringGrid ?? Une TDBGrid assoociée à un TDatasource serait plus simple

[michel71]

Bonsoir,

I est une boucle

Code :

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

1
2
3
4
5
6
 
 for i := 1 to 5 do
   begin[
     FDQuery1.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne:=''i');
      StringGrid1.Cells[1,1] := InttoStr(row[1] );
end;

[SergioMaster]

Bonjour,

on ne sait s'il s'agit d'un programme FMX ou VCL mais dans l'ensemble papy214 à raison sur un point un datasource +un DBGrid ou livebinding permettrait de se débarrasser de cette boucle.

Plusieurs remarques concernant le code d'insertion, on peut utiliser quelques trucs Firedac pour simplifier comme le FDConnection.ExecSQL.

j'écrirai ainsi :

Code :

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

1
2
3
4
5
6
const insSQL = 'INSERT INTO tirage (ligne, n1, n2, n3, n4, n5) VALUES (:ligne, :n1, :n2, :n3, :n4, :n5)';
// N.B. les paramètres n'ont pas besoin d'être nommés, à la place un ? suffit
// INSERT INTO tirage (ligne, n1, n2, n3, n4, n5) VALUES (?,?,?,?,?,?)
begin
FDConnection1.ExecSQL(insSQL,[i,comb[1],comb[2],comb[3],comb[4],comb[5]]);
end

pour la requête de lecture, d'un part il y a une erreur de syntaxe

Code SQL :

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

SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne=:i

d'autre part là encore firedac permet de condenser

Code :

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

1
2
3
4
5
6
FDQuery.SQL.Text:='SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne=:i';
for i=1 to 5 do
 begin
   FDquery1.Open('',[i]);
 end;
FDquery1.Close;

maintenant, en utilisant non plus une boucle pour la lecture, mais un ensemble de données (bien sûr livebindings éviterait ça)

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
FDQuery.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne BETWEEN 1 AND 5'); // avec livebindings juste cette ligne !!!
// écriture sans test, j'ai toujours ma dyslexie cells[col,ligne] ou cells[ligne,col]
var l:=0;
While not FDQuery.EOF do
 begin
   inc(l); pour ligne colonne;
  // passage des valeurs dans stringgrid
  StringGrid1.Cells[0,l] := FdQuery.FieldByName('ligne').asString;
  StringGrid1.Cells[1,l] := FdQuery.FieldByName('n1').asString;
  StringGrid1.Cells[2,l] := FdQuery.FieldByName('n2').asString;
  StringGrid1.Cells[3,l] := FdQuery.FieldByName('n3').asString;
  StringGrid1.Cells[4,l] := FdQuery.FieldByName('n4').asString;
  StringGrid1.Cells[5,l] := FdQuery.FieldByName('n5').asString;
  FDQuery1.Next;
 end;

[Papy214]

Bonsoir,

I est une boucle

Code :

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

1
2
3
4
5
6
 
 for i := 1 to 5 do
   begin[
     FDQuery1.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne:=''i');
      StringGrid1.Cells[1,1] := InttoStr(row[1] );
end;

De plus, au lieu de faire 5 requêtes différentes, une seule serait plus efficace.

Code :

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

FDQuery1.Open('SELECT ligne, n1, n2, n3, n4, n5 FROM tirage WHERE ligne between 1 and 5 order by ligne);

[michel71]

Bonjour,

Merci à tous pour vos réponses, je vais me pencher plus en profondeur sur les
informations que vous m'avez données
en particulier sur
FdQuery1.FieldByName
FDConnection.ExecSQL.

Encore merci
Bonne journée