由 SQL Server 以 DataReader 方法 取得 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 cmd1 As SqlCommand = New SqlCommand(SqlString1, con1) Dim dr As SqlDataReader = cmd1.ExecuteReader() Dim StaffDataTable As New DataTable StaffDataTable.Load(dr) StaffDataTable.Columns(0).ColumnName = "Staff ID" StaffDataTable.Columns(1).ColumnName = "Staff Name" StaffDataTable.Columns(2).ColumnName = "Staff Login" DataGridView1.DataSource = StaffDataTable dr.Dispose() cmd1.Dispose() con1.Dispose() DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font("Arial", 9) DataGridView1.DefaultCellStyle.Font = New Font("Arial", 9) DataGridView1.AutoResizeColumns() DataGridView1.AutoResizeRows() End Sub |