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 |