escsqlstr:=format('select * from sk_fpls where inday >=''%s'' and inday <=''%s'' ',[sdate1,sdate2]);
query2.Close;
query2.SQL.Clear;
query2.SQL.Add(escsqlstr);
query2.ExecSQL;
query2.Open;
query3.Close;
if query2.RecordCount<>0 then
begin
query2.First;
for i:=1 to query2.RecordCount do
begin
fphm:=query2.fieldbyname('fphm').asstring;
SqlIns2:=format('select fpdm from sk_fpcode where qshm <= ''%s'' and jzhm >= ''%s'' ',[fphm,fphm]);
query3.close;
query3.sql.clear;
query3.sql.add(sqlins2);
query3.execsql;
query3.open;
fpdm:=query3.fieldbyname('fpdm').asstring;
escsqlstr:=format('insert into InvoiceWasteBook(rq,fpdm,Fphm,Ztbz) values(''%s'',''%s'',''%s'',''%s'')',[rq,fpdm,fphm,zt]);
with query1 do
begin
close;
sql.Clear;
sql.Add(escsqlstr);
execsql;
end;
query1.Close;
query3.Close;
if not query2.Eof then query2.Next;
end;当记录很多的时候,就报错:太频繁的打开表SK_FPCODE。有什么好的解决方法?谢谢!
query2.Close;
query2.SQL.Clear;
query2.SQL.Add(escsqlstr);
query2.ExecSQL;
query2.Open;
query3.Close;
if query2.RecordCount<>0 then
begin
query2.First;
for i:=1 to query2.RecordCount do
begin
fphm:=query2.fieldbyname('fphm').asstring;
SqlIns2:=format('select fpdm from sk_fpcode where qshm <= ''%s'' and jzhm >= ''%s'' ',[fphm,fphm]);
query3.close;
query3.sql.clear;
query3.sql.add(sqlins2);
query3.execsql;
query3.open;
fpdm:=query3.fieldbyname('fpdm').asstring;
escsqlstr:=format('insert into InvoiceWasteBook(rq,fpdm,Fphm,Ztbz) values(''%s'',''%s'',''%s'',''%s'')',[rq,fpdm,fphm,zt]);
with query1 do
begin
close;
sql.Clear;
sql.Add(escsqlstr);
execsql;
end;
query1.Close;
query3.Close;
if not query2.Eof then query2.Next;
end;当记录很多的时候,就报错:太频繁的打开表SK_FPCODE。有什么好的解决方法?谢谢!
解决方案 »
- Delphi打印时遇到的错误
- 我打算买个质量稍好一点的摄像头,自己开发个程序,将视频保存到硬盘上,是否可行?
- SQL有一列是identity,使用TABLE连接,如何插入数据? 在线等~~~~~~~
- 谁知道ActiveX From为什么会这样?
- 关于panel的入门级的问题。
- delphi8的几个控间请教一下。
- 求助,一个关于输入法的问题!
- 易得分!——安装teechart pro for D6控件问题,Ding了给分!
- IE的"清除历史记录"不能用了,如何改回来?
- 假如.................
- 向大家请教实战技术:用ADOQuery+DBGridEh控件添加数据!!
- 走过路过的都来看看,导入数据奇怪的问题...
Filter:=format('qshm <= ''%s'' and jzhm >= ''%s'' ',[fphm,fphm]);
Filtered:=true;