用VBA打开有参数的存储过程 [代码简单]

huanghai

'假设一个 "存储过程1"有两个参数：intID, intID1

Dim rst As New ADODB.Recordset
Dim cmd As New ADODB.Command
Dim Par As New ADODB.Parameter

Set cmd.ActiveConnection = CurrentProject.Connection

Set Par = cmd.CreateParameter("intID", adInteger, adParamInput, 4, 5)
cmd.Parameters.Append Par

Set Par = cmd.CreateParameter("intID1", adInteger, adParamInput, 4, 10300)
cmd.Parameters.Append Par

cmd.CommandText = "存储过程1"
cmd.CommandType = adCmdStoredProc

Set rst = cmd.Execute

Debug.Print rst.RecordCount

rst.Close

HG

我比你的还简单
比如在ADP/VB/VBA中执行一个带参数的存储程式!
currentproject.connection.execute " exec usp_mytest " & varuel
怎样，简单吧!

huanghai

真的非常简单呀。

请教HG，如何使用这样的格式参入多个参数？

HG

如果你想入多个参数，且在你的过程中没有预设参数值的
就可以按顺序入比如：
exec my_usp val1,val2,val3....
如果过程中有预设值的就一定要指定参数名和参数值
比如：
exec my_usp @val1=val,@val3=val
其实这些一点都不复杂，只是TSQL的一个灵活运应吧了。
如果感兴趣要以查查TSQL中EXEC的语法即可！

zhengjialon

好贴好贴，怎么不早出来？我以前一直用类似HUANGHAI的方法，太多存储过程要处理，让我头大。

JSTART

如果不用存储过程
而是直接用SQL语句的话那应该怎么做呢

huanghai

HG，你真厉害，解决大问题。谢谢

------

有没有TSQL的电子教程传一个上来

cg1

其实使用sqlserver的存储过程的代码和用mdb的参数查询的代码几乎一致，我们大多数人都已经写过的

另外，上述两种方法应该说各有各的好处。而一般别人使用都是用建参数的方法，原因是：灵活、通用。直接用exec 执行是有局限性的，局限在可以写成字符的参数中，如果是一串二进流就不好办了。

gofun

各位，为什么我没有得到执行结果的呀，执行了的呀，我是按照上面的所说的做的呀
而且，我用DOCMD。OPENSTOREDPROCEDURE是可以看到结果的，请都各位了

HG

如果你用
set rs as new adodb.recordset
rs=cm.exec usp_usp  arg1 arg2
得不到结果可能是你的procedure返回了多个记录集。
你可以试试加上
set nocount on在最前，
set nocount off在最后。]
如果还有问题请自检。