Create SQL und fülle sie mit Werten

[joachimd]

K-Hs Beispiel etwas verbessert:

Code:

procedure InsertinDB;
begin
  adsquery.close; //zur Sicherheit
  adsquery.sql:='insert into mytable (id,name,datum,uhrzeit) ';
  adsquery.sql.add(' values(:id, :name, :datum, :uhrzeit); ');

  //Werte
  adsquery.ParamByName('id').AsInteger := 123;
  adsquery.ParamByName('name').AsString := 'Willi Wichtig';
  adsquery.ParamByName('datum').AsDate := '1.1.2017'; //hier kann locale verwendet werden
  adsquery.ParamByName('uhrzeit').AsTime := '23:12';
  adsquery.execsql;

  // dann den Block ab "Werte" sooft, wie Daten kommen
  adsquery.ParamByName('id').AsInteger := 456;
  adsquery.ParamByName('name').AsString := 'Lisa Simson';
  adsquery.ParamByName('datum').AsDate := '1.10.2017'; //hier kann locale verwendet werden
  adsquery.ParamByName('uhrzeit').AsTime := '01:17';
  adsquery.execsql;

end;

procedure irgendwas.onclick;
begin
  InsertinDB;
end;