Spock, du bist ein Held!!
Jetzt sieht meine Methode so aus und es funzt:
Delphi-Quellcode:
procedure TForm1.Button1Click(Sender: TObject);
begin
AdoQuery1.sql.clear;
AdoQuery1.SQL.add('create table tmp (Nr c(10), Titel c(100), SearchText c(100))');
AdoQuery1.ExecSQL;
AdoQuery1.sql.clear;
AdoQuery1.SQL.add('select * from tmp');
AdoQuery1.ExecSQL;
ADOConnection1.Connected:= true;
AdoQuery1.Open;
AdoQuery1.Append;
AdoQuery1.FieldByName('Nr').AsString:='2';
AdoQuery1.FieldByName('Titel').AsString:='Der Pate';
AdoQuery1.FieldByName('SearchText').AsString:='DER PATE';
AdoQuery1.Post;
end;
Schwere Geburt, Danke!
Live long and prosper!
Gambit