ADO: ein simples INSERT

[Ajin]

Moin Ihr!

Ich hab die Lösung nun:

Delphi-Quellcode:

procedure TFmain.Button1Click(Sender: TObject);
var wert1, wert2: string;
begin
  Fmain.ado_query.Active:= FALSE;
  Fmain.ado_query.SQL.Clear;
  wert1:='Hallo Du';
  Fmain.ado_query.SQL.Append('INSERT INTO test (w1,w2) VALUES ("' + wert1 + '",'+
                                                              '"' + Wert1 + '")');
  try
    Fmain.ado_query.ExecSQL;
  except
    Messagebox(handle,'Duplikat?','',0);
  end;
end;

Mfg

Ajin