Question

SQL语句在查询分析器中运行时有结果反馈,但放到VB程序中运行却没有结果,是什么原因?

本人有一程序在编写时用到SQL语句,语句放在查询分析器中是可以运行的,有结果,但把语句放到VB程序中后没有结果反馈.语句是有点复杂,有点长,但不知是何原因?
SQL1 = "select *,IDENTITY(int, 1,1) as 临时 into bb from (Select 类别 , 项目名称 , 数量,单价,金额 From ( " _
& " Select B.隶属类别 类别,B.编号 As 项目编号, B.名称 As 项目名称,B.规格说明,B.计量单位,B.编码,B.医保编码,B.保险类别 As 医保类别, " _
& " B.新农编码 As 农保编码,B.新农分类 As 农保类别,A.单价,sum(A.数量) 数量,sum(A.单价*A.数量) As 金额,A.自付系数B As 自付系数 From " _
& " ALL住院记帐列表 A Inner Join T收费项目 B On A.费用明细=B.编号 And A.住院编号='" & Text1.Text & "' And A.记帐方式<>'处方记帐' And A.作废=0 " _
& " group by B.隶属类别,B.编号, B.名称,B.规格说明,B.计量单位,B.编码,B.医保编码,B.保险类别,B.新农编码,B.新农分类,A.单价,A.自付系数B " _
& " Union All " _
& " Select B.药品类型+'费' 类别,B.编号,B.名称,B.规格,B.药品单位,B.编码,B.医保编码,B.保险类别,B.新农编码,B.新农类别,A.单价,sum(A.数量) " _
& " 数量,sum(A.单项金额) 单项金额,A.自付系数B From ALL住院划价数据 A Inner Join ALL住院划价单 C On A.序号=C.序号 And C.住院编号='" & Text1.Text & "' " _
& " And (C.状态='S' Or C.已被记帐=1) And C.作废=0 Inner Join T药品卫材 B On A.药品编号=B.编号 " _
& " group by B.药品类型,B.编号,B.名称,B.规格,B.药品单位,B.编码,B.医保编码,B.保险类别,B.新农编码,B.新农类别,A.单价,A.自付系数B " _
& " ) VV group by 类别,项目名称 ,单价, 数量,金额) WW select case when 临时 in (select min(临时) " _
& " From bb group by 类别) then 类别 else '' end 列表,项目名称,数量,单价,金额,row_number() over (PARTITIon by 类别 " _
& " order by 项目名称) AS 新临时 From bb order by 类别 drop table bb "

Answer 1

这么强大的语句..先 表示钦佩
如果说你在程序分析器里面可以有结果，那么你就在这句代码的一下一句加个断点，然后在立即窗口里看下 这个sql语句输出是不是跟你在分析器里的语句一样，然后再找找原因

追问

加了断点,运行后此数据集为空,没有记录形成

追答

我的意思是 输出 sql1=？？
就是在立即窗口中：？SQL1 然后回车，你会得到很长的一段sql语句

看这个语句跟你在分析器中语句是不是一样，而不是执行这个语句后看结果集
或者你直接复制这个sql语句 到分析器中执行一下

追问

这个我看了,是一样的.
我是在界面中加了一个TEXT,将SQL1的内容赋text,且将其复制到查询分析器中运行是有结果的,可偏偏放在VB中没有运行结果,

追答

那问题不出在这个SQL语句上，那你看下你其他的代码有没有问题，可以的话，你多贴一点给大家分析分析...

追问

再多的文字BAIDU不让粘了,

追答

哎呀 ，那你就别贴这个SQL语句的嘛，或者用..代替
再或者 你传个附件啥的..
呵呵

Answer 2

续行应该是 & _ 而不是 _ & 那个下划杠是在&后面的。

追问

不是,你把这语句复制到记事本看看,应该是没有问题的

追答

我是复制到VB的编辑环境里的，把续行符改一下就可以了

Answer 3

像你这么长的SQL 应该在SQL里写函数或过程比较好.

Answer 4

access 不支持 case 语句。这个可能是主要原因。

追问

这个语句访问的数据表是SQL中的，不是ACCESS的，

追答

'处方记帐' C.状态='S' 这两个值按字符串值重写呢。
then 类别 else '' end 这个空你先赋个值看看。

整个语法空格太多了。调整一下。

Answer 5

你是不是还没有和数据库建立连接？？？如果建立连接后，在查询分析器可以的话，那在vb中应该也是可以的

追问

这个应该有了，谢谢

追答

我遇到过一种,能在sql中执行,但是不能再vb中执行的情况,是这样的,你参考一下,是不是对你有帮助;
我在vb中条用conver函数,但是运行时,总是提示"子过程或函数未定义",百度后发现,vonvert函数,不能直接在vb中使用,变动的,将convert函数,作为一个字符串处理的(给convert两边加上双引号),传递到sql语句中,才能执行.还有一种情况是,sql的嵌套,把嵌套单独的分开,先执行嵌套的最内内层的语句,在执行外层的语句,你试试看