DataGridView 同时显示两个表的结果集

  利用DataTable本身本身的个合并方法。

Dim conn As New SqlConnection
Dim rs As New SqlDataAdapter
Dim ds As New DataSet

Private Function connect_db() As SqlConnection
Dim constr As String
        constr = "Server=PC-201105311336\SQLEXPRESS;uid=sa;pwd=123456;database=jiaxiaoai"
'rs.Fill(dataset, "student")
        conn = New SqlConnection(constr)
        conn.Open()
        connect_db = conn
End Function



Private Sub 全部学生信息_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim sql As String
Dim dt1 As New DataTable
Dim dt2 As New DataTable
       conn = connect_db()
        sql = "select * from student"
        rs = New SqlDataAdapter(sql, conn)
        rs.Fill(dt1) '填充表
       sql = "select * from sysname"
        rs = New SqlDataAdapter(sql, conn)
        rs.Fill(dt2)
        dt1.Merge(dt2)
        DataGridView1.DataSource = dt1 '将表中的数据显示到datagridView控件中，绑定数据
    End Sub

转载于:https://www.cnblogs.com/jiaxiaoai/archive/2011/08/06/2129211.html