Question

怎么在vb中运行多行sql语句？比如说这句

declare @marka int,@markb int,@markc int,@markd int,@marke int select @marka= count(*) from SC where Grade>=90
。。。select @marka as more90,@markb as b80a90,@markc as b70a80,@markd as b60a70,@marke as less60
上面的sql语句在查询分析器上有反馈：

但是在vb上运行却没有任何反馈，为什么呢？
另外：我这样运行的（
sqlRc.CursorLocation = adUseClientstr = "declare @marka int,@markb int,@markc int,@markd int,@marke int " & _ "select @marka= count(*) from SC where Grade>=90" & _ "select @marka as more90,@markb as b80a90,@markc as b70a80,@markd as b60a70,@marke as less60"sqlRc.Open str, sqlCnSet DataGrid1.DataSource = sqlRc
）

Answer 1

你这个语法错误了 VB想要同时执行多行SQL很简单 每行代码结束加一个分号;就可以了,你的那个& _这是vb里面换行的代码 和sql无关 纯粹是一个代码阅读起来的效果,sql代码后加分号 即使全输到一行也是正确的语句

追问

请问语法是哪里错了呢？在查询分析器上面有反馈啊，运行vb的时候也没报错，就是没有表显示出来。

追答

因为vb代码中不支持这样的多行查询 不过查询分析器是可以执行多行语句的 所以你用vb就得加上分号

追问

我在vb上加上分号了还是没有反馈，难道是我加错了？您能帮我把代码复制一下然后加上分号写出来吗？麻烦了。

追答

str = "declare @marka int,@markb int,@markc int,@markd int,@marke int;" & _
"select @marka= count(*) from SC where Grade>=90;" & _
"select @marka as more90,@markb as b80a90,@markc as b70a80,@markd as b60a70,@marke as less60;"

Answer 2

str每行后要加英文的分号“;” ， 不返回的我以前试过可以（多条update的），要返回记录集可以这样：set sqlRc = sqlCn.excute(str)，我没试过，试试看吧。

Answer 3

想执行多条sql语句，你可以写个存储过程，然后在vb里调用存储过程