Question

更新了正确的代码以供将来使用

objRecordSet.open Sql_Statement，objconnection，1返回错误。

像在sql server中的东西消息50011，级别16，状态1，过程xRaiseError，第38行参数值参数无效参数@SerialNumber无效：234f5-kjxi-vcbr

我需要捕获它并将其存储为字符串。这是功能。

Public Function ExecuteSQLStatement_String(Sql_Statement, colname)
    On Error Resume Next 
objRecordSet.open Sql_Statement,objconnection,1
If Err.Number <> 0 Then
    ExecuteSQLStatement_String = Err.description
    objRecordSet.Close
    Err.Clear
Else 
    ExecuteSQLStatement_String = objRecordSet.Fields(colname).Value
    objRecordSet.Close
End If 
On Error GoTo 0
End Function

有人可以帮忙吗？对于vbscript来说很新。我正在连接数据库并传递一个sql语句。如果sql语句中的参数是正确的，我的函数将从记录集返回值。但是如果其中一个参数错误，则无法执行sql语句。如何捕获该错误？希望我很清楚。谢谢玛达维

Answer 1

错误代码和说明将在Err对象中。您已经在测试错误代码了。要获得描述，请使用以下代码：

If Err.Number <> 0 Then
    ExecuteSQLStatement_String = Err.description
    objRecordSet.Close
    Err.Clear
End If

另外，不要忘记在功能结束时重新打开错误处理：

' ----turn vbscript error handler back on
On Error GoTo 0

如何使用vbscript

1 个答案: