Probleme mit INSERT INTO

[Chris1986]

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