vb怎么查询数据库并列出所有结果

在VB中，可以使用ADO.NET库来连接和查询数据库。下面是一个简单的示例，演示如何查询数据库并列出所有结果：

首先，确保你已经添加了对System.Data命名空间的引用。

接下来，使用以下代码连接到数据库并查询数据：

Imports System.Data.SqlClient

Private Sub QueryDatabase()
    ' 数据库连接字符串
    Dim connectionString As String = "Data Source=数据库服务器地址;Initial Catalog=数据库名称;User ID=用户名;Password=密码"

    ' 查询语句
    Dim query As String = "SELECT * FROM 表名"

    ' 创建连接对象
    Using connection As New SqlConnection(connectionString)
        ' 打开数据库连接
        connection.Open()

        ' 创建命令对象
        Using command As New SqlCommand(query, connection)
            ' 执行查询，并获取结果集
            Using reader As SqlDataReader = command.ExecuteReader()
                ' 循环遍历结果集
                While reader.Read()
                    ' 读取每一行的数据
                    Dim value1 As String = reader.GetString(0) ' 假设第一列是字符串类型
                    Dim value2 As Integer = reader.GetInt32(1) ' 假设第二列是整数类型

                    ' 输出数据到控制台或界面
                    Console.WriteLine("Value 1: " & value1)
                    Console.WriteLine("Value 2: " & value2)
                    Console.WriteLine("---------")
                End While
            End Using
        End Using
    End Using
End Sub

在上面的示例中，你需要替换以下部分：

• 数据库服务器地址：数据库服务器的地址
• 数据库名称：要查询的数据库名称
• 用户名：用于连接数据库的用户名
• 密码：用于连接数据库的密码
• 表名：要查询的表名

你可以根据需要修改查询语句和读取的列的类型。

最后，调用 QueryDatabase 函数即可执行查询并列出所有结果。