Discussion :

[bm1990]

Salut tous le monde, cette procédure m'affiche un message d'erreur pendant son exécution, le message d'erreur est comme suit:
"Search condition is not applicable - Native error: 30144."

Sachant que le champ state est de type string et j'utilise absolute database comme SGBD.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i := 0 to form2.groupbox1.ControlCount-1 do
if (Tcheckbox(form2.groupbox1.Controls[i]).checked=true) then
for j:=0 to form1.ControlCount-1 do
if (form1.Controls[j] is TButton) and(form1.Controls[j].Name=form2.groupbox1.Controls[i].Name)  then
begin
form1.Controls[j].Enabled:=false;
absquery1.Close;
absquery1.sql.Clear;
absquery1.SQL.Add('UPDATE master SET state=0 WHERE id='+Tcheckbox(form2.groupbox1.Controls[i]).caption);
absquery1.open;
end;

[tourlourou]

C'est apparemment la condition qui n'est pas valide : id est de quel type ?
Ensuite, si state est de type string, lui affecter 0 est-il justifié ?

[bm1990]

C'est apparemment la condition qui n'est pas valide : id est de quel type ?
Ensuite, si state est de type string, lui affecter 0 est-il justifié ?

ID est de type String aussi et pour le 0 c'est faisable. Alors où est vraiment le problème ???

[bm1990]

C'est bon j'ai trouver la solution et elle est comme suit:

Code :

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

absquery1.SQL.Add('UPDATE master SET state=0 WHERE master.id='+chr(39)+Tcheckbox(form2.groupbox1.Controls[i]).caption+chr(39));

puis à la place de

Code :

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

absquery1.Open

je l'ai remplacer par

Code :

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

absquery1.ExecSQL;

parce que j'ai eu l'erreur: error creating table handle - native error 20001

donc le code final est

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TForm2.Button1Click(Sender: TObject);
var i,j: integer;
begin
for i := 0 to form2.groupbox1.ControlCount-1 do
if (Tcheckbox(form2.groupbox1.Controls[i]).checked=true) then
for j:=0 to form1.ControlCount-1 do
if (form1.Controls[j] is TButton) and(form1.Controls[j].Name=form2.groupbox1.Controls[i].Name)  then
begin
form1.Controls[j].Enabled:=false;
absquery1.Close;
absquery1.sql.Clear;
absquery1.SQL.Add('UPDATE master SET state=0 WHERE master.id='+chr(39)+Tcheckbox(form2.groupbox1.Controls[i]).caption+chr(39));
absquery1.ExecSQL;
end;

[SergioMaster]

Bonjour,

Plutôt que d'utiliser des Chr(39) un QuotedStr(Tcheckbox(form2.groupbox1.Controls[i]).caption) serait certainement plus lisible .
Et comme je le dit souvent , même s'il est plus long de l'écrire (une instruction par paramètre), l'utilisation de paramètres est souvent mieux !

Quant au ExecSQL ou Open pour se souvenir de leur utilisation respective il suffit de se poser la question :
Est-ce que mon SQL renvoi des données :
- Oui => Open Non => ExecSQL

[bm1990]

Merci SergioMaster pour les compliments

Bonjour,

Plutôt que d'utiliser des Chr(39) un QuotedStr(Tcheckbox(form2.groupbox1.Controls[i]).caption) serait certainement plus lisible .
Et comme je le dit souvent , même s'il est plus long de l'écrire (une instruction par paramètre), l'utilisation de paramètres est souvent mieux !

Quant au ExecSQL ou Open pour se souvenir de leur utilisation respective il suffit de se poser la question :
Est-ce que mon SQL renvoi des données :
- Oui => Open Non => ExecSQL