资源描述:
《DAEvbEVB程式设计ppt课件》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
PocketAccess
1PocketAccessAccess2000的縮小版PDA裡面預設有,但是看不到,只看到PocketWord,PocketExcel不提供報表與巨集副檔名是cdb(Access2000是mdb)利用ActiveSync進行轉換
2MDBCDB
3MDBCDBPDA與PC要先建立連線
4MDBCDB選擇與PC同步
5MDBCDB將PocketAccess打勾
6MDBCDB
7MDBCDB
8MDBCDB如果連線選定[來賓合作關係]將不會有此選項
9MDBCDB選擇PC上的MDB檔案,準備轉入PDA
10MDBCDB
11MDBCDB轉換傳送完成
12CDBMDB
13CDBMDB
14CDBMDB
15CDBMDB
16CDBMDB
17ADOCE3.1MSActivexDtatObjectsforWindowsCE
18ADOCEConnection資料庫Recordset資料表Field欄位Error錯誤處理四個物件選擇ProjectReferences引用ADOCE
19ADOCE選擇ProjectReferences引用ADOCE
20THANKYOUSUCCESS2022/10/2121可编辑
21ADOCE選擇MSCEADOControl3.1封裝時要選擇加入CEADOXControl3.1
22ADOCE
23ADOCE
24ADOCE結束指令
25ADOCE如果ADOCE引用正確,會看到ADOCE選項
26ADOCE'建立connection物件DimconnAsADOCE.ConnectionSetconn=CreateObject("ADOCE.Connection.3.1")'建立recordset物件DimrsAsADOCE.RecordsetSetrs=CreateObject("ADOCE.Recordset.3.1")
27ADOCE建立connection物件連接DB建立recordset物件連接資料表顯示資料關閉資料庫連線
28ADOCE使用FILESYSTEM物件ProjectComponentsMSCEFilesystemControl3.0PrivateFunctionDBEXISTS(strfilenameAsString)AsBooleanIfFileSystem1.Dir(strfilename)<>""ThenDBEXISTS=TrueElseDBEXISTS=FalseEndIfEndFunction
29ADOCE'設定資料庫路徑Dimstrpath,dbfilenameAsStringstrpath=App.PathIfstrpath="\"Thenstrpath=""EndIfdbfilename=strpath&"\test.cdb"IfDBEXISTS(dbfilename)=TrueThen
30ADOCE'建立connection物件DimconnAsADOCE.ConnectionSetconn=CreateObject("ADOCE.Connection.3.1")'開啟資料庫conn.OpendbfilenameIfconn.Errors.Count>0ThenMsgBox"資料庫開啟錯誤"EndIf'建立recordset物件DimrsAsADOCE.RecordsetSetrs=CreateObject("ADOCE.Recordset.3.1")'連接資料表rs.Open"select*frommember",conn,adOpenDynamic,adLockReadOnly
31ADOCE'顯示資料Text1.Text=rs("name")Text2.Text=rs("birthday")Text3.Text=rs("memo")'關閉資料庫conn.CloseSetrs=NothingSetconn=Nothing
32ADOCE沒有安裝msvbppc.armv4.cab
33ADOCE
34新/刪/修/查
35新增rs.AddNewrs("name")=Text1.Textrs("birthday")=Text2.Textrs.Update
36刪除/修改‘刪除rs.Deleteonerrorresumenextrs.movefirst‘修改rs("name")=Text1.Textrs("birthday")=Text2.Textrs.Update
37上下筆‘下一筆rs.MoveNextIfrs.EOFThenrs.MoveFirstEndIf‘上一筆rs.MovePreviousIfrs.BOFThenrs.MoveLastEndIf
38首末筆‘首筆rs.MoveFirst‘末筆rs.MoveLast
39使用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=rs("name")Case1:GridCtrl1.Text=rs("birthday")EndSelectNextrs.MoveNextNext
40THANKYOUSUCCESS2022/10/2141可编辑