Hi Xaver,
Delphi-Quellcode:
procedure TKundenverwaltung.GoToOrdersIDExecute(Sender: TObject);
begin
zqryAllOrders.SQL.Text:= 'select * from orders where orders_id = '+ DBGridorders_details.SelectedField.Text;
zqryAllOrders.Open;
zqryAllOrders.ExecSQL; // <<-- WEG DAMIT!!!
TabSheet2.Visible:= true;
PageControlcustomers.ActivePageIndex:=1;
end;
Ich erwähn es hier zum x-ten mal:
Open ist für Datenmengen und ExecSQL, um Statements auszuführen, die keine Ergebnismenge zurückliefern, ein Delete beispielsweise.
MfG
Stevie