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;
Partager