在vb中调用存储过程

以下是一个在vb中调用存储过程的事例:

Option Explicit
Private sconn As String '连接字符串
Public oConn As New ADODB.Connection'定义一个Connection对象

'功能:返回sql连接字符串
'入口参数:无
'出口参数:sql连接字符串
'日期:7/11/2007
'作者:dwc
Public Static Function getstrsql() As String
sconn = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=labor;Data Source=."
getstrsql = sconn
End Function

'功能:初始化Connection对象
'入口参数:无
'出口参数:True/False
'日期:7/11/2007
'作者:dwc
Public Function initconn() As Boolean

If oConn.State <> 1 Then'判断连接的状态其中1为已建立连接
oConn.Open getstrsql
End If

On Error GoTo err_proc

initconn = True

Exit Function
err_proc:
Set oConn = Nothing

initconn = False
End Function
'功能:关闭Connection对象
'入口参数:无
'出口参数:无
'日期:7/11/2007
'作者:dwc
Public Sub closeconn()
'判定是否打开，如果打开则关闭
If oConn.State = 1 Then
oConn.Close
End If
Set oConn = Nothing
End Sub

'功能:添加新管理员
'入口参数:sName--用户名 spwd--密码
'出口参数:True/False
'日期:7/11/2007
'作者:dwc
Public Static Function addnew(admin As Administrastor) As Boolean

Dim oComm As New ADODB.Command'创建一个Command对象 Dim pare as parameter'定义一个参数对象
If db.initconn Then'该方法初始化一个数据连接对象
With oComm
.CommandText = "addadmin"'存储过程名字
'指定所要执行的是存储'过程

.CommandType = adCmdStoredProc
Set pare = .CreateParameter("@adName", adVarChar, adParamInput, 50, admin.strName)'为存储过程传递参数
.Parameters.Append pare

Set pare = .CreateParameter("@adpwd", adVarChar, adParamInput, 50, admin.strPwd)
.Parameters.Append pare

Set pare = .CreateParameter("@islock", adBinary, adParamInput, , admin.Islock)
.Parameters.Append pare

Set pare = .CreateParameter("@success", adInteger, adParamInput)'该参数为输出参数
.Parameters.Append pare

oComm.Execute

On Error GoTo err_proc
'对输出参数作相关的处理
Select Case oComm.Parameters("@success")
Case 0:
addnew = False
Case 1
addnew = True
Case 2
Err.Raise 50002, , "已经存在该用户"
Case Default:
addnew = False
End Select

End With
Else
Err.Raise 5001, App.FileDescription, "建立数据库连接失败！"

End If
Exit Function
err_proc:
addnew = False
End Function

以上介绍了如何在vb中使用存储过程。

[@more@]

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/9800367/viewspace-926117/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/9800367/viewspace-926117/