ActiveX 数据对象 (ADO) 提供了几种方法来打开连接和 Recordset 对象。本文介绍了几种常用的技术，为每个对象的代码示例。
打开一个连接对象内 ADO 的方法有多种：
- 通过设置 ConnectionString 属性有效连接字符串，然后再调用 Open() 方法。此连接字符串是提供程序有关。
- 通过将有效的连接字符串传递给 Open() 方法的第一个参数。
- 通过传递一个有效的命令对象到记录集的 Open 方法的第一个参数。
- 通过连接对象的 Open() 方法传递在 ODBC 数据源名称和 （可选） 用户 id 和密码。
有三种方法可以打开在 ADO 中一个 Recordset 对象：
- 通过打开该 Connection.Execute() 关闭记录集方法。
- 通过打开该 Command.Execute() 关闭记录集方法。
- 通过打开 Recordset 对象不包含连接或命令对象，并向 Recordset.Open() 方法的第二个参数传递一个有效的连接字符串。
此代码假定 Nwind.mdb 与 Visual Basic 程序一起安装并且位于是 Files\DevStudio\VB 目录中：
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 连接对象都有一个错误集合。observant 读者会注意到一个轻量的错误处理程序是有效的 RecordSet.Open 示例。打开一个记录集的一个错误事件的对象 ADO 应从 OLEDB 提供程序返回最明确的错误。可以使用上述会遇到的一些常见错误代码遵循。
如果省略了 （或在出现错误） DefaultDir 参数在连接字符串中，您可能会收到以下错误：
ADO 错误 # 2147467259
说明 [Microsoft] [ODBC Microsoft Access 97 驱动程序] （未知）
不是有效的路径。请确保路径名称
拼写是否正确并连接到服务器
该文件所在。
源 Microsoft OLE DB 提供程序 ODBC 驱动程序
如果在连接字符串中有是 Dbq 参数中的错误，您可能会收到以下错误：
ADO 错误 # 2147467259 说明 [Microsoft] [ODBC Microsoft Access 97 驱动程序] 无法查找
文件 （未知）。
源 Microsoft OLE DB 提供程序 ODBC 驱动程序
前面的错误还填充该 Connection.Errors 集合中的具有以下错误：
ADO 错误 # 2147467259
驱动说明 [Microsoft] [ODBC 驱动程序管理器] 程序
SQLSetConnectAttr 失败
源 Microsoft OLE DB 提供程序 ODBC 驱动程序
ADO 错误 # 2147467259
说明登录失败
源 Microsoft OLE DB 提供程序用于 ODBC 驱动程序
请注意，对于每个错误，ADO 错误号是在相同向 0x80004005，这是泛型的 E_FAIL 错误消息在这种情况下转换。基础组件没有遇到，条件的一个特定的错误号，但有用的信息是永远不在-免 ADO 时引发。
有关更多的信息请单击下面的文章编号，以查看 Microsoft 知识库中相应的文章：
301216
(http://support.microsoft.com/kb/301216/EN-US/
)
如何使用 Visual Basic.net 中填充从数据库中一个数据集对象
有关更多的信息请单击下面文章编号，以查看 Microsoft 知识库中相应的文章：
188857
(http://support.microsoft.com/kb/188857/EN-US/
)
若要更改 CursorType 和 LockType PRB： 使用 Open 方法
194979
(http://support.microsoft.com/kb/194979/EN-US/
)
信息: ADO 生成 SQL Server 到其他连接
168335
(http://support.microsoft.com/kb/168335/EN-US/
)
信息: 使用 ActiveX 数据对象 (ADO) 通过 Visual Basic
193332
(http://support.microsoft.com/kb/193332/EN-US/
)
使用 ODBC/OLEDB/ADO/RDS 的 FILE： MDACCON.EXE 使用连接字符串
文章编号: 168336 - 最后修改: 2005年3月2日 - 修订: 3.5
这篇文章中的信息适用于:
- Microsoft ActiveX Data Objects 1.0
- Microsoft ActiveX Data Objects 1.5
- Microsoft ActiveX Data Objects 2.0
- Microsoft ActiveX Data Objects 2.1 Service Pack 2
- Microsoft ActiveX Data Objects 2.5
- Microsoft ActiveX Data Objects 2.6
- Microsoft ActiveX Data Objects 2.7
- Microsoft Visual Basic 5.0 专业版
- Microsoft Visual Basic 6.0 专业版
- Microsoft Visual Basic 5.0 企业版
- Microsoft Visual Basic Enterprise Edition for Windows 6.0
| kbmt kbhowto KB168336 KbMtzh |
机器翻译注意：这篇文章是由无人工介入的微软自动的机器翻译软件翻译完成。微软很高兴能同时提供给您由人工翻译的和由机器翻译的文章, 以使您能使用您的语言访问所有的知识库文章。然而由机器翻译的文章并不总是完美的。它可能存在词汇，语法或文法的问题，就像是一个外国人在说中文时总是可能犯这样的错误。虽然我们经常升级机器翻译软件以提高翻译质量，但是我们不保证机器翻译的正确度，也不对由于内容的误译或者客户对它的错误使用所引起的任何直接的, 或间接的可能的问题负责。
点击这里察看该文章的英文版：
168336
(http://support.microsoft.com/kb/168336/en-us/
)
Microsoft和/或其各供应商对于为任何目的而在本服务器上发布的文件及有关图形所含信息的适用性，不作任何声明。 所有该等文件及有关图形均"依样"提供，而不带任何性质的保证。Microsoft和/或其各供应商特此声明，对所有与该等信息有关的保证和条件不负任何责任，该等保证和条件包括关于适销性、符合特定用途、所有权和非侵权的所有默示保证和条件。在任何情况下，在由于使用或运行本服务器上的信息所引起的或与该等使用或运行有关的诉讼中，Microsoft和/或其各供应商就因丧失使用、数据或利润所导致的任何特别的、间接的、衍生性的损害或任何因使用而丧失所导致的之损害、数据或利润不负任何责任。
回到顶端
