adodb访问失败

大家好，

这是您可以使用ADODB连接到Access数据库的方式。

首先添加对

Microsoft ActiveX数据对象2.0库

现在让我们声明一些变量：

Private Con As New ADODB.Connection
Private Rec As New ADODB.Recordset

*如果要访问任何其他表单或模块的连接和记录集，也可以将它们设置为“公共”。

现在让我们创建到数据库的连接：

Con.Provider = "Microsoft.jet.oledb.4.0; "
Con.Open Database Path 

*提供程序告知数据库的类型，如果您使用的是其他任何类型的数据库而不是Access mdb，请使用其提供程序，您可以在控制面板的ODBC管理器中看到该提供程序。

此后将与数据库建立连接。

现在，我们必须打开一些表并必须将记录提取到您的应用程序中，为此，我们需要一个Recordset，其中要提取选定表中的所有记录。

现在，以下代码将从MDB File中的Table1中获取所有记录：

Rec.Open "Select * From Table1", Con, adOpenDynamic, adLockOptimistic

*第一个参数是Source

*第二个参数是Connection

*第三个参数是“打开模式”，表示您可以在表中向前或向后移动，可以添加和删除。 有几种模式。

*第四个参数可帮助您锁定应一次打开一次的数据库文件。

*还有更多参数，但是如果有人想知道可以直接问我：

现在，让我们创建一个示例程序，该程序将打开一个数据库，然后从Recordset中的Table1中加载所有记录。

Private Con As New ADODB.Connection
Private Rec As New ADODB.Recordset
Public Sub Create_Connection(File_Path as String)
Set Con = New ADODB.Connection
Set Rec = New ADODB.Recordset
Con.Provider = "Microsoft.jet.oledb.4.0; "
Con.Open File_Path
End Sub
Public Sub Load_Records(sqlQuery as String)
Rec.Open sqlQuery, Con, adOpenDynamic, adLockOptimistic
End Sub
Public Sub Close_Connection()
Rec.Close
Con.Close
End Sub

>如何使用？

Create_Connection (App.Path & "\db1.mdb")
Load_Records ("Select * From Table1")

现在已建立连接，记录已加载到Recordset，现在您可以使用Recordset轻松浏览数据库。

>如何导航？

Rec.MoveNext
Rec.MovePrevious
Rec.MoveFirst
Rec.MoveLast

函数名称告诉我们光标在记录集中的位置。

＃如果文章中有任何地方，我有任何错误，请更正。

问候

阿鲁兹

翻译自: https://bytes.com/topic/visual-basic/insights/867382-access-adodb

adodb访问失败