使用 VB / ASP，可以调用SQL Server中的存储过程。

发布时间：2023-08-02 15:15:06 所属栏目：教程来源：

导读：昨天有位久未谋面的老同学，突然问起如何在vb中调用sql的存储过程。

当时因为手上没有资料，机器上也没装sql，随即发了早年写的一段asp代码，也不知道行不行。

抱着负责任的态度，刚好又有点空闲，便做了个测

昨天有位久未谋面的老同学，突然问起如何在vb中调用sql的存储过程。

当时因为手上没有资料，机器上也没装sql，随即发了早年写的一段asp代码，也不知道行不行。

抱着负责任的态度，刚好又有点空闲，便做了个测试：

(说来惭愧，n久没用vb了，居然不知道怎么加入adodb类型库了，就填加了一个adodc控件，汗颜~```)

private sub examplebutton_click()

dim sqlconn as new adodb.connection

dim sqlcmd as new adodb.command

dim myparam as adodb.parameter

dim sqlrs as adodb.recordset

dim sqlcmdstr as string

sqlconn.open "driver={sql server};server=127.0.0.1;database=master;uid=sa;pwd=密码我是不会随便告诉别人的啦：）"

sqlcmd.activeconnection = sqlconn

sqlcmd.commandtext = "sp_executesql"

sqlcmd.commandtype = adcmdstoredproc

sqlcmdstr = "select * from sysmessages where error>=100 and error<=120"

set myparam = sqlcmd.createparameter("@statement", adbstr, adparaminput, len(sqlcmdstr))

myparam.value = sqlcmdstr

sqlcmd.parameters.append myparam

set sqlrs = sqlcmd.execute

sqlrs.movefirst

while not sqlrs.eof

msgbox sqlrs.fields(0).value & ",,," & sqlrs.fields(3).value

sqlrs.movenext

wend

end sub

哈哈，居然成功了(不禁又自我陶醉了一番)。

虽然没什么技术含量，不过还是再次申明一下：

其实调用存储过程最重要的就是参数的正确性，比如参数名称，参数类型啊等等。

幸好这些都是有资料可以查的，可以查sql手册，或者如果有耐心一点，也可以通过不断的尝试得出正确的答案(哈哈，废话)。

（编辑：聊城站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!