在vb.net数据网格视图中选择多个表sql - sql &vb.net

Imports System.Data.SqlClient

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ' 连接数据库
        Dim connectionString As String = "Data Source=YourServerName;Initial Catalog=YourDatabaseName;User ID=YourUsername;Password=YourPassword"
        Dim connection As New SqlConnection(connectionString)
        connection.Open()

        ' 查询多个表的数据
        Dim sql As String = "SELECT * FROM Table1; SELECT * FROM Table2"
        Dim command As New SqlCommand(sql, connection)

        ' 创建数据适配器
        Dim adapter As New SqlDataAdapter(command)

        ' 创建数据集
        Dim dataSet As New DataSet()

        ' 填充数据集
        adapter.Fill(dataSet)

        ' 关闭连接
        connection.Close()

        ' 将数据集中的第一个表绑定到数据网格视图
        DataGridView1.DataSource = dataSet.Tables(0)

        ' 将数据集中的第二个表绑定到另一个数据网格视图
        DataGridView2.DataSource = dataSet.Tables(1)
    End Sub
End Class