Pocket Access

Pocket Access Access 2000 的縮小版 PDA 裡面預設有，但是看不到，只看到 Pock

et Word, Pocket Excel 不提供報表與巨集 副檔名是 cdb(Access 2000 是 mdb) 利用 Active Sync 進行轉換

MDB CDB

MDB CDBPDA 與 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封裝時要選擇加入 CE ADOX Control 3.1

ADOCE

ADOCE

ADOCE

結束指令

ADOCE

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

ADOCE

' 建立 connection 物件Dim conn As ADOCE.ConnectionSet conn = CreateObject("ADOCE.Connection.3.1")

' 建立 recordset 物件Dim rs As ADOCE.RecordsetSet 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 IfEnd Function

ADOCE

' 設定資料庫路徑Dim strpath, dbfilename As Stringstrpath = App.PathIf strpath = "\" Then strpath = ""End Ifdbfilename = 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.Textrs.Update

刪除 / 修改

‘ 刪除 rs.Delete on error resume next rs.movefirst

‘ 修改 rs("name") = Text1.Text rs("birthday") = Text2.Textrs.Update

上下筆

‘ 下一筆rs.MoveNextIf rs.EOF Then rs.MoveFirstEnd If

‘ 上一筆 rs.MovePreviousIf rs.BOF Then rs.MoveLastEnd If

首末筆

‘ 首筆rs.MoveFirst

‘ 末筆 rs.MoveLast

使用 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