开发语言:delphi6。0 后台:SQL2000;连接方式:ADO ;操作系统:win2000 server存储过程:zl_exzam_list
内容:
-------------------------------
CREATE PROCEDURE zl_exzam_list ASif exists (select * from dbo.sysobjects where id = object_id(N'[zl_list]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [zl_list]
declare @s varchar(8000)
set @s=''
select @s=@s+',['+item_name +']=max(case item_name when '''+item_name +''' then item_value else '''' end)'
from ZL_MattAnaly
group by item_name
print @S
exec('
select pno as 质检号'+@s+'
into zl_list from ZL_MattAnaly
group by pno ')
select top 10 * from zl_list
GO
----------------------
故障现象: 我在开发环境机器上面运行我的程序没有任何问题,都可以顺利的运行通过,并能导出存储过程产生的表,但是在一台干净的98,或者是2000 机器上就不能通过,一点击“导出”按钮就没有任何提示异常,应用程序就自动退出关闭了,连换了几台都是这样,导出按钮里面就是几句话:
ADO_list.Close;
ADO_list.SQL.Clear ;
ADO_list.SQL.Add ('exec zl_exzam_list ' );
showmessage('ok');
ADO_list.Open ;一执行到 ADO_list.Open 就应用程序自动退出,根本无法调试,因为开发机器上面运行都是正常的,而在干净系统上面如果装了delphi和sql就很正常;
我换了几种执行方式,包括用ADOStoredProc,去执行存储过程,或者把存储过程直接写入adoquery内执行,在开发机上都能运行,一放下去就不能运行,不知为何故,请各位高级工程师看下吧!
急啊,整个人都郁闷的!!!!!
内容:
-------------------------------
CREATE PROCEDURE zl_exzam_list ASif exists (select * from dbo.sysobjects where id = object_id(N'[zl_list]') and OBJECTPROPERTY(id, N'IsUserTable') = 1)
drop table [zl_list]
declare @s varchar(8000)
set @s=''
select @s=@s+',['+item_name +']=max(case item_name when '''+item_name +''' then item_value else '''' end)'
from ZL_MattAnaly
group by item_name
print @S
exec('
select pno as 质检号'+@s+'
into zl_list from ZL_MattAnaly
group by pno ')
select top 10 * from zl_list
GO
----------------------
故障现象: 我在开发环境机器上面运行我的程序没有任何问题,都可以顺利的运行通过,并能导出存储过程产生的表,但是在一台干净的98,或者是2000 机器上就不能通过,一点击“导出”按钮就没有任何提示异常,应用程序就自动退出关闭了,连换了几台都是这样,导出按钮里面就是几句话:
ADO_list.Close;
ADO_list.SQL.Clear ;
ADO_list.SQL.Add ('exec zl_exzam_list ' );
showmessage('ok');
ADO_list.Open ;一执行到 ADO_list.Open 就应用程序自动退出,根本无法调试,因为开发机器上面运行都是正常的,而在干净系统上面如果装了delphi和sql就很正常;
我换了几种执行方式,包括用ADOStoredProc,去执行存储过程,或者把存储过程直接写入adoquery内执行,在开发机上都能运行,一放下去就不能运行,不知为何故,请各位高级工程师看下吧!
急啊,整个人都郁闷的!!!!!
解决方案 »
- tstringlist的用法,小菜.....帮解惑....
- 为什么我的窗体运行总是最大化??
- Delphi内存释放的问题,在线急等!!!!!
- dephi7自带的chartFX,在程序发布时,是否需要在用户机上进行注册,或带些什么文件吗?
- 如何修改windows应用程序的标题和菜单??????!!!!!!在线等待,谢谢!!
- 用dbtreeview的时候,如果Node节点是非选中节点,请问如何获得其对应keyfiled的值?
- 若干年后的 4 月 22 日 , 你还能记得么 ? ......
- 挑战海量数据操作--请高手
- adoquery的NextRecordset属性是什么意思,怎么用?
- fastreport 4.5的简单问题
- 其实生活需要调剂,工作也要放松。(鬼故事)
- 人是由大脑有病的猴进化来的。
ADO_list.SQL.Clear ;
ADO_list.SQL.Add ('exec zl_exzam_list ' );
showmessage('ok');
ADO_list.Open ;
换成
ADO_list.Close;
ADO_list.SQL.Clear ;
ADO_list.SQL.Add ('exec zl_exzam_list ' );
ADO_list.Open ;
showmessage('ok');
再测试。
http://www.ten-design.net/delphi/mdac_typ.exe