Jetzt hab ich leider noch ein Problem:
Delphi-Quellcode:
procedure TDB_Frame.ButtonSQLExecuteClick(Sender: TObject);
begin
DS.DataSet :=
Query;
Query.SQL.Text := MemoSQL.Text;
try
Query.ExecSQL;
// Query.Active := false;
// Query.Active := true;
LabelSQLResult.Font.Color := clBlue;
LabelQueryRecordCount.Caption := IntToStr(
Query.RecordCount);
LabelSQLResult.Caption := '
SQL-Statement erfolgreich ausgeführt';
except
On e :
exception do
begin
LabelSQLResult.Font.Color := clRed;
LabelSQLResult.Caption := '
Fehler beim ausführen des Statements';
MemoSQLError.Text := e.
Message;
PageControlSQL.ActivePageIndex := 1;
end;
end;
end;
Wenn ich das so mache, dann kracht der bei
LabelQueryRecordCount.Caption := IntToStr(Query.RecordCount);
Weil die
Query nicht aktiv ist. Das soll der nur machen ein Select-Statement aufgerufen wird.
Hab mir das erst so überlegt:
Delphi-Quellcode:
if Query.Active = true
then
LabelQueryRecordCount.Caption := IntToStr(
Query.RecordCount);
Das geht aber nicht, da ich ja das
Query.Active := true
ausgeklammert habe.
Reinmachen kann ich ja nicht. Und ohne ExecSQL gehts auch nicht.
Wie krieg ich das hin?