vb.net连接sql数据库查询表格名显示到DataGridView中，如何点击选择一个表名查询整个表的内容

 我的代码如下，怎么解决这个问题啊，想了很久。button1是查询表名，button2是查询选中的表内容
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim strConnection As String = "Server=DELL-PC\SQLEXPRESS;database=renshi;uid=ouqing;pwd=123;"
        Dim sqlConnection1 As New SqlConnection(strConnection)
        Dim dataAdapter As New SqlDataAdapter
        Dim dst As New DataSet
        Dim dt As New DataTable
        sqlConnection1.Open()   '打开数据库  
        If TextBox1.Text = "" Then
            Dim sql As String = "select name From sys.tables"
            Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
            dataAdapter.SelectCommand = cmd
            dataAdapter.Fill(dst, "name")
            dt = dst.Tables("name")
            sqlConnection1.Close()   '关闭数据库  


            DataGridView1.AutoGenerateColumns = True '自动创建列  
            DataGridView1.DataSource = dt
        Else
            Dim sql As String = "select name From sys.tables where name like'" & TextBox1.Text & "'"
            Dim cmd As SqlCommand = New SqlCommand(sql, sqlConnection1)
            dataAdapter.SelectCommand = cmd
            dataAdapter.Fill(dst, "name")
            dt = dst.Tables("name")
            sqlConnection1.Close()   '关闭数据库  


            DataGridView1.AutoGenerateColumns = True '自动创建列  
            DataGridView1.DataSource = dt
        End If


    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Dim SelRowColl As DataGridViewSelectedRowCollection
        Dim dgvRow As DataRow
        Dim t As New Class1
        Dim i As Integer
        SelRowColl = DataGridView1.SelectedRows
        For i = 0 To SelRowColl.Count - 1
            dgvRow = DataGridView1.SelectedCells.Item(i).Value
            '可得到选中的每一行
            t.setuse(dgvRow)
        Next



        Form20.Show()

    End Sub

5 个解决方案