在Visual Basic中，通过引用Microsoft ActiveX Data Objects 2.0 Library来实现数据库连接。下面是一个简单的例子，展示如何连接到一个数据库文件并查询数据。
首先，我们需要在工程中引用相应的库。这可以通过在“工程”菜单中选择“引用”，然后勾选“Microsoft ActiveX Data Objects 2.0 Library”来实现。
接下来，定义一些变量用于连接和记录集操作：
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Dim ConnStr As String
在窗体加载时，可以通过以下方式打开数据库文件：
Private Sub Form_Load()
Dim Cn As New ADODB.Connection
Dim Re As New ADODB.Recordset
Dim SqlStr As String
Dim ConnStr As String
Set Cn = New ADODB.Connection
Set Re = New ADODB.Recordset
Cn.Open "Provider=Microsoft.jet.OLEDb.3.51;Data Source=e:\db\01.mdb"
Re.CursorLocation = adUseClient
SqlStr = "select * from titles "
Re.Open SqlStr, Cn, adOpenStatic, adLockReadOnly
这里使用了Provider=Microsoft.jet.OLEDb.3.51来指定数据提供者，并指定了数据库文件的位置。
设置Re的CursorLocation属性为adUseClient，表示将记录集中的数据缓存在客户端。
通过执行SQL语句“select * from titles ”，查询titles表中的所有记录，并将结果集存储在Re中。
最后，使用adOpenStatic和adLockReadOnly打开记录集，这样可以确保查询结果不会被修改。
通过这种方式，查询到的内容可以在网格控件中显示，方便用户查看和操作。
本文如未解决您的问题请添加抖音号：51dongshi（抖音搜索懂视），直接咨询即可。
热心网友
回答时间：2025-01-21 03:55
