课件：DAlessonockeAccess.ppt

ADOCE 3.1 MS Activex Dtat Objects for Windows CE ADOCE Connection ? 資料庫 Recordset ? 資料表 Field ? 欄位 Error ? 錯誤處理 四個物件 選擇Project ? References 引用ADOCE ADOCE 選擇Project ? References 引用ADOCE THANK YOU SUCCESS * * 可编辑 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.Row = 0 GridCtrl1.Col = 0 GridCtrl1.Te