VB2005序列资料库处理指令.DOC

VB2005序列 資料庫處理指令目錄 HYPERLINK \l 關聯圖 VB2005序列 資料庫物件關聯圖 HYPERLINK \l 引入資料處理類別 引入資料處理類別 HYPERLINK \l 建立連線 建立連線 HYPERLINK \l 執行SQL指令 執行SQL指令 HYPERLINK \l 讀取資料表紀錄 讀取資料表紀錄 HYPERLINK \l 使用ADODB方法 使用ADODB方法 HYPERLINK \l 表列紀錄 表列紀錄 HYPERLINK \l DataGridView應用指令 DataGridView應用指令 HYPERLINK \l 動態設定DataGridView表格及加入資料 動態設定DataGridView表格及加入資料 HYPERLINK \l 排序 排序 HYPERLINK \l 過濾紀錄 過濾紀錄 HYPERLINK \l 逐筆處理資料 逐筆處理資料 HYPERLINK \l 設定控制項連結資料來源欄位 設定控制項連結資料來源欄位 HYPERLINK \l 批次更新連結資料表紀錄 批次更新連結資料表紀錄 HYPERLINK \l 設定控制項位置及大小 設定控制項位置及大小 HYPERLINK \l 上傳BLOBFile 上傳BLOBFile HYPERLINK \l 下載BLOB檔案 下載BLOB檔案 HYPERLINK \l 交易機制處理指令 交易機制處理指令 HYPERLINK \l 資料轉檔 資料轉檔處理VB2005序列 資料庫物件關聯圖 1. 引入資料處理類別Imports System.Data.OdbcImports SystemImports Microsoft.VisualBasic2.建立連線Public Sub openCon(ByVal dbStr As String) Dim str As String Try*************************************************************Access str = Provider=Microsoft.Jet.OLEDB.4.0; Data Source= dbStr acCon = New OleDbConnection(str) If Not acCon.State = ConnectionState.Open Then acCon.Open()‘******************************************************************* Dim opValue As Long opValue = 3145731 Used in Large Tables with no-catch results opValue = 1 + 2 + 8 + 32 + 16384 Normal Usestr = DRIVER={MySQL ODBC DRV Driver};SERVER= HST ; DATABASE= dbStr ;UID= USR ;PASSWORD= PSW ;Option= opValueDRV ODBC連結程式版本代號 myCon = New OdbcConnection(str) If Not myCon.State = ConnectionState.Open Then myCon.Open() If myCon.State = ConnectionState.Open Then str = Set character_set_client = big5; myCmd = New OdbcCommand(str, myCon) myCmd.ExecuteNonQuery() str = Set character_set_results= big5; myCmd = New OdbcCommand(str, myCon) myCmd.ExecuteNonQuery() str = Set character_set_connection = big5; myCmd = New OdbcCommand(str, myCon) 以上三道指令可合併為 Set Charset big5; myCmd.ExecuteNonQuery() End If str = Set Session Max_allowed_Packet = myCmd = New