StringGrid: eingelesene CSV-Datei in DB schreiben (Access)

[Gollum]

Hallo,

Daten in eine Access-Datenbank kanst Du mit einer TADOQuery und einem SQL-Statement in der Art "INSERT INTO tabelle (Feld1, Feld2, ...) VALUES ([Spalte1, Zeile1], [Spalte2, Zeile1], ...)" schreiben.

Delphi-Quellcode:

// folgendes Beispiel geht einem 3-Spaltigen Stringgrid aus


var aQry:TADOQuery;
     y:Integer;
    sQry:String;
...
aQry:=TADOQuery.Create(nil);
try
  aQry.Connection:=ADOConnection1;
  sQry:='INSERT INTO tabelle (Feld1, Feld2, Feld3) VALUES(:v1, :v2, :v3)'; 
  for y:=1 to StringGrid1.RowCount do
  begin
    aQry.SQL.Text:=sQry;
    with aQry.Parameters do
    begin
      ParamValues['v1']:=StringGrid1.Cells[0, y];
      ParamValues['v2']:=StringGrid1.Cells[1, y];
      ParamValues['v3']:=StringGrid1.Cells[2, y];
    end; // with
    aQry.ExecSQL;
  end; // for y
finally
  aQry.Free;
end; // try