我在程序中的button1按钮中写入以下程序
qy1.close;
qy1.sql.clear;
qy1.sql.add(select * into #1 from addr);
qy1.sql.add(select * from #1);
qy1.open;
button2按钮中写入以下程序
qy2.close;
qy2.sql.clear;
qy2.sql.add(select * from #1);
qy2.open;
qy1 qy2为adoquery组件 与adoconnection1连接 先点button1,在点button2可以查询出结果
而我在另一个程序中想这么应用时说qy2找不到#1 如下
qy1.close;
qy1.sql.clear;
qy1.sql.add(select * into #1 from addr);
qy1.sql.add(select * from #1);
qy1.open;
while not qy1.eof do
begin
qy1.edit;
qy1.fieldbyname('id').value:=qy1.fieldbyname('id').asinteger+1;
qy1.post;
qy2.close;
qy2.sql.clear;
qy2.sql.add('select * from #1');
qy2.open;
qy1.next;
end;
qy1.close;
qy1.sql.clear;
qy1.sql.add(select * into #1 from addr);
qy1.sql.add(select * from #1);
qy1.open;
button2按钮中写入以下程序
qy2.close;
qy2.sql.clear;
qy2.sql.add(select * from #1);
qy2.open;
qy1 qy2为adoquery组件 与adoconnection1连接 先点button1,在点button2可以查询出结果
而我在另一个程序中想这么应用时说qy2找不到#1 如下
qy1.close;
qy1.sql.clear;
qy1.sql.add(select * into #1 from addr);
qy1.sql.add(select * from #1);
qy1.open;
while not qy1.eof do
begin
qy1.edit;
qy1.fieldbyname('id').value:=qy1.fieldbyname('id').asinteger+1;
qy1.post;
qy2.close;
qy2.sql.clear;
qy2.sql.add('select * from #1');
qy2.open;
qy1.next;
end;
解决方案 »
- 做过POS小票打印的朋友,请将你们用到的打印机的厂家指令都在这里写出来,因为本人想做个用户选择不同厂家的打印机即可实现打印的通用打印
- ¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥特大新闻¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥¥
- 如何将TSTRINGS字符串分隔出来,并一一显示出来??
- fastreport分栏打印问题急救,在线等...
- 招骋DELPHI开发人员--北京
- 打印的菜鸟问题,散分!!!!
- 初学Delphi,请问。。。(解决问题就给分!)
- 请教高手!急需!
- 哪里有HTTP、SMTP、POP3等协议的资料?
- 到哪找install shield for delphi 5.0 谢谢!
- 怎么传值给网站?
- 怎样把listbox中显示的歌曲名按照顺序或循环播放?
qy1.sql.clear;
qy1.sql.add(select * into #1 from addr);
qry1.open; // 添加
qy1.close; //
qry1.sql.clear;//
qy1.sql.add(select * from #1);
qy1.open;
不知你是否理解
307187066