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同步

MDB  CDB 將Pocket Access打勾

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

ADOCE 3.1 MS Activex Dtat Objects for Windows CE

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

ADOCE 選擇Project  References 引用ADOCE

ADOCE 選擇MS CE ADO Control 3.1

ADOCE

ADOCE

ADOCE 結束指令

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

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")

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

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

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

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

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

ADOCE 沒有安裝msvbppc.armv4.cab

ADOCE

新/刪/修/查

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

刪除/修改 ‘ 刪除 rs.Delete ‘ 修改 rs("name") = Text1.Text rs("birthday") = Text2.Text rs.Update

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

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

使用Grid來顯示資料 GridCtrl1.Rows = totalcount + 1 GridCtrl1.Cols = 2 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