ODBC OBDCDataReader + DataGridView 使用方法

 
ODBC OBDCDataReader + DataGridView 使用方法
 

   Form1.vb
 
   Private Sub ODBCGetData()
 
      Dim sConnString As String = _
      "Driver={SQL Native Client};" & _
      "Server=VECTUS\SQLEXPRESS;" & _
      "Database=Soccer;Trusted_Connection=yes;"
 
      Dim ODBCConnection1 As New Odbc.OdbcConnection(sConnString)
 
      Try
 
         ODBCConnection1.Open()
 
         Dim SqlString1 As String = "SELECT * FROM Team"
 
         Dim cmd1 As New OdbcCommand(SqlString1, ODBCConnection1)
 
         Dim dr As OdbcDataReader = cmd1.ExecuteReader()
 
         Dim TeamDataTable As New DataTable
 
         TeamDataTable.Load(dr)
         TeamDataTable.Columns(0).ColumnName = "Team ID"
         TeamDataTable.Columns(1).ColumnName = "Team Name"
         TeamDataTable.Columns(2).ColumnName = "League ID"
         DataGridView1.DataSource = TeamDataTable
 
         dr.Dispose()
         cmd1.Dispose()
         ODBCConnection1.Dispose()
 
         DataGridView1.ColumnHeadersDefaultCellStyle.Font = New Font("Arial", 9)
         DataGridView1.DefaultCellStyle.Font = New Font("Arial", 9)
         DataGridView1.AutoResizeColumns()
         DataGridView1.AutoResizeRows()
 
      Catch ex As Exception
 
         MsgBox("Cannot open connection ! ")
 
      End Try
 
   End Sub