请问,我用ado控件连接access数据库,又一个操作是更新1000条数据,速度特别慢,请问是什么原因,能解决嘛?谢谢!
解决方案 »
- 请教各位高手,有谁知道深圳市宝腾互联科技有限公司(万分感谢)
- 各位高手帮个忙,小弟遇一难题,搞不定了,特求各位相助。
- 求dephi7.0中文版下载的网址,一定要能下的才能给分啊,万分感谢!!!!
- QR4的WIN2000下的打印问题,急,高手指教
- 字符串中想递换某一指定的子字符串是用什么函数?
- Database Desktop数据查询问题,请高手指点
- 问一下,散分不犯法吧???!!!
- 高手都来看一下
- 求mmtools for D2009版本
- 有人试过吗???!!进来看看问题!!!(在线关注)
- 想从delphi5转delphi7,大家谈谈各自有什么优、缺点。灌水有分!
- 在Delphi中如何调用发布在Tomcat上的Soap服务?
while not self.Q_Select.Eof do begin
if Aint=0 then begin
if Q_Select.FieldByName('id').AsInteger > MaxID then begin
Q_Select.Edit;
Q_Select.FieldByName('glh').AsString:=FCurRecord;
Q_Select.Post;
end;
end;
if Aint=1 then begin
FNewID:=FNewID+1;
Q_Select.Edit;
Q_Select.FieldByName('id').AsInteger:=FNewID;
Q_Select.FieldByName('glh').AsString:=FCurRecord;
Q_Select.FieldByName('wjglh').AsString:='';
Q_Select.Post;
end;
Q_Select.Next;
end;