Question

我試圖在使用adodb.command對象創建登錄時發現錯誤代碼。

如果「創建登錄」成功，則會創建一個adoRecord對象。 如果失敗，則不創建ado對象。

我想顯示和記錄失敗的sql server錯誤。執行失敗時，Err對象爲空。

的代碼：

tsqlcmd.CommandText = "CREATE LOGIN " & uname & " WITH PASSWORD = '" & upw & "'" 
tsqlcmd.ActiveConnection = conn 

On Error Resume Next 
SET adoRec = tsqlcmd.Execute() 
' How to I find the sql error ? 
IF Err <> 0 THEN 
    serr.Number = Err.Number 
    serr.Description = Err.Description 
    serr.Source = Err.Source 
    serr.HelpContext = Err.HelpContext 
    createLogin = false 

    errmsg = "createLogin: ADODB Create Command Error: " & Hex(serr.Number) & vbCrLf & _ 
      "Desc: " & serr.Description & vbCrLf & _ 
      serr.Source & vbCrLf 
    'Fake logging 
    MsgBox(errmsg) 
    EXIT FUNCTION 
END IF 

Answer 1

ExcuteComplete在事件

的ExcuteComplete在事件之後的 命令已完成執行調用。

語法ExcuteComplete在RecordsAffected，PERROR，adStatus，的pcommand， pRecordset，pConnection

參數RecordsAffected Long值指示該命令影響的記錄數。

pError一個錯誤對象。它描述瞭如果值爲

adStatus is adStatusErrorsOccurred發生的錯誤;否則不設置。

adStatus一個EventStatusEnum狀態值。當調用此事件時，如果引起事件 的操作成功，則此參數 設置爲adStatusOK;如果操作失敗，則此參數設置爲adStatusErrorsOccurred。 在此事件返回之前，請將此參數設置爲adStatusUnwantedEvent 以防止後續通知。

pCommand已執行的Command對象。包含一個命令 對象，即使在調用Connection.Execute或Recordset.Open時沒有 顯式創建一個Command，在這種情況下Command對象是由ADO內部創建的 。

pRecordset一個Recordset對象，它是執行命令的 結果。此記錄集可能爲空。您不應該從此事件 處理程序中銷燬此Recordset對象。這樣做會導致訪問衝突，當ADO嘗試訪問不再存在的對象時，請訪問 。

pConnection一個連接對象。執行操作的連接。

備註由於Connection.Execute， Command.Execute，Recordset.Open，Recordset.Requery，或 Recordset.NextRecordset方法，可能會出現

的ExcuteComplete在事件。