Hallo
Ich habe das Problem mitlerweile gelöst. Bevor die
SQL-Anfrage ausgefürht wird, wird geprüft, ob Daten editiert werden, oder ob Daten per Select gesucht werden.
Anschließend benutze ich entweder ExecSQL oder Query1.Sql.Add(edSQLAbfrage.text)
das sieht dann so aus:
Delphi-Quellcode:
procedure TServer.btSQLAbfrageClick(Sender: TObject);
begin
if copy (edSQLAbfrage.text, 1, 6) = '
SELECT'
then
begin
Query1.Active:=false;
Query1.Sql.Clear;
try
Query1.Sql.Add(edSQLAbfrage.text);
except
ShowMessage('
SQL Fehler! Bitte SQL-Syntax prüfen')
end;
Query1.Active:=true;
end
else
begin
Query1.SQL.Text := edSQLAbfrage.Text;
try
Query1.ExecSQL;
except
ShowMessage('
SQL Fehler! Bitte SQL-Syntax prüfen')
end;
Query1.Active:=false;
Query1.Sql.Clear;
Query1.Sql.Add('
SELECT * FROM datenbank.db');
Query1.Active:=true;
end
end;
Gruß
Christian