由 SQL Server 以 DataReader 方法 取得 Data 至 DataGridView

 

   由 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