ExecuteComplete验证

最新推荐文章于 2019-07-15 10:29:59 发布

xiaoxiaohai123

最新推荐文章于 2019-07-15 10:29:59 发布

阅读量1.1k

点赞数

CC 4.0 BY-SA版权

分类专栏： VB 文章标签： integer security string 存储

本文链接：https://blog.youkuaiyun.com/xiaoxiaohai123/article/details/2339699

VB 专栏收录该内容

19 篇文章

订阅专栏

本文介绍使用VBScript通过ADO连接SQL Server数据库，并调用存储过程的具体实现方法。包括数据库连接字符串设置、存储过程参数传递及异常处理等内容。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Private Sub Form_Load()

Dim adoCn     As New ADODB.Connection
Dim adoCm     As New ADODB.Command
Dim RS As New ADODB.Recordset
Dim pError As ADODB.Error
Dim constring As String
Dim ErrNo As Integer
Dim param As ADODB.Parameter

On Error GoTo ErrHandle
constring = "Provider=SQLOLEDB.1;Password=;Persist Security Info=True;User ID=sa;Initial Catalog=huahua;Data Source=aaa"
adoCn.Open (constring)
adoCm.ActiveConnection = adoCn
adoCm.CommandText = "cunchu"
adoCm.CommandType = adCmdStoredProc

Set param = adoCm.CreateParameter("SRR", adInteger, adParamOutput)
    adoCm.Parameters.Append param
    adoCm.Execute

    If adoCm.Parameters("SRR").Value = 0 Then
        MsgBox Err.Number

RS.CursorLocation = adUseClient

Set RS = adoCm.Execute(ErrNo, , -1)
Call adoCn_ExecuteComplete(10, pError, adStatusErrorsOccurred, adoCm, RS, adoCn)

    Set Me.MSHFlexGrid1.DataSource = RS

    End If
ErrHandle:
      MsgBox Err.Description

End Sub

Private Sub adoCn_ExecuteComplete(ByVal RecordsAffected As Long, _
ByVal pError As ADODB.Error, _
adStatus As ADODB.EventStatusEnum, _
ByVal pCommand As ADODB.Command, _
ByVal pRecordset As ADODB.Recordset, _
ByVal pConnection As ADODB.Connection)
If adStatus = adStatusErrorsOccurred Then
MsgBox pError.Description
Else
MsgBox "exec success"
End If
End Sub

//adoCn_ExecuteComplete方法验证存储过程是否正常执行完，若没正常执行完，强制执行完毕，可捕获异常