PDA-Evb1(EVB程式设计1).ppt

PocketAccess PocketAccess Access2000的縮小版PDA裡面預設有 但是看不到 只看到PocketWord PocketExcel不提供報表與巨集副檔名是cdb Access2000是mdb 利用ActiveSync進行轉換 MDB CDB MDB CDB PDA與PC要先建立連線 MDB CDB 選擇與PC同步 MDB CDB MDB CDB MDB CDB MDB CDB 如果連線選定 來賓合作關係 將不會有此選項 MDB CDB 選擇PC上的MDB檔案 準備轉入PDA MDB CDB MDB CDB 轉換傳送完成 CDB MDB CDB MDB CDB MDB CDB MDB CDB MDB ADOCE3 1 MSActivexDtatObjectsforWindowsCE ADOCE Connection 資料庫Recordset 資料表Field 欄位Error 錯誤處理四個物件 選擇Project References引用ADOCE ADOCE 選擇Project References引用ADOCE ADOCE 選擇MSCEADOControl3 1封裝時要選擇加入CEADOXControl3 1 ADOCE ADOCE ADOCE 結束指令 ADOCE 如果ADOCE引用正確 會看到ADOCE選項 ADOCE 建立connection物件DimconnAsADOCE ConnectionSetconn CreateObject ADOCE Connection 3 1 建立recordset物件DimrsAsADOCE RecordsetSetrs CreateObject ADOCE Recordset 3 1 ADOCE 建立connection物件 連接DB 建立recordset物件 連接資料表 顯示資料 關閉資料庫連線 ADOCE 使用物件Project Components MSCEControl3 0PrivateFunctionDBEXISTS strAsString AsBooleanIf str ThenDBEXISTS TrueElseDBEXISTS FalseEndIfEndFunction ADOCE 設定資料庫路徑Dimstrpath dbAsStringstrpath App PathIfstrpath Thenstrpath EndIfdb strpath test cdb IfDBEXISTS db TrueThen ADOCE 建立connection物件DimconnAsADOCE ConnectionSetconn CreateObject ADOCE Connection 3 1 開啟資料庫conn OpendbIfconn Errors Count 0ThenMsgBox 資料庫開啟錯誤 EndIf 建立recordset物件DimrsAsADOCE RecordsetSetrs CreateObject ADOCE Recordset 3 1 連接資料表rs Open select frommember conn adOpenDynamic adLockReadOnly ADOCE 顯示資料Text1 Text rs name Text2 Text rs birthday Text3 Text rs memo 關閉資料庫conn CloseSetrs NothingSetconn Nothing ADOCE 沒有安裝msvbppc armv4 cab ADOCE 新 刪 修 查 新增 rs AddNewrs name Text1 Textrs birthday Text2 Textrs Update 刪除 修改 刪除rs Deleteonerrorresumenextrs movefirst 修改rs name Text1 Textrs birthday Text2 Textrs Update 上下筆 下一筆rs MoveNextIfrs EOFThenrs MoveFirstEndIf 上一筆rs MovePreviousIfrs BOFThenrs MoveLastEndIf 首末筆 首筆rs MoveFirst 末筆rs MoveLast 使用Grid來顯示資料 GridCtrl1 Rows totalcount 1GridCtrl1 Cols 2GridCtrl1 Row 0GridCtrl1 Col 0GridCtrl1 Text 姓名 GridCtrl1 Col 1GridCtrl1 Text 生日 rs MoveFirstFori 1TototalcountGridCtrl1 Row iForj 0To1GridCtrl1 Col jSelectCasejCase0 GridCtrl1 Text r