ODBC OBDCDataAdapter + DataGridView 使用方法

 
ODBC OBDCDataAdapter + DataGridView 使用方法
 

   Form1.vb
 
   Private Sub ODBCGetData()
 
      Dim ConnString As String = _
      "Driver={SQL Native Client};" & _
      "Server=VECTUS\SQLEXPRESS;" & _
      "Database=Soccer;Trusted_Connection=yes;"
 
      Dim ODBCConnection1 As New Odbc.OdbcConnection(ConnString)
 
      Try
 
         ODBCConnection1.Open()
 
         Dim SqlString1 As String = "SELECT * FROM Team"
 
         Dim Adapter As New OdbcDataAdapter
         Adapter.SelectCommand = New OdbcCommand(SqlString1, ODBCConnection1)
 
         Dim ds As New DataSet
         Adapter.Fill(ds)
 
         DataGridView1.DataSource = ds.Tables(0).DefaultView
 
         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