DBGRID Felder und ZQuery

[xaverras]

Hallo,

ich habe eine form mit 2 Tabsheet auf die eine Tabsheet ist eine DBGrid mit einem Feld, ich möchte der Wert dieser Feld benutzen um in der
betreffenden Datensatz in der zweite Tabsheet zu springen.

der zweite Tabsheet enthält mehrere DBEdit die an eine Datasource gelinkt sind (ZqryAllOrders = select id, order_id, .... from orders),
3 DBGrids die von der Datensource abhängen wo die DBEdit gelingt sind z.B select * from order_deltails where order_id := order_id.

auf die Erste Tabsheet habe ich eine PopUpMenu, der an ein Action gelinkt ist, die Action ist wie folgend:

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;
  TabSheet2.Visible:= true;
  PageControlcustomers.ActivePageIndex:=1;

end;

So jetzt das Problem ist, dass wenn ich die Action durch den PoUpMenu ausführe werde ich zwar auf der Zweite Tabsheet gebracht alle Unterquery werden auch richtig angezeigt, jedoch die Hauptquery ist deakriviert und wird überhaupt nichts angezeigt, wenn die Unterquery auf die richtige Datensätze gesetzte werden das heißt dass in Hintgrund doch richtig gearbeitet hat, nur warum zeigt nichts an?
Ich habe alles Mögliches probiert, mit query open, close, clear, hat nichts gebracht.


Danke

Xaver

[edit=Sharky]Delphi-Tags eingefügt. Mfg, Sharky[/edit]

[Stevie]

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

[xaverras]

Hallo Stevie,

erstmal danke es funktioniert, ich bin noch anfänger mit Delphi... Jetzt wird richtig angezeigt, jedoch ist ein Problem enstanden, zwar kann man
nicht me hr navigieren, da die Datasource bleibt stecken auf die where Klausel.

gibt eine Möglichkeit, nach der Ausführung zurück auf 'select * from orders' zu setzten ohne das Anzeigen zu Verändern?

Danke.

Xaver

[Stevie]

Zitat von xaverras:

Jetzt wird richtig angezeigt, jedoch ist ein Problem enstanden, zwar kann man
nicht mehr navigieren, da die Datasource bleibt stecken auf die where Klausel.

Äh, was?

Zitat von xaverras:

gibt eine Möglichkeit, nach der Ausführung zurück auf 'select * from orders' zu setzten ohne das Anzeigen zu Verändern?

Klar, einfach SQL.Text ändern