SqlDataAdapter + BindingSource + BindingNavigator + DataGridView 使用方法

 
SqlDataAdapter + BindingSource + BindingNavigator + DataGridView 使用方法
 

   Form1.vb
 
   Private Sub GetGridData()
 
      Dim connectionString1 As String = _
      "Data Source=.\SqlExpress; Initial Catalog=Soccer; Integrated Security=SSPI"
      Dim con1 As SqlConnection = New SqlConnection(connectionString1)
      con1.Open()
 
      Dim SqlString1 As String = "SELECT * FROM dbo.Team ORDER BY Team_ID"
 
      Dim Adapter As New SqlDataAdapter(SqlString1.ToString(), con1)
      Dim ds As New DataSet
 
      Adapter.Fill(ds)
 
      BindingSource1.DataSource = ds.Tables(0).DefaultView
      BindingNavigator1.BindingSource = BindingSource1
 
      DataGridView1.DataSource = BindingSource1
      DataGridView1.AutoResizeColumns()
 
      ds.Dispose()
      con1.Dispose()
 
   End Sub