Devart Forums

Erreur à : 17:10:01 le 2008-02-29
Classe d'erreur :EMyError
Message d'erreur :
#42000Query was empty
Message:MyConnection error in MyConnection1Error 1065
#42000Query was empty

Sample Code

Function TMainForm.DelEmptyClock(Sender: TObject):Boolean;
Var Qry2 :TMyCommand;
begin
Qry2 := nil;
Try
Screen.Cursor :=crHourGlass;
Qry2 := TMyCommand.Create(self);
Qry2.Connection :=MyConnection1;
Qry2.Prepare;
Qry2.SQL.Text := 'Delete'+#13#10+
'From Punch'+#13#10+
'Where DEL ='+ '1'+#13#10+
'Order by DEL;';
Try
Qry2.execute;
Except
LogOperation('Impossible ouvrir Qry2 := tMyCommand.create(self)',PROD);
End;
Finally
Qry2.UnPrepare;
Result := True;
Qry2.Free;
Screen.Cursor := crDefault;
end;
end;

Why if I change tMyCommand by tMyQuery I received no error ?

Daniel Fagnan wrote:Erreur à : 17:10:01 le 2008-02-29
Classe d'erreur :EMyError
Message d'erreur :
#42000Query was empty
Message:MyConnection error in MyConnection1Error 1065
#42000Query was empty

Sample Code

Function TMainForm.DelEmptyClock(Sender: TObject):Boolean;
Var Qry2 :TMyCommand;
begin
Qry2 := nil;
Try
Screen.Cursor :=crHourGlass;
Qry2 := TMyCommand.Create(self);
Qry2.Connection :=MyConnection1;
Qry2.Prepare;
Qry2.SQL.Text := 'Delete'+#13#10+
'From Punch'+#13#10+
'Where DEL ='+ '1'+#13#10+
'Order by DEL;';
Try
Qry2.execute;
Except
LogOperation('Impossible ouvrir Qry2 := tMyCommand.create(self)',PROD);
End;
Finally
Qry2.UnPrepare;
Result := True;
Qry2.Free;
Screen.Cursor := crDefault;
end;
end;

Why if I change tMyCommand by tMyQuery I received no error ?

try to put
Qry2.Prepare;
after
Qry2.SQL.Text := 'Delete'+#13#10+
'From Punch'+#13#10+
'Where DEL ='+ '1'+#13#10+
'Order by DEL;';

you can't prepare a empty SQL-Query

It`s exactly the right answer

all is ok now

thanl you

Daniel Fagnan wrote:It`s exactly the right answer

all is ok now

thanl you

ok.