VB.NET 用 SQL Server 数据库显示 datagridview

Question

我是 VB.NET 的新手，我想连接到本地 SQL Server。我只是无法连接，希望有人能修复我的代码。

Public Class Main_Tr

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim connectionString As String = "Data Source=IHOMISSERVER;Initial Catalog=homis;User ID=sa;Initial Catalog=pubs;Integrated Security=True"
        Dim sql As String = "SELECT * FROM table_name"
        Dim connection As New SqlConnection(connectionString)
        Dim dataadapter As New SqlDataAdapter(sql, connection)
        Dim ds As New DataSet()
        connection.Open()
        dataadapter.Fill(ds, "column_name")
        connection.Close()
        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "column_name"
    End Sub

    Private Sub Main_Tr_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    End Sub

End Class

Answer 1

你不需要：

connection.open 
connection.close

现在使用这个：

  dim con as new connectionstring='your connection string

  dim cmd as new sqlcommand("Select * from [table name-remove brackets if required]",con)

  dim adapter as new sqldataadapter(cmd)

  Dim table as new datatable

  adapter.fill(table)

  datagridview1.datasource=table