Office中国论坛/Access中国论坛

标题: 用VBA打开有参数的存储过程 [代码简单] [打印本页]

作者: huanghai 时间: 2003-8-1 19:13
标题: 用VBA打开有参数的存储过程 [代码简单]
'假设一个 "存储过程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 时间: 2003-8-12 02:02
我比你的还简单
比如在ADP/VB/VBA中执行一个带参数的存储程式!
currentproject.connection.execute " exec usp_mytest " & varuel
怎样，简单吧!

作者: huanghai 时间: 2003-8-13 18:11
真的非常简单呀。

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

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

作者: zhengjialon 时间: 2003-8-14 17:11
好贴好贴，怎么不早出来？我以前一直用类似HUANGHAI的方法，太多存储过程要处理，让我头大。

作者: JSTART 时间: 2003-8-15 21:38
如果不用存储过程
而是直接用SQL语句的话那应该怎么做呢

作者: huanghai 时间: 2003-8-16 18:24
HG，你真厉害，解决大问题。谢谢

------

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

作者: cg1 时间: 2003-8-17 03:16
其实使用sqlserver的存储过程的代码和用mdb的参数查询的代码几乎一致，我们大多数人都已经写过的

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

作者: gofun 时间: 2003-8-22 07:15
各位，为什么我没有得到执行结果的呀，执行了的呀，我是按照上面的所说的做的呀
而且，我用DOCMD。OPENSTOREDPROCEDURE是可以看到结果的，请都各位了

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

作者: gofun 时间: 2003-8-24 18:51
天那，为什么我用那种方式都看不到结果的呀，帮帮我吧

作者: HG 时间: 2003-8-29 03:49
你有无搞清楚自已的容体是帮定的还是末帮定的。
你何不上传窗体给其他人帮忙修改！

作者: KenjiSato 时间: 2005-12-3 15:34
请教: 用 currentproject.connection.execute " exec usp_mytest " & varuel
如何 Debug.Print rst.RecordCount,

或者从存储过程返回记录数?

谢谢!

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)