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

あなたは必要ありません：あなたは、あなたの接続文字列に二回の初期カタログ値を設定している

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