下面是一个连接 Access 数据库的 VB 示例:

Imports System.Data.OleDbPublic Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"        Dim conn As New OleDbConnection(connectionString)        Try            conn.Open()            ' 连接成功后,可以执行查询操作或其他数据库操作            ' 关闭连接            conn.Close()        Catch ex As Exception            MessageBox.Show("连接数据库时发生错误:" & ex.Message)        End Try    End SubEnd Class

这个示例使用了 OleDbConnection 类来连接 Access 数据库。在连接字符串中,Provider 指定了使用的数据库提供程序(这里是 Microsoft.ACE.OLEDB.12.0),Data Source 指定了数据库文件的路径。

下面是一个查询 Access 数据库的 VB 示例:

Imports System.Data.OleDbPublic Class Form1    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click        Dim connectionString As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\database.accdb;"        Dim conn As New OleDbConnection(connectionString)        Try            conn.Open()            Dim query As String = "select * FROM TableName"            Dim cmd As New OleDbCommand(query, conn)            Dim reader As OleDbDataReader = cmd.ExecuteReader()            While reader.Read()                ' 处理查询结果                Dim column1Value As String = reader.GetString(0)                Dim column2Value As Integer = reader.GetInt32(1)                '...                ' 在这里可以将查询结果显示在界面上或进行其他处理            End While            ' 关闭连接            reader.Close()            conn.Close()        Catch ex As Exception            MessageBox.Show("查询数据库时发生错误:" & ex.Message)        End Try    End SubEnd Class

这个示例使用了 OleDbCommand 类执行查询命令,并使用 OleDbDataReader 类来读取查询结果。在 OleDbDataReader 对象上调用 Read 方法可以逐行读取查询结果集中的数据。你可以根据需要使用 GetString、GetInt32 等方法获取不同类型的字段值。