vb中如何显示查询的数据库

在VB中，可以使用ADO.NET来查询数据库并显示结果。以下是一个简单的示例：

Imports System.Data.SqlClientPublic Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        '数据库连接字符串        Dim connStr As String = "Data Source=服务器地址;Initial Catalog=数据库名;User ID=用户名;Password=密码"        '创建数据库连接对象        Using conn As New SqlConnection(connStr)            '创建SQL查询语句            Dim sql As String = "SELECT * FROM 表名"            '创建数据库命令对象            Using cmd As New SqlCommand(sql, conn)                '打开数据库连接                conn.Open()                '执行查询，并返回结果集                Dim reader As SqlDataReader = cmd.ExecuteReader()                '循环读取结果集中的每一行数据                While reader.Read()                    '根据字段名称获取字段值                    Dim value As String = reader("字段名").ToString()                    '将字段值显示在界面上                    MessageBox.Show(value)                End While                '关闭结果集                reader.Close()            End Using            '关闭数据库连接            conn.Close()        End Using    End SubEnd Class

在上面的示例中，首先创建数据库连接对象，并指定数据库连接字符串。然后创建SQL查询语句，并创建数据库命令对象。接下来打开数据库连接，执行查询，并返回结果集。通过循环读取结果集中的每一行数据，并将字段值显示在界面上。最后关闭结果集和数据库连接。

需要根据实际情况修改示例中的服务器地址、数据库名、用户名、密码、表名和字段名。