Discussion :

[gudul]

Bonjour,

j'utilise des composants DBExpress (D7) pour me connecter à ma base FireBird.
J'ai un SQLConnection, un SQLQuery, Un provider, un ClientDataset, un Datasource, un DbGrid, un edit et un bouton.
Le tout est bien connecter à ma base.
Si je met un Param avec une valeur dans l'inspecteur d'objet, cela fonctionne, par contre si j'essai de passer une valeur à mon Param, rien ne se passe.

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
  TForm1 = class(TForm)
    DataSource1: TDataSource;
    DBGrid1: TDBGrid;
    Edit1: TEdit;
    Button1: TButton;
    SQLQueryMvt: TSQLQuery;
    SQLConnection1: TSQLConnection;
    DataSetProvider1: TDataSetProvider;
    ClientDataSet1: TClientDataSet;
    procedure Button1Click(Sender: TObject);
  private
    { Déclarations privées }
  public
    { Déclarations publiques }
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  SQLQueryMvt.Close;
  SQLQueryMvt.ParamByName('Id').AsInteger := StrToIntDef(Edit1.Text, 0);
  SQLQueryMvt.Open;
end;

Voici ma requête

Code SQL :

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
 
select
  MVT.N_IDMVTSTOCKMP,      
  typmvtstockmp.s_lbltypmvtstockmp,
  utilisateur.s_nomutilisateur,
  MVT.F_QTEMVTSTOCKMP,      
  MVT.D_MVTSTOCKMPLUNDISEMAINE,
  MVT.D_MVTSTOCKMPJMAH,     
  MVT.D_IJMAHMVTSTOCKMP,    
  MVT.F_QTEMPOULOTEPLAPRESMVT
from mvtstockmp MVT
  join typmvtstockmp on typmvtstockmp.n_idtypmvtstockmp = MVT.n_idtypmvtstockmp
  join utilisateur on utilisateur.n_idutilisateur = MVT.n_idutilisateur
where
  MVT.n_idstockmpmvtstockmp = :Id
order by
  MVT.D_MVTSTOCKMPJMAH desc, MVT.N_IDMVTSTOCKMP desc

pourquoi je n'arrive pas à faire fonctionner mes paramètres ?

[Cl@udius]

Salut

Essaye avec le ParamCheck de ta requête à True pour voir...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
procedure TForm1.Button1Click(Sender: TObject);
begin
  with SQLQueryMvt do
  begin
    Close;
    ParamByName('Id').AsInteger := StrToIntDef(Edit1.Text, 0);
    ParamCheck := True;
    Open;
  end;
end;

@+ Claudius

[gudul]

Non, j'ai déjà essayé mais pas mieux

[gudul]

Par contre, avec le code suivant, cela fonctionne.

Code :

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

1
2
3
  ClientDataSet1.Active := False;
  SQLQueryMvt.ParambyName('Id').AsInteger := StrToIntDef(Edit1.Text, 0);
  ClientDataSet1.Active := True;