Discussion :

[sasuke18]

bonjour,
je débute en delphi et j'ai un petit souci je souhaite que vous puissiez me donner un coup de main svp....
donc j'ai deux combobox d'ou je voudrai récupérer les valeur pour m'a requête sql:
j'ai fait comme suit:

Code :

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

1
2
3
4
5
6
7
procedure TForm6.Button2Click(Sender: TObject);
begin
 query1.active:=false;
 query1.ParamByName('an').Value:=ComboBox1.Text;
 query1.ParamByName('vil').Value:=ComboBox2.Text;
 query1.Open;
end;

et voila ma requete:

Code sql :

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

1
2
3
select count(*)
from etudiant
where ville= :vil and annee= :an

merci

[Cl@udius]

Bonjour

j'ai fait comme suit:

Et ?

Tu as un message d'erreur ? ou bien tu n'obtiens pas le résultat escompté ?

@+ Claudius

[ShaiLeTroll]

Attention au Conversion de Type Chaine (propriété Text) vers du numérique ou type DateTime

[sasuke18]

Bonjour


Et ?

Tu as un message d'erreur ? ou bien tu n'obtiens pas le résultat escompté ?

@+ Claudius

pardon pour ne pas avoir précisé:

j'ai un message d'erreur "type mismatch in expression"
si j'essaye comme ça:

Code :

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

1
2
3
4
5
6
procedure TForm6.Button2Click(Sender: TObject);
begin
 query1.active:=false;
 query1.ParamByName('an').Value:=ComboBox1.Text;
 query1.Open;
end;

Code sql :

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

1
2
3
SELECT count(*)
FROM etudiant
WHERE annee= :an

ça marche et la valeur et récupérée normalement du combobox mais moi j'ai besoin des valeurs des deux combobox pour ma requete.
merci

[Cl@udius]

Attention aux types des champs.

Comme ceci ?

Code :

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

1
2
3
4
5
6
7
procedure TForm6.Button2Click(Sender: TObject);
begin
 query1.active:=false;
 query1.ParamByName('an').AsInteger := StrToInt(ComboBox1.Text);
 query1.ParamByName('vil').AsString := ComboBox2.Text;
 query1.Open;
end;

@+

[sasuke18]

Attention aux types des champs.

Comme ceci ?

Code :

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

1
2
3
4
5
6
7
procedure TForm6.Button2Click(Sender: TObject);
begin
 query1.active:=false;
 query1.ParamByName('an').AsInteger := StrToInt(ComboBox1.Text);
 query1.ParamByName('vil').AsString := ComboBox2.Text;
 query1.Open;
end;

@+

merci pour réponse j'ai essayé mais là j'ai le message suivant:
"combobox1 is not a valid integer value"

le champs annee et de type N dans ma table.

[Cl@udius]

"combobox1 is not a valid integer value"

Tu as bien sélectionné une valeur dans ce ComboBox qui est censée être une valeur numérique ?

le champs annee et de type N dans ma table.

C'est du Paradox ça, longtemps que je ne travaille plus avec le BDE.

[sasuke18]

Tu as bien sélectionné une valeur dans ce ComboBox qui est censée être une valeur numérique ?


C'est du Paradox ça, longtemps que je ne travaille plus avec le BDE.

j'ai revu et réessayé y a plus de message d'erreur mais le résultat est toujours égale à 0 même si ma base de données est bien remplie

[sasuke18]

merci infiniment le problème se posait dans le bidimode maintenant ça fonctionne
a la perfection.

[Cl@udius]

Content pour toi

Il suffit maintenant de conclure cette discussion en appuyant sur le bouton en bas de celle-ci.

@+