VBScriptを使用してデータベースを正常に実行したときのメッセージ

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

それがエラーをスキップすることを任意のステートメントを起こし、Errオブジェクトを設定しますので、ここでの問題は、On Error Resume Nextの使用です。 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のコメントを外すことができます。