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 等方法获取不同类型的字段值。