problème de requête Résolu

Question

Bonjour &#224; tous ! J'ai un probl&#232;me que j'aimerais r&#233;soudre tr&#232;s rapidement. En fait j'ai fais une ADOQuery qui contient ceci :
UPDATE table
SET nombre=:nbr, retour=:r
WHERE numero=:num

nbr est un integer, retour un bool&#233;en, et numero un integer.

Dans mon code j'ai :
Procedure Form1.Button1Click
ADOQuery.close;
ADOQuery.Parameters[0].value:=StrToInt(DBEdit1.Text);
ADOQuery.Parameters[1].value:=DBCheckBox1.Checked;
ADOQuery.Parameters[2].value:=StrToInt(DBText1.Caption);
ADOQuery.ExecSQL;

Retour prend la valeur d'une case &#224; cocher (DBCheckBox). Le probl&#232;me est le suivant : la requ&#234;te fonctionne tr&#232;s bien mais une seule fois. Les fois suivantes le message suivant s'affiche : "Type incompatible dans l'expression du crit&#232;re".
Je ne sais absolument pas &#224; quoi c'est d&#251; et si je ferme le programme et que je le relance cela refonctionne mais encore pour une seule fois !
Alors si quelqu'un &#224; d&#233;j&#224; eu le probl&#232;me ou connait la solution, merci de m'aider

pseudoOM

pseudoOM · Accepted Answer

Merci pour l'aide mais cela ne fonctionne pas ! Il m'envoit un message du genre "Type de donn&#233;es incompatible". Mais pas de panique j'ai trouv&#233; la solution :

Procedure Form1.Button1Click(Sender: TObject);
var
nbr, numero, retour: string;
begin
retour:= BoolToStr(DBCheckBox1.Checked);
nbr:=DBEdit1.EditText;
numero:=DBText1.Caption;
DataModule1.ADOQuery.Close;
 with  DataModule1.ADOQuery do 
begin
  with SQL do
  begin
  Clear;
  Add('UPDATE nomdetable');
  Add('SET nombre ='+nbr+', rentre='''+retour+'''');
  Add('WHERE num='+numero);
  end;
ExecSQL;
end;
end;

pseudoOM

cs_Delphiprog · Answer

Remplace :
ADOQuery.Parameters[1].value:=DBCheckBox1.Checked;

par :
ADOQuery.Parameters[1].value:=QuotedStr(BoolToStr(BDBCheckBox1.Checked, True));

Explication :
BoolToStr renvoie une chaine lorsque le second param&#232;tre est True, sinon renvoie 0 ou 1 selon la valeur du premier argument.
Dans la requ&#234;te, il faut mettre les valeurs bool&#233;ennes en guillemets. C'est ce que fait la fonction QuotedStr au final.


<HR color=#008000>
Pensez &#224; cliquer sur R&#233;ponse accept&#233;e lorsque la r&#233;ponse vous convient.
http://www.croix-rouge.fr/index/partner_campagne.html

pseudoOM · Answer

Encore une petite question qui n'a rien &#224; voir : &#224; quoi servent les points que l'on accumule chaque jour  sur le site ?

pseudoOM

Problème de requête

3 réponses

Votre réponse

Discussions similaires