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个文件,再分别入库,第一个文件入库,速度刚开始很快,后来变慢,但当第二个文件入库时,速度一开始就很慢。请问个位高人,这是怎么了???
解决方案 »
- 请问一下:DLL文件是二进位的文件吗?如果是,为何显示袋子像乱码这样的东西呀,是Windows系统定的吗?还是Windows只不过从内存中取出来
- 如何在Richedit中贴图片阿?就像QQ的聊天窗口可以发送图片,显示图片阿?
- 新手问题:我通过一个ADOQuery查询到一组记录,要把其中的一个字段绑定到一个comboBox上,怎么写代码? 谢谢!
- 请问用DELPHI 用API怎么修改另一个窗口文本框的风格
- 哪有制作专业化的Setup程序软件下载
- 请教各位大侠!
- 数据写入的小问题? UP有分》》》》》》
- 在sql server存储过程中获取服务器时间?(100分)
- 每天做什么erp,好没意思,想做game
- 关于DBGrid的问题??
- 我有一个程序delphi5 在windows98下编译后运行正常
- 求助,获得网页上的div元素,没有id和name该如何获取
这样应该可以快点,数据多了Access是会变慢,可以试着压缩数据库看看。另可以对表建主键、索引等进行优化。
采用文件映射的方式 + BCP?