vb数据库查询源码

Imports System.Data.OleDb

Public Sub QueryDatabase()
    ' 数据库连接字符串
    Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"

    ' 创建连接对象
    Dim connection As New OleDbConnection(connectionString)

    Try
        ' 打开连接
        connection.Open()

        ' 创建命令对象
        Dim command As New OleDbCommand("SELECT * FROM YourTableName", connection)

        ' 执行查询并获取结果集
        Dim reader As OleDbDataReader = command.ExecuteReader()

        ' 处理结果集
        While reader.Read()
            Console.WriteLine(reader("ColumnName").ToString())
        End While

        ' 关闭结果集和连接
        reader.Close()
        connection.Close()
    Catch ex As Exception
        Console.WriteLine("数据库查询出错: " & ex.Message)
    End Try
End Sub