社区
VB基础类
帖子详情
如何用vb调用存储过程?谢谢大家了
zerofinish
2007-01-05 03:25:05
rt
...全文
213
2
打赏
收藏
如何用vb调用存储过程?谢谢大家了
rt
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
2 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
zerofinish
2007-01-06
打赏
举报
回复
大家帮帮我啊
zq972
2007-01-06
打赏
举报
回复
该范例使用 Append 和 CreateParameter 方法执行具有输入参数的存储过程。
Public Sub AppendX()
Dim cnn1 As ADODB.Connection
Dim cmdByRoyalty As ADODB.Command
Dim prmByRoyalty As ADODB.Parameter
Dim rstByRoyalty As ADODB.Recordset
Dim rstAuthors As ADODB.Recordset
Dim intRoyalty As Integer
Dim strAuthorID As String
Dim strCnn As String
' 打开连接。
Set cnn1 = New ADODB.Connection
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
cnn1.Open strCnn
cnn1.CursorLocation = adUseClient
' 使用单一参数打开命令对象。
Set cmdByRoyalty = New ADODB.Command
cmdByRoyalty.CommandText = "byroyalty"
cmdByRoyalty.CommandType = adCmdStoredProc
' 获取参数值并追加参数。
intRoyalty = Trim(InputBox("Enter royalty:"))
Set prmByRoyalty = cmdByRoyalty.CreateParameter("percentage", _
adInteger, adParamInput)
cmdByRoyalty.Parameters.Append prmByRoyalty
prmByRoyalty.Value = intRoyalty
' 通过执行命令创建记录集。
Set cmdByRoyalty.ActiveConnection = cnn1
Set rstByRoyalty = cmdByRoyalty.Execute
' 打开 Authors 表以获取作者姓名进行显示。
Set rstAuthors = New ADODB.Recordset
rstAuthors.Open "authors", cnn1, , , adCmdTable
' 打印记录集中的当前数据,从 Authors 表中添加作者姓名。
Debug.Print "Authors with " & intRoyalty & " percent royalty"
Do While Not rstByRoyalty.EOF
strAuthorID = rstByRoyalty!au_id
Debug.Print " " & rstByRoyalty!au_id & ", ";
rstAuthors.Filter = "au_id = '" & strAuthorID & "'"
Debug.Print rstAuthors!au_fname & " " & rstAuthors!au_lname
rstByRoyalty.MoveNext
Loop
rstByRoyalty.Close
rstAuthors.Close
cnn1.Close
End Sub
vb
调用
存储过程
基本教程
vb
调用
存储过程
基本教程
vb
调用
存储过程
基本教程
vb
调用
存储过程
基本教程
vb
调用
存储过程
基本教程
VB
6.0
调用
存储过程
的例子(方法一)
VB
6.0
调用
存储过程
的例子(方法一) rm1窗体,Copy以下的代码到窗体中,该段代码将测试
存储过程
ADOTestRPE的返回值、输入参数及输出参数,测试的过程中,可能需要修改链接字符串。
VB
调用
sql server
存储过程
VB
调用
sql server
存储过程
。文档
在
VB
6.0中
调用
SQL Server的
存储过程
.pdf
在
VB
6.0中
调用
SQL Server的
存储过程
.pdf
使用
VB
调用
oracle数据库
存储过程
的研究.pdf
使用
VB
调用
oracle数据库
存储过程
的研究.pdf
VB基础类
7,762
社区成员
197,608
社区内容
发帖
与我相关
我的任务
VB基础类
VB 基础类
复制链接
扫一扫
分享
社区描述
VB 基础类
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章