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

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

Imports System.Data.SqlClient  Public 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 Sub End Class 

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

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