由 SQL Server 以 DataAdapter 方法 取得 Data 至 DataGridView |
Private Sub GetStaff() Dim connectionString1 As String = "Data Source=.\SqlExpress; Initial Catalog=Admin; Integrated Security=SSPI" Dim con1 As SqlConnection = New SqlConnection(connectionString1) con1.Open() Dim SqlString1 As String = "SELECT Staff_ID, Staff_Name, Staff_Login FROM dbo.Staff" Dim Adapter As New SqlDataAdapter(SqlString1.ToString(), con1) Dim ds As New DataSet Adapter.Fill(ds) DataGridView2.DataSource = ds.Tables(0).DefaultView ds.Dispose() con1.Dispose() End Sub |