如何将文件中的记录写入数据库中，使用ADO(100分)

fanhongwei · 2002-12-09

我使用ADOQuery将数据库中的记录生成文件，代码如下：
with ADOQuery1 do
begin
SQL.Clear;
SQL.Add(mS2);
Open;
SaveToFile(mS4, pfADTG);
Close;
ListBox1.Items.Add('数据备份成功！');
Application.ProcessMessages;
end;
现在我不知道如何将文件中的数据转回数据库，请大家帮忙！
给出源代码

lwowo · 2002-12-09

我也想知道。

faller · 2002-12-09

用LoadFromFile

fanhongwei · 2002-12-09

To :Faller
可以给出源代码吗

土土 · 2002-12-09

靠,跟loadFromfile 与savetofile一写的
adoquery1.loadFromfile(filename)

fanhongwei · 2002-12-09

使用adoquery1.loadFromfile(filename)无法将记录返回到数据库中。

fanhongwei · 2002-12-09

谁可以帮忙

jsxjd · 2002-12-09

直接调就可以了。
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
with adoquery1 do
begin
ConnectionString:=getVFConnStr('d:/tree');
SQL.Add('select * from gypcbz');
open;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
adoquery1.SaveToFile('d:/aaa.txt');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery1.close;
adoquery1.LoadFromFile('d:/aaa.txt');
end;

jsxjd · 2002-12-09

另一个 query 什么也不要设，直接调：

procedure TForm1.Button3Click(Sender: TObject);
begin
adoquery2.close;
adoquery2.LoadFromFile('d:/aaa.txt');
end;

jrq · 2002-12-09

jsxjd 老兄恐怕不行吧？

lwowo · 2002-12-09

"使用adoquery1.loadFromfile(filename)无法将记录返回到数据库中"
的确，这样只是到入了数据集，没有倒如最终的数据表

fanhongwei · 2002-12-10

谢谢大家，我自己搞定了

fanhongwei · 2002-12-10

多人接受答案了。

如何将文件中的记录写入数据库中，使用ADO(100分)

fanhongwei

Unregistered / Unconfirmed

lwowo

Unregistered / Unconfirmed

faller

Unregistered / Unconfirmed

fanhongwei

Unregistered / Unconfirmed

土土

Unregistered / Unconfirmed

fanhongwei

Unregistered / Unconfirmed

fanhongwei

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jsxjd

Unregistered / Unconfirmed

jrq

Unregistered / Unconfirmed

lwowo

Unregistered / Unconfirmed

fanhongwei

Unregistered / Unconfirmed

fanhongwei

Unregistered / Unconfirmed

Similar threads