在VB中显示数据库表通常需要使用ADO.NET或者Entity Framework等数据访问技朧。以下是一个基本的示例代码,演示如何连接数据库并显示表中的数据:
Imports System.Data.SqlClient
Public Class Form1
Dim connectionString As String = "Data Source=YourServer;Initial Catalog=YourDatabase;Integrated Security=True"
Dim sqlConnection As New SqlConnection(connectionString)
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Dim sqlQuery As String = "SELECT * FROM YourTable"
Dim sqlCommand As New SqlCommand(sqlQuery, sqlConnection)
Dim dataAdapter As New SqlDataAdapter(sqlCommand)
Dim dataTable As New DataTable()
sqlConnection.Open()
dataAdapter.Fill(dataTable)
sqlConnection.Close()
DataGridView1.DataSource = dataTable
End Sub
End Class
在上面的示例中,我们首先创建了一个数据库连接字符串,并在Form1_Load事件处理程序中执行了一个简单的SELECT查询。然后使用数据适配器将查询结果填充到一个数据表中,最后将数据表绑定到DataGridView控件上,从而显示数据库表中的数据。您需要根据自己的实际情况修改连接字符串和SQL查询语句。