vb连接access数据库实例及查询实例

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

Imports System.Data.OleDb

Public 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 Sub
End Class

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

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

Imports System.Data.OleDb

Public 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 Sub
End Class

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