1 / 39

Pocket Access

Pocket Access. Pocket Access. Access 2000 的縮小版 PDA 裡面預設有，但是看不到，只看到 Pocket Word, Pocket Excel 不提供報表與巨集 副檔名是 cdb(Access 2000 是 mdb) 利用 Active Sync 進行轉換. MDB  CDB. MDB  CDB. PDA 與 PC 要先建立連線. MDB  CDB. 選擇與 PC 同步. 將 Pocket Access 打勾. MDB  CDB. MDB  CDB. MDB  CDB. MDB  CDB.

ariane
Download Presentation

Pocket Access

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. Pocket Access

  2. Pocket Access • Access 2000的縮小版 • PDA裡面預設有，但是看不到，只看到Pocket Word, Pocket Excel • 不提供報表與巨集 • 副檔名是cdb(Access 2000是mdb) • 利用Active Sync進行轉換

  3. MDB  CDB

  4. MDB  CDB PDA與PC要先建立連線

  5. MDB  CDB 選擇與PC同步

  6. 將Pocket Access打勾 MDB  CDB

  7. MDB  CDB

  8. MDB  CDB

  9. MDB  CDB 如果連線選定[來賓合作關係]將不會有此選項

  10. MDB  CDB 選擇PC上的MDB檔案，準備轉入PDA

  11. MDB  CDB

  12. MDB  CDB 轉換傳送完成

  13. CDB MDB

  14. CDB MDB

  15. CDB MDB

  16. CDB MDB

  17. CDB MDB

  18. ADOCE 3.1 MS Activex Dtat Objects for Windows CE

  19. ADOCE • Connection  資料庫 • Recordset  資料表 • Field  欄位 • Error  錯誤處理 四個物件 選擇Project  References 引用ADOCE

  20. ADOCE 選擇Project  References 引用ADOCE

  21. ADOCE 選擇MS CE ADO Control 3.1 封裝時要選擇加入CE ADOX Control 3.1

  22. ADOCE

  23. ADOCE

  24. ADOCE 結束指令

  25. ADOCE 如果ADOCE引用正確，會看到ADOCE選項

  26. ADOCE ' 建立connection物件 Dim conn As ADOCE.Connection Set conn = CreateObject("ADOCE.Connection.3.1") '建立recordset物件 Dim rs As ADOCE.Recordset Set rs = CreateObject("ADOCE.Recordset.3.1")

  27. ADOCE 建立connection物件 連接DB 建立recordset物件 連接資料表 顯示資料 關閉資料庫連線

  28. ADOCE 使用FILESYSTEM物件 Project  Components  MS CE Filesystem Control 3.0 Private Function DBEXISTS(strfilename As String) As Boolean If FileSystem1.Dir(strfilename) <> "" Then DBEXISTS = True Else DBEXISTS = False End If End Function

  29. ADOCE ' 設定資料庫路徑 Dim strpath, dbfilename As String strpath = App.Path If strpath = "\" Then strpath = "" End If dbfilename = strpath & "\test.cdb" If DBEXISTS(dbfilename) = True Then

  30. ADOCE ' 建立connection物件 Dim conn As ADOCE.Connection Set conn = CreateObject("ADOCE.Connection.3.1") ' 開啟資料庫 conn.Open dbfilename If conn.Errors.Count > 0 Then MsgBox "資料庫開啟錯誤" End If '建立recordset物件 Dim rs As ADOCE.Recordset Set rs = CreateObject("ADOCE.Recordset.3.1") ' 連接資料表 rs.Open "select * from member", conn, adOpenDynamic, adLockReadOnly

  31. ADOCE ' 顯示資料 Text1.Text = rs("name") Text2.Text = rs("birthday") Text3.Text = rs("memo") '關閉資料庫 conn.Close Set rs = Nothing Set conn = Nothing

  32. ADOCE 沒有安裝msvbppc.armv4.cab

  33. ADOCE

  34. 新/刪/修/查

  35. 新增 rs.AddNew rs("name") = Text1.Text rs("birthday") = Text2.Text rs.Update

  36. 刪除/修改 ‘刪除 rs.Delete on error resume next rs.movefirst ‘修改 rs("name") = Text1.Text rs("birthday") = Text2.Text rs.Update

  37. 上下筆 ‘下一筆 rs.MoveNext If rs.EOF Then rs.MoveFirst End If ‘上一筆 rs.MovePrevious If rs.BOF Then rs.MoveLast End If

  38. 首末筆 ‘首筆 rs.MoveFirst ‘末筆 rs.MoveLast

  39. 使用Grid來顯示資料 GridCtrl1.Rows = totalcount + 1 GridCtrl1.Cols = 2 GridCtrl1.Row = 0 GridCtrl1.Col = 0 GridCtrl1.Text = "姓名" GridCtrl1.Col = 1 GridCtrl1.Text = "生日" rs.MoveFirst For i = 1 To totalcount GridCtrl1.Row = i For j = 0 To 1 GridCtrl1.Col = j Select Case j Case 0: GridCtrl1.Text = rs("name") Case 1: GridCtrl1.Text = rs("birthday") End Select Next rs.MoveNext Next

More Related