Create SQL und fülle sie mit Werten

[nwns]

Hallo erstmal,
ich habe ein problem mit der erstellung einer SQL Tabelle.
Ich möchte gerne eine Tabelle mit 4 Rows füllen, mit Name, Datum, Uhrzeit, ID
wie mache ich dies ich möchte diese Procedure mit einem Button click ausführen.
Bin neuling.
Danke im Voraus

[hoika]

Hallo,
auch als Neuling gibt es Google

http://www.delphipraxis.net/73214-ad...e-per-sql.html

[himitsu]

Er will doch kein CREATE TABLE sondern blos ein INSERT machen, oder klingt das nur so?

Also das INSERT-Statement manuell füllen und wegschicken (am Besten mit Parametern)
oder "SELECT * FROM ...", DataSet.Open, DataSet.Insert, DataSet.FieldByName().Value/.AsIrgendwas:=... und dann DataSet.Post.

[p80286]

Da ich ADS nicht näher kenne, hier nur der prinzipielle Aufbau

Delphi-Quellcode:

procedure InsertinDB;
begin
  adsquery.sql:='insert into mytable (id,name,datum,uhrzeit) values(123,'willi wichtig','2017-01-01','23:12');
  adsquery.execsql;
end;

procedure irgendwas.onclick;
begin
  InsertinDB;
end;

Die Syntax ist nicht vollständig und korrekt!
Das soll nur den ungefähren Weg aufzeigen;

Gruß
K-H

[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;