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 |