StringGrid zu Access-Datenbank

[Moyyer]

Hi Chris

Ich geb dir mal den Sourcecode. Viellciht hilft das ja

Code:

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