delphi7+access2000进行入库操作,如下:procedure TForm1.Button1Click(Sender: TObject);
var
ff : textfile;
i, j :Integer;
str :String;
tList, ZHANList: TStringlist;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From hnR ');
ADOQuery1.open;
i:=0;
Assignfile(ff,'d:\123.txt'); //大概有2万条行,每行100个数据
reset(ff);
readln(ff,Str); ZHANList := SplitString(Str,' '); WHILE (NOT EOF(ff)) DO BEGIN
readln(ff,Str);
inc(i);
tList := SplitString(Str,' '); for j:=1 to tList.Count-1 do begin
ADOQuery1.Append;
ADOQuery1.fields[0].AsString := ZHANList.Strings[j];
ADOQuery1.fields[1].AsString := tList.Strings[0];
ADOQuery1.fields[2].AsString := tList.Strings[j];
end;
ADOQuery1.Post;
tList.Free;
END; // CloseFile(ff);
ZHANList.Free;end;入库大约到1000行时速度明显开始变慢,怀疑文件大,造成速度慢;于是把123.TXT文件人工分割成5个文件,再分别入库,第一个文件入库,速度刚开始很快,后来变慢,但当第二个文件入库时,速度一开始就很慢。请问个位高人,这是怎么了???
var
ff : textfile;
i, j :Integer;
str :String;
tList, ZHANList: TStringlist;
begin
ADOQuery1.Close;
ADOQuery1.SQL.Clear;
ADOQuery1.SQL.Add('Select * From hnR ');
ADOQuery1.open;
i:=0;
Assignfile(ff,'d:\123.txt'); //大概有2万条行,每行100个数据
reset(ff);
readln(ff,Str); ZHANList := SplitString(Str,' '); WHILE (NOT EOF(ff)) DO BEGIN
readln(ff,Str);
inc(i);
tList := SplitString(Str,' '); for j:=1 to tList.Count-1 do begin
ADOQuery1.Append;
ADOQuery1.fields[0].AsString := ZHANList.Strings[j];
ADOQuery1.fields[1].AsString := tList.Strings[0];
ADOQuery1.fields[2].AsString := tList.Strings[j];
end;
ADOQuery1.Post;
tList.Free;
END; // CloseFile(ff);
ZHANList.Free;end;入库大约到1000行时速度明显开始变慢,怀疑文件大,造成速度慢;于是把123.TXT文件人工分割成5个文件,再分别入库,第一个文件入库,速度刚开始很快,后来变慢,但当第二个文件入库时,速度一开始就很慢。请问个位高人,这是怎么了???
解决方案 »
- 装了delphi7,rave report怎么用?
- 在Delphi2006编写一个简单的DCOM分布式应用程序所遇到的问题。
- 安装EhLib控件包是老是包File not found 'dbsumlst.dcu',为什么?怎么办?
- TQUERY。。。让我郁闷了。。求救
- 实现李维《Delphi6/Kylix2 SOAP/WebService程序设计篇》11章的例子遇到的关于COM+的问题,大侠看看!
- 几个简单问题请教
- 哪里有delphi的API资料下载啊 急!!!!谢谢
- 通过ADOcommand.commandtext建立SQLSERVER7数据库?
- 一些问题
- ? ??如何获得LISTVIEW的CHECKBOX被CHECK的有响应事件? ??
- 我有一个程序delphi5 在windows98下编译后运行正常
- 求助,获得网页上的div元素,没有id和name该如何获取
这样应该可以快点,数据多了Access是会变慢,可以试着压缩数据库看看。另可以对表建主键、索引等进行优化。
采用文件映射的方式 + BCP?