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 |