Hallo,
geht es denn nicht so?
Delphi-Quellcode:
begin
ADOQuery1.Active:=False;
//Daten werden nicht mehr angezeigt
ADOQuery1.SQL.Clear;
If mabfrage.Text = '
'
then begin
MessageDlg ('
SQL Anweisung eingeben!',mtError,[mbOk],0)
else
begin
ADOQuery1.SQL.Add(mabfrage.Text);
ADOQuery1.ExecSQL;
end;
ADOQuery1.Active:= True;
MAusgabe.Clear;
...
Ansonsten besteht noch die Möglichkeit
Fehler mit try except einzuklammern und dann entsprechend
darauf zu reagieren.
Grüße
Klaus