DAEvbEVB程式设计ppt课件

《DAEvbEVB程式设计ppt课件》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

PocketAccess

1PocketAccessAccess2000的縮小版PDA裡面預設有，但是看不到，只看到PocketWord,PocketExcel不提供報表與巨集副檔名是cdb(Access2000是mdb)利用ActiveSync進行轉換

2MDBCDB

3MDBCDBPDA與PC要先建立連線

4MDBCDB選擇與PC同步

5MDBCDB將PocketAccess打勾

6MDBCDB

7MDBCDB

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

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

10MDBCDB

11MDBCDB轉換傳送完成

12CDBMDB

13CDBMDB

14CDBMDB

15CDBMDB

16CDBMDB

17ADOCE3.1MSActivexDtatObjectsforWindowsCE

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

19ADOCE選擇ProjectReferences引用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物件ProjectComponentsMSCEFilesystemControl3.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可编辑