開啟 ADO 連接和 Recordset 物件
本文介紹如何開啟 ADO 連線和 Recordset 物件。
原始產品版本: SQL S
原始 KB 編號: 168336
摘要
ActiveX Data Objects (ADO) 提供數種方式來開啟 Connection 和 Recordset 物件。 本文提供每個物件數個常見技術的範例程序代碼。
其他相關資訊
有數種方式可在 ADO 中開啟 Connection 物件:
- 藉由將
ConnectionString
屬性設定為有效的 Connect 字串,然後呼叫Open()
方法。 此 連接字串 與提供者有關。 - 將有效的 Connect 字串傳遞至 方法的第一個自變數
Open()
。 - 將有效的 Command 對象傳遞至 Recordset 的 Open 方法的第一個自變數。
- 將 ODBC 資料來源名稱和選擇性的使用者識別碼和密碼傳遞至 Connection 物件的
Open()
方法。
有三種方式可以在 ADO 中開啟 Recordset 物件:
- 藉由開啟方法的
Connection.Execute()
Recordset。 - 藉由開啟方法的
Command.Execute()
Recordset。 - 開啟沒有 Connection 或 Command 物件的 Recordset 物件,並將有效的 Connect 字串傳遞至 方法的第二個自
Recordset.Open()
變數。
此程式代碼假設Nwind.mdb與 Visual Basic 一起安裝,且位於 C:\Program Files\DevStudio\VB directory
:
Option Explicit
Private Sub cmdOpen_Click()
Dim Conn1 As New adodb.Connection
Dim Cmd1 As New adodb.Command
Dim Errs1 As Errors
Dim Rs1 As New adodb.Recordset
Dim i As Integer
Dim AccessConnect As String
' Error Handling Variables
Dim errLoop As Error
Dim strTmp As String
AccessConnect = "Driver={Microsoft Access Driver (*.mdb)};" & _
"Dbq=nwind.mdb;" & _
"DefaultDir=C:\program files\devstudio\vb;" & _
"Uid=Admin;Pwd=;"
'---------------------------
' Connection Object Methods
'---------------------------
On Error GoTo AdoError ' Full Error Handling which traverses
' Connection object
' Connection Open method #1: Open via ConnectionString Property
Conn1.ConnectionString = AccessConnect
Conn1.Open
Conn1.Close
Conn1.ConnectionString = ""
' Connection Open method #2: Open("[ODBC Connect String]","","")
Conn1.Open AccessConnect
Conn1.Close
' Connection Open method #3: Open("DSN","Uid","Pwd")
Conn1.Open "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=nwind.mdb;" & _
"DefaultDir=C:\program files\devstudio\vb;" & _
"Uid=Admin;Pwd=;"
Conn1.Close
'--------------------------
' Recordset Object Methods
'--------------------------
' Don't assume that we have a connection object.
On Error GoTo AdoErrorLite
' Recordset Open Method #1: Open via Connection.Execute(...)
Conn1.Open AccessConnect
Set Rs1 = Conn1.Execute("SELECT * FROM Employees")
Rs1.Close
Conn1.Close
' Recordset Open Method #2: Open via Command.Execute(...)
Conn1.ConnectionString = AccessConnect
Conn1.Open
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM Employees"
Set Rs1 = Cmd1.Execute
Rs1.Close
Conn1.Close
Conn1.ConnectionString = ""
' Recordset Open Method #3: Open via Command.Execute(...)
Conn1.ConnectionString = AccessConnect
Conn1.Open
Cmd1.ActiveConnection = Conn1
Cmd1.CommandText = "SELECT * FROM Employees"
Rs1.Open Cmd1
Rs1.Close
Conn1.Close
Conn1.ConnectionString = ""
' Recordset Open Method #4: Open w/o Connection & w/Connect String
Rs1.Open "SELECT * FROM Employees", AccessConnect, adOpenForwardOnly
Rs1.Close
Done:
Set Rs1 = Nothing
Set Cmd1 = Nothing
Set Conn1 = Nothing
Exit Sub
AdoError:
i = 1
On Error Resume Next
' Enumerate Errors collection and display properties of
' each Error object (if Errors Collection is filled out)
Set Errs1 = Conn1.Errors
For Each errLoop In Errs1
With errLoop
strTmp = strTmp & vbCrLf & "ADO Error # " & i & ":"
strTmp = strTmp & vbCrLf & " ADO Error # " & .Number
strTmp = strTmp & vbCrLf & " Description " & .Description
strTmp = strTmp & vbCrLf & " Source " & .Source
i = i + 1
End With
Next
AdoErrorLite:
' Get VB Error Object's information
strTmp = strTmp & vbCrLf & "VB Error # " & Str(Err.Number)
strTmp = strTmp & vbCrLf & " Generated by " & Err.Source
strTmp = strTmp & vbCrLf & " Description " & Err.Description
MsgBox strTmp
' Clean up gracefully without risking infinite loop in error handler
On Error GoTo 0
GoTo Done
End Sub
錯誤注意事項
只有 ADO Connection 物件有 errors 集合。 觀察讀取器會注意到範例的輕量型錯誤處理程式已生效 RecordSet.Open
。 如果開啟 RecordSet 物件時發生錯誤,ADO 應該會從 OLEDB 提供者傳回最明確的錯誤。 前面的程式代碼可能會遇到一些常見的錯誤。
如果您省略 (或在連接字串中) DefaultDir 參數時發生錯誤,您可能會收到下列錯誤:
ADO 錯誤 # -2147467259
描述 [Microsoft][ODBC Microsoft Access 97 Driver] ' (未知) '
不是有效的路徑。 請確定路徑名稱是
拼字正確,而且您已連線到伺服器
檔案所在的位置。
ODBC 驅動程式的來源 Microsoft OLE DB 提供者
如果連接字串中的 Dbq 參數發生錯誤,您可能會收到下列錯誤:
ADO 錯誤 # -2147467259 描述 [Microsoft][ODBC Microsoft Access 97 Driver] 找不到檔案 ' (未知的) '。
ODBC 驅動程式的來源 Microsoft OLE DB 提供者
錯誤也會在 Connection errors 集合中填入下列錯誤:
ADO 錯誤 # -2147467259
描述 [Microsoft][ODBC 驅動程式管理員] 驅動程式的
SQLSetConnectAttr 失敗
ODBC 驅動程式的來源 Microsoft OLE DB 提供者
ADO 錯誤 # -2147467259
描述登入失敗
ODBC 驅動程式的來源 Microsoft OLE DB 提供者
注意事項
針對每個錯誤,ADO 錯誤號碼是相同的,在此案例中轉譯為 0x80004005,這是一般E_FAIL錯誤訊息。 基礎元件沒有遇到條件的特定錯誤號碼,但有用的信息絕不會引發至 ADO。
參考資料
意見反映
https://aka.ms/ContentUserFeedback。
即將推出:我們會在 2024 年淘汰 GitHub 問題,並以全新的意見反應系統取代並作為內容意見反應的渠道。 如需更多資訊,請參閱:提交及檢視以下的意見反映: