vb查询access数据库显示指定列

Imports System.Data.OleDb

Module Module1
    Sub Main()
        ' 数据库连接字符串
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\path\to\your\database.mdb"
        
        ' SQL 查询语句，这里假设我们要查询的表名为 'YourTable'，并且我们想要显示 'YourColumn' 列
        Dim sqlQuery As String = "SELECT YourColumn FROM YourTable"
        
        ' 创建连接对象
        Dim connection As New OleDbConnection(connectionString)
        
        ' 创建命令对象
        Dim command As New OleDbCommand(sqlQuery, connection)
        
        Try
            ' 打开数据库连接
            connection.Open()
            
            ' 执行查询并获取结果集
            Dim reader As OleDbDataReader = command.ExecuteReader()
            
            ' 遍历结果集并显示指定列的数据
            While reader.Read()
                Console.WriteLine(reader("YourColumn"))
            End While
            
        Catch ex As Exception
            Console.WriteLine("Error: " & ex.Message)
        Finally
            ' 关闭连接
            If connection.State = ConnectionState.Open Then
                connection.Close()
            End If
        End Try
    End Sub
End Module