SQLQuery zur Laufzeit ausführen

[Lion]

Hallo Leute,
ich habe folgende Frage. Ich habe auf die Form1 folgende Komponente gezogen und miteinander im Objektinspektor verbunden: ODBCConnection1, SQLTransaction1, SQLQuery1, DataSource1 und DBGrid1. Das SQL-Statement wurde in den SQL-Eigenschaften von SQLQuery1 platziert, und alles läuft wie es soll.

Jetzt aber das Problem. Ich möchte zur Laufzeit mittels eines Buttons eine neue SQL-Abfrage absetzen, aber es kommt zum folgenden Fehler, siehe Screenshot. Wer weiß woran es liegt, was mache ich falsch?

Code: Alles auswählen

procedure TForm1.Button3Click(Sender: TObject);
begin
  SQLQuery1.Close;
  SQLQuery1.Clear;
  SQLQuery1.SQL.Text := 'select personal from personal';
  SQLQuery1.Open;
  SQLQuery1.ExecSQL;
  SQLTransaction1.Commit;
end;  

[MmVisual]

Diese 2 Zeilen braucht es für ein Select nicht:

Code: Alles auswählen

SQLQuery1.ExecSQL;
SQLTransaction1.Commit;

[gladio]

Die SQL-Anweisung sieht mir schon suspekt aus:
Gibt es in der Tabelle "Personal" ein Datenfeld "Personal" ?

Query.ExecSQL löste nach eine Select-Anweisung nicht so einen Fehler aus, würde geflissentlich einfach ignoriert.

[Lion]

Danke, es läuft!