使用VBScript在成功执行sql语句时需要捕获sql消息使用VBScript在成功执行sql语句时返回数据库消息

Question

使用VBScript成功执行sql语句时需要捕获sql消息。这是我的代码。

Public Function ExecuteAPI_String(sql_Statement) 
Dim num 
On Error Resume Next 
Set objRecordSet = objConnection.Execute sql_Statement,num,adExecuteNoRecords 
If Err.Number <> 0 Then 
    ExecuteSQLStatement_String = Err.description 
    objRecordSet.Close 
    Err.Clear 
Else 
    ExecuteAPI_String = num & "records were affected" 
    objRecordSet.Close 
End If 

Answer 1

这里的问题是使用On Error Resume Next，因为这将导致跳过错误的陈述，并设置Err对象。如果你注释掉On Error Resume Next，你会看到实际的错误，这与你的SQL查询的执行无关，

Set objRecordSet = objConnection.Execute sql_Statement,num,adExecuteNoRecords 

不是一个有效的声明，因为方法需要用括号括起来;

Set objRecordSet = objConnection.Execute(sql_Statement, num, adExecuteNoRecords) 

你还需要确保所有你传递给Execute()方法的值是有效（如adExecuteNoRecords被正确定义）。

一旦你确定该行正确执行，那么你可以取消注释On Error Resume Next。