開發(fā)ADOCE搭配WinCE資料存取應(yīng)用程序(2)

2019-11-18 17:46:39

字體：大中小

供稿：網(wǎng)友

使用ADOCE
使用ADOCE，您可以將資料庫移至您WindowsCE基礎(chǔ)的裝置或是從您WindowsCE基礎(chǔ)的裝置移出。您也可以在桌上型電腦裝置上與一個(gè)模擬器上建立或存取資料庫。以下的章節(jié)將描述如何使用ADOCE及其案例。注意ControlConsts.bas安裝在/PRogramFiles/MicrosoftVisualStudio/VB98/VBCE/Samples目錄內(nèi)。此當(dāng)案包含有在ADOCE與其他控制列舉的定義。

需要的軟體
如要使用ADOCE控制，您需要以下的軟體：

MicrosoftWindowsCEServices版本2.1或更早的版本

MicrosoftWindowsNTWorkstation版本4.0或是Windows95或98

您使用裝置的MicrosoftWindowsCEPlatformSDK

MicrosoftVisualBasic專業(yè)版6.0開發(fā)系統(tǒng)或是MicrosoftVisualBasic企業(yè)版6.0

MicrosoftWindowsCEToolkitforVisualBasic版本6.0

注意：ADOCE控制包含在WindowsCEToolkitforVisualBasic之內(nèi)。

在桌上型電腦與裝置之間移動(dòng)資料庫
您可以在一個(gè)桌上型電腦與一個(gè)WindowsCE基礎(chǔ)的裝置之間來回移動(dòng)資料庫表格。儲存在桌上型電腦的資料庫是Microsoft accessdatabase格式。儲存在裝置的資料庫被存為標(biāo)準(zhǔn)WindowsCE基礎(chǔ)表格與加至ADOCE系統(tǒng)表格的額外資訊

從桌上型電腦拷貝一個(gè)資料庫至裝置

連接裝置與桌上型電腦并開啟MobileDevices視窗。

在MobileDevices視窗從工具功能表選擇匯入資料庫表格。會顯示出開啟對話方塊。

選取包含有您要匯入的表格的Access.mdb檔案。從資料庫至MobileDevice匯入對話方塊與資料庫的表格與欄位清單會顯示出來。

選取您要匯入的表格與欄位的核取方塊，并且清除您不要匯入的表格與欄位的核取方塊。

對您希望要唯讀的表格，選取唯讀核取方塊。

如果您要取代裝置內(nèi)與.mdb檔案名稱相同的表格，選取覆蓋現(xiàn)存的表格與/或資料核取方塊。

選擇確定開始轉(zhuǎn)換。

從桌上型電腦拷貝一個(gè)資料庫至裝置

連接裝置與桌上型電腦并開啟MobileDevices視窗。

在MobileDevices視窗，從工具功能表選擇匯出資料庫表格。從MobileDevice至資料庫匯出對話方塊會顯示出來，在連接的裝置上顯示ADOCE表格。

選擇瀏覽按鈕以選取一個(gè)Access.mdb檔案。您也可以在位置方塊輸入路徑與檔案名稱。如果檔案不存在，ADOCE會為您建立。

選取您要匯出表格的核取方塊，然後清除您不要匯出表格的核取方塊。ADOCE會將所有選取的表格放入.mdb檔案。

如果您要取代在.mdb檔案內(nèi)的表格，此表格與所選取的ADOCE表格名稱相同，選取覆蓋現(xiàn)存的表格與/或資料核取方塊。

選擇確定開始轉(zhuǎn)換。

對於計(jì)劃控制將.mdb檔案轉(zhuǎn)換至ADOCE表格及將ADOCE表格轉(zhuǎn)換至.mdb檔案，您可以各別使用DesktopToDevice與DeviceToDesktop函數(shù)。這些函數(shù)行為類似於從資料庫至MobileDevice匯入與從MobileDevice至資料庫匯出對話方塊，但使用者選擇對話方塊不會顯示出來。所有進(jìn)度列會顯示出來，表示轉(zhuǎn)送的狀態(tài)。一個(gè)傳回錯(cuò)誤不會自動(dòng)引起登錄檔案顯示。取而代之的是，函數(shù)會傳回一個(gè)錯(cuò)誤值HRESULT，呼叫的應(yīng)用程式可以采取適當(dāng)?shù)膭?dòng)作。

使用DesktopToDevice函數(shù)，您可以指定轉(zhuǎn)換哪一個(gè)欄位。然而，使用DeviceToDesktop函數(shù)，預(yù)設(shè)為轉(zhuǎn)換表格中所有的欄位。

下列程式碼案例顯示一個(gè)簡單的VisualBasic應(yīng)用程式，其以不同步方式將一個(gè)被包括在VisualBasic的Northwind資料庫的子集拷貝至裝置，但是覆蓋任何現(xiàn)存的Northwind表格。Employees表格以唯讀表格傳送，然而Products表格可以被更新。

DeclareFunctionDesktopToDeviceLib"c:/programfiles/windowsceservices/adofiltr.dll"_
(ByValdesktoplocnAsString,_
　　　ByValtablelistAsString,_
　　　ByValsyncAsBoolean,_
　　　ByValoverwriteAsInteger,_
ByValdevicelocnAsString)AsLong

result=DesktopToDevice("c:/mydbs/nwind.mdb",_
"!Employees..Products.ID.Name.Quantity..",False,True,"")
Ifresult<>0ThenMsgBox"Anerroroccurredtransferringthedata"

建立一個(gè)表格
在您可以使用ADOCE控制存取資料之前，您必須要有一個(gè)用以儲存資料的表格。下列的程式碼案例顯示如何在一個(gè)H/PC(手提式個(gè)人電腦)執(zhí)行專業(yè)軟體的資料庫目錄內(nèi)建立一個(gè)新的ADOCE表格。

Dimrs
Setrs=CreateObject("adoce.recordset")
rs.Open"createtablemytable(firstfieldtext,secondfieldinteger)"
Setrs=Nothing

因?yàn)镾QL陳述式變更一個(gè)表格的結(jié)構(gòu)使得記錄組被關(guān)閉，您不能讀取或是寫入資料直到記錄組重新被開啟。

排序一個(gè)表格
您可以排序一個(gè)資料庫，使用OrderBy陳述式，用索引或不用索引都可以。然而，不用索引排序的資料庫一般較用索引排序的資料庫速度為慢。下列的程式碼案例顯示如何不用索引排序一個(gè)資料庫。它需要一個(gè)名為List1的清單方塊。

Dimrs
Setrs=CreateObject("ADOCE.RecordSet")
rs.open"select*frommytableorderbyfirstfielddesc","",adOpenKeyset,adLockOptimistic
Ifrs.RecordCount>0Then
　DoWhileNotrs.EOF
　　List1.Additemrs.Fields("firstfield").Value
　　rs.MoveNext
　　Loop
EndIf
rs.Close
setrs=Nothing

下列程式碼案例顯示如何在一個(gè)資料庫建立一個(gè)索引，用以增加排序的速度。它需要一個(gè)名為List1的清單方塊。

Dimrs
Setrs=CreateObject("ADOCE.RecordSet")
rs.open"createindexi1onmytable(firstfielddesc)"
rs.open"select*frommytableorderbyfirstfielddesc","",adOpenKeyset,adLockOptimistic
Ifrs.RecordCount>0Then
　DoWhileNotrs.EOF
　　List1.Additemrs.Fields("firstfield").Value
　　rs.MoveNext
　　Loop
EndIf
rs.Close
setrs=Nothing

儲存與取出資訊
如要在資料庫中新增、移除或變更資訊，當(dāng)在開啟記錄組時(shí)，您必須變更預(yù)設(shè)的CursorType與LockType。下列程式碼案例顯示如何在資料庫中儲存資訊：

Dimrs
Setrs=CreateObject("ADOCE.RecordSet")
rs.open"mytable","",adOpenKeyset,adLockOptimistic
rs.Addnew
rs.fields("firstfield")="ActiveXDataObjects"
rs.fields("secondfield")=1.8
rs.Update
rs.Close
Setrs=Nothing

如果您使用AddNew方法與其參數(shù)，您不需要使用Update方法，因?yàn)橘Y料庫會自動(dòng)變更。以下程式碼案例顯示如何使用AddNew：

rs.Addnew"firstfield","WindowsCE"

如要變更一個(gè)記錄，對欄位做一個(gè)需要的變更然後使用Update方法。如果您使用Update及其參數(shù)，資料庫會自動(dòng)變更。以下的程式碼案例顯示如何使用Update：

rs.Update"firstfield","ADOCE"

在您使用AddNew與Update儲存資料庫資料之後，您可以使用Value屬性來取得儲存在一個(gè)欄位的資訊。以下的程式碼案例顯示如何從一個(gè)ADOCE資料庫取出資訊。它需要一個(gè)名為List1的清單方塊。

Dimrs
Setrs=CreateObject("ADOCE.RecordSet")
rs.open"mytable","",adOpenKeyset,adLockOptimistic　
Ifrs.RecordCount>0Then
　DoWhileNotrs.EOF
　　List1.Additemrs.Fields("firstfield").Value
　　rs.MoveNext
　　Loop
EndIf
rs.Close
setrs=Nothing

分送ADOCE應(yīng)用程式
ADOCE應(yīng)用程式元件必須分別安裝在桌上型電腦與裝置兩處。分送一個(gè)ADOCE應(yīng)用程式的一個(gè)方式是修改范例安裝應(yīng)用程式，其包含在MicrosoftWindowsCEToolkitforVisualBasic6.0中。所有的ADOCE安裝應(yīng)用程式會驗(yàn)證WindowsCEServices2.1或更早的版本是否已安裝并且對您的應(yīng)用程式新增參照至ADOCE.cab檔案至AppMgr.ini檔案。

使用一個(gè)H/PC(手提式個(gè)人電腦)執(zhí)行專業(yè)版軟體

本節(jié)描述額外的程序，可以在一個(gè)手提式個(gè)人電腦執(zhí)行MicrosoftWindowsCE手提式個(gè)人電腦專業(yè)版本3.0。

建立一個(gè)資料庫
下列程式碼案例顯示如何在一個(gè)H/PC(手提式個(gè)人電腦)執(zhí)行專業(yè)版軟體建立一個(gè)外部的資料庫：

Dimrs
Setrs=CreateObject("adoce.recordset")
rs.Open"createdatabase'/mydatabase.cdb'"
Setrs=Nothing

從一個(gè).cdb檔案取出資訊
如果您在一個(gè)執(zhí)行專業(yè)版軟體的H/PC(手提式個(gè)人電腦)建立一個(gè)資料庫，您可以用連接參數(shù)傳送路徑至資料庫以存取此資料。所有的作業(yè)可以用一個(gè)執(zhí)行在.cdb檔案的空字串("")藉由變更連接字串來執(zhí)行。以下的程式碼顯示如何從一個(gè).cdb檔案取出資訊：

Dimrs
Setrs=CreateObject("ADOCE.RecordSet")
rs.open"mytable","/mydatabase.cdb",adOpenKeyset,adLockOptimistic
Ifrs.RecordCount>0Then
　DoWhileNotrs.EOF
　　List1.AddItemrs.Fields("firstfield").Value
　　rs.MoveNext
　　Loop
EndIf
rs.Close
setrs=Nothing

摘要
ADOCE是一個(gè)應(yīng)用程式階層的資料存取物件模組，可以使用在WindowsCEToolkitsforVisualBasic。ADOCE新增了新的資料庫功能至WindowsCE可以存取儲存在本機(jī)裝置的資料庫并提供對一個(gè)網(wǎng)路資料庫的資料復(fù)制與資料同步。ADOCE的速度與容易使用，加上使用少量額外記憶體以及占用磁碟空間很小，使得其與精簡、強(qiáng)而有力并快速的WindowsCE作業(yè)系統(tǒng)搭配非常理想。

更多的資訊
有關(guān)WindowsCE與內(nèi)嵌發(fā)展工具最新的資訊，請拜訪MicrosoftWindowsCEWeb網(wǎng)站http://www.microsoft.com/windowsce/default.asp。

有關(guān)ActiveX控制的資料，請拜訪http://www.microsoft.com/com/tech/activex.asp。->

上一篇：在VB6.0中實(shí)現(xiàn)動(dòng)態(tài)統(tǒng)計(jì)報(bào)表

下一篇：MicrosoftAccess秘密、技巧和陷阱