这个很简单,你另外用一个ADOquery,
ADOQuery的ConnectString指向ACESS表
用下面语句实现
with Adoquery1 do
begin
first;
while not eof do
begin
Adoquery2.Close;
Adoquery2.SQL.Text:='insert……';
Adoquery2.Parambyname('field1').Values:=Adoquery1.fieldbyname('field1').Values;
……;
Adoquery2.ExecSQL;
next;
end;
first;
end;
ADOQuery的ConnectString指向ACESS表
用下面语句实现
with Adoquery1 do
begin
first;
while not eof do
begin
Adoquery2.Close;
Adoquery2.SQL.Text:='insert……';
Adoquery2.Parambyname('field1').Values:=Adoquery1.fieldbyname('field1').Values;
……;
Adoquery2.ExecSQL;
next;
end;
first;
end;
另SaveToFile应该不能一条一条的写吧。
就是我找到了我存的文件,但打不开数据库,d:/数据库名'