ADOCE for ADO Programmers

Windows CE 专栏收录该内容
41 篇文章 0 订阅

 

ADOCE for ADO Programmers

老狼按:最近在做Pocket PC上的数据库开发,这篇文章给了我许多帮助,所以我才把它翻译出来,希望给大家一些帮助。

你是一个需要将自己的知识和代码从PC移植到Pocket PC上的ADO开发者吗?我将通过一些代码实例来向您展示ADOADOCE之间的相似和不同之处。

Download the 619-CF.exe from the MSDN Code Center.

What You Need

·                     Microsoft® eMbedded Visual Tools.

·                     Microsoft SQL Server 2000 Developer Edition.

·                     SQL Server 2000 Windows® CE Edition.

·                     Microsoft ADOCE (ActiveX® Data Objects CE) 3.1 included with SQL Server 2000 Windows CE Edition.

·                     To try the server-side examples, you need Microsoft Visual Studio® and ADO 2.6.

Gotchas

因为在CreateObject声明中有一处内存漏洞,所以你最好在你的程序中只创建ADOCE对象一次。在实例代码中,我将CreateObject的调用放到了每一个事件过程中,但是那只是为了比较ADO代码。

Languages Supported

English

Data Access

数据访问

大部分企业应用程序都是以数据为中心的,这意味着你需要知道如何储存信息。我的爱好是存储数据,当Pocket PC上使用的是真正的数据库——SQL Server 2000 Windows CE Edition因此,我的第一个建议是得到你所需要的一个SQL Server 2000 Developer Edition的许可。

当你安装了SQL Server 2000 Windows CE Edition后,你将同时得到ADOCE 3.1,最新的版本。我将用它和PC上最新版的ADO 2.6进行比较。

Main Differences

主要差异

好了,让我们来首先大概地看一下重要的差别。下面是一个ADOCE不支持的ADO功能列表:

·                     Command and Parameter objects

·                     Collection objects

·                     Property object

·                     Recordset persistence (Recordset.Save)

·                     Asynchronous queries

·                     Disconnected Recordsets

·                     Dynamic creation of Recordsets

·                     Multiple queries (Recordset.NextRecordset)

对于我来说,没有的Recordset persistence意味着我不能将结果集存成Extensible Markup Language (XML)来供Pocket PC上的其他程序来调用。也许更重要的是,我不能将XML数据存入我的结果集中了。这造成了我需要进行从服务器组件中到Pocket PC上的数据转化或者相反——我也需要一些转化。我的建议是看一下Odyssey Software提供了什么。他们的CefusionViaXML产品在这里都是有用的。如果你在寻找更长远(读Microsoft .NET)的方法来转换数据,你应该看一下pocketSOAP

无论如何,大多数重要的功能在ADOCE中被实现了。现在我们来看一下在相同的数据访问环境中的一些差异。

Data Retrieval

数据获取

让我们用最常见的设想来开始——当你需要从一个数据存储中得到一些信息。在PC上,填写ListView控件的数据获取代码将会这么写:

Dim litm As ListItem
   
Dim laco As Connection
   
Dim lars As Recordset
   
Dim lsSQL As String
   
 
   
  ' Add column headers
   
lvwArticles.ColumnHeaders.Add , , "Description", 2500
   
lvwArticles.ColumnHeaders.Add , , "Price", 600, lvwColumnRight
   
lvwArticles.ColumnHeaders.Add , , "Stock", 600, lvwColumnRight
   
 
   
' Create objects
   
Set laco = CreateObject("ADODB.Connection")
   
Set lars = CreateObject("ADODB.Recordset")
   
 
   
' Open Connection
   
laco.Open "Provider=SQLOLEDB;Data Source=SERVERNAME;" & _
   
          "Initial Catalog=DBNAME;Trusted_Connection=Yes"
   
 
   
' Open Recordset
   
lsSQL = "SELECT * FROM Article"
   
lars.Open lsSQL, laco, adOpenForwardOnly, adLockReadOnly
   
 
   
' Clear list and get item rows
   
Do While Not lars.EOF
   
  Set litm = lvwArticles.ListItems.Add(, , lars("Description").Value)
   
    litm.SubItems(1) = lars("Price").Value
   
    litm.SubItems(2) = lars("Stock").Value
   
  lars.MoveNext
   
Loop
   
  
   
' Close Recordset and Connection
   
lars.Close
   
laco.Close
   

你在Pocket PC上将这样做:

Dim litm As ListItem
   
Dim laco As Connection
   
Dim lars As Recordset
   
Dim lsSQL As String
   
 
   
' Add column headers
   
lvwArticles.ColumnHeaders.Add , , "Description", 2500
   
lvwArticles.ColumnHeaders.Add , , "Price", 600, lvwColumnRight
   
lvwArticles.ColumnHeaders.Add , , "Stock", 600, lvwColumnRight
   
 
   
' Create objects
   
Set laco = CreateObject("ADOCE.Connection.3.1")
   
Set lars = CreateObject("ADOCE.Recordset.3.1")
   
 
   
' Open Connection
   
laco.Open "Provider=Microsoft.SQLSERVER.OLEDB.CE.1.0;" & _
   
          "Data Source=/DBNAME.sdf"
   
 
   
' Open Recordset
   
lsSQL = "SELECT * FROM Article"
   
lars.Open lsSQL, laco, adOpenForwardOnly, adLockReadOnly
   
 
   
' Clear list and get item rows
   
Do While Not lars.EOF
   
  Set litm = lvwArticles.ListItems.Add(, , lars("Description").Value)
   
    litm.SubItems(1) = lars("Price").Value
   
    litm.SubItems(2) = lars("Stock").Value
   
  lars.MoveNext
   
Loop
   
  
   
' Close Recordset and Connection
   
lars.Close
   
laco.Close
   

正如你看到的,在两个例子中有一些较小的差别。比较明显的是Connection对象的Open方法的连接字符串不同。如果你忽略Provider参数,ADOCE将假设你想访问一个Pocket Access数据库文件。而SQL Server CE始终是作为一个文件名被引用。这种情况下,文件将被放置到设备的根目录下,但是也可以被放置在你的应用程序目录中(例如,Data Source=/Program Files/AppName/AppName.sdf)。

万事具备。结论(a)所有的数据访问代码几乎不需要修改就可以被使用并且(b)大多数你的PC程序数据访问代码得到数据,你会认识到将你PC应用程序移植到Pocket PC上不需要巨大的努力。

Updating Data

更新数据

现在,让我们看一下另外一个假设——当我们需要添加一些信息到数据存储。我将使用和数据获取相同的代码来打开和关闭Connection Recordset对象。在PC上你将写类似的代码:

' Open Recordset
   
lsSQL = "SELECT * FROM Article"
   
lars.Open lsSQL, laco, adOpenDynamic, adLockOptimistic
   
  
   
' Add new Article
   
lars.AddNew
   
lars("Description").Value = "Test"
   
lars("Price").Value = 50
   
lars("Stock").Value = 100
   
lars.Update
   

而在Pocket PC上你将看到这样的代码:

' Open Recordset
   
lsTable = "Article"
   
lars.Open lsTable, laco, adOpenDynamic, adLockOptimistic, _
   
                         adCmdTableDirect
   
  
   
' Add new Article
   
lars.AddNew
   
lars("Description").Value = "Test"
   
lars("Price").Value = 50
   
lars("Stock").Value = 100
   
lars.Update
   

正如你看到的,不同之处在于你打开Recordset的方法。作为更新,Recordset作为一个表被打开比作为一个SQL声明(SELECT)更好。你也许在PC上(ADO)做的很好,但是这一点大概是你将代码从PC移植到Pocket PC上时不得不改变的。

让我们来看一个更新的状况。这是PC上的代码:

' Open Recordset
   
lsSQL = "SELECT * FROM Article WHERE Description='Test'"
   
lars.Open lsSQL, laco, adOpenDynamic, adLockOptimistic
   
  
   
' Update Article
   
If Not lars.EOF Then
   
  lars("Price").Value = 200
   
  lars.Update
   
End If
   

这是Pocket PC上的:

' Open Recordset
   
lsTable = "Article"
   
lars.Open lsTable, laco, adOpenDynamic, adLockOptimistic, _
   
                         adCmdTableDirect
   
lars.Find "Description='Test'"
   
  
   
' Update Article
   
If Not lars.EOF Then
   
  lars("Price").Value = 200
   
  lars.Update
   
End If
   

像在PC上一样用SQL声明(SELECT)来创建一个可更新Recordset是不可能的,你可以使用Find方法得到Recordset中想要的位置。

如果你像加强一些性能,你可以用一个"raw" SQL UPDATE statement来做相同的事情:

laco.Execute "UPDATE Article SET Price=200 WHERE Description='Test'"

为了完善设想,我们来看一下如何删除数据。在PC上,代码是这样的:

' Open Recordset
   
lsSQL = "SELECT * FROM Article WHERE Description='Test'"
   
lars.Open lsSQL, laco, adOpenDynamic, adLockOptimistic
   
  
   
' Delete Article
   
If Not lars.EOF Then lars.Delete
   

Pocket PC上相应的代码:

' Open Recordset
   
lsTable = "Article"
   
lars.Open lsTable, laco, adOpenDynamic, adLockOptimistic, _
   
                         adCmdTableDirect
   
lars.Find "Description='Test'"
   
  
   
' Delete Article
   
If Not lars.EOF Then lars.Delete
   

这里和更新的代码非常像。请注意Find方法的结果集是一个只包含与搜索标准相匹配记录的Recordset。这意味着你在PCPocket PC中会得到相同内容的Recordset。我说这个,是为了防止你想对Pocket PC上的Recordset做更多的事情,因为你打开了相同的表。

此外,你可以用一个SQL DELETE语句来做几乎相同的事情:

laco.Execute "DELETE Article WHERE Description='Test'"
   

我说“几乎”,是因为最后的Execute将会删除所有与查询条件匹配的记录,但是上面的只会删除第一条出现的记录。在实际的情况中,搜索比较也许会被设定为唯一的键来产生出相同的结果。

完整的例子,请看例子的代码。

Conclusion

结束

你已经知道了大多数关于PC上的ADO可以被用在你的Pocket PC上的事情,即使一些事情的处理方式略有不同。同样,在写Pocket PC程序时,大部分数据访问代码都可以通过一些改动应用到你的程序中去。

你今天为什么不开始将一个PC上的企业级程序移植到Pocket PC上去?马上开始,然后向别人展示——这将是你下一个工程。

欢迎访问aawolf的专栏:http://www.csdn.net/develop/author/netauthor/aawolf/

  • 0
    点赞
  • 0
    评论
  • 0
    收藏
  • 一键三连
    一键三连
  • 扫一扫,分享海报

相关推荐
<p> <span style="font-size:14px;color:#337FE5;">【为什么学爬虫?】</span> </p> <p> <span style="font-size:14px;">       1、爬虫入手容易,但是深入较难,如何写出高效率的爬虫,如何写出灵活性高可扩展的爬虫都是一项技术活。另外在爬虫过程中,经常容易遇到被反爬虫,比如字体反爬、IP识别、验证码等,如何层层攻克难点拿到想要的数据,这门课程,你都能学到!</span> </p> <p> <span style="font-size:14px;">       2、如果是作为一个其他行业的开发者,比如app开发,web开发,学习爬虫能让你加强对技术的认知,能够开发出更加安全的软件和网站</span> </p> <p> <br /> </p> <span style="font-size:14px;color:#337FE5;">【课程设计】</span> <p class="ql-long-10663260"> <span> </span> </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 一个完整的爬虫程序,无论大小,总体来说可以分成三个步骤,分别是: </p> <ol> <li class="" style="font-size:11pt;color:#494949;"> 网络请求:模拟浏览器的行为从网上抓取数据。 </li> <li class="" style="font-size:11pt;color:#494949;"> 数据解析:将请求下来的数据进行过滤,提取我们想要的数据。 </li> <li class="" style="font-size:11pt;color:#494949;"> 数据存储:将提取到的数据存储到硬盘或者内存中。比如用mysql数据库或者redis等。 </li> </ol> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 那么本课程也是按照这几个步骤循序渐进的进行讲解,带领学生完整的掌握每个步骤的技术。另外,因为爬虫的多样性,在爬取的过程中可能会发生被反爬、效率低下等。因此我们又增加了两个章节用来提高爬虫程序的灵活性,分别是: </p> <ol> <li class="" style="font-size:11pt;color:#494949;"> 爬虫进阶:包括IP代理,多线程爬虫,图形验证码识别、JS加密解密、动态网页爬虫、字体反爬识别等。 </li> <li class="" style="font-size:11pt;color:#494949;"> Scrapy和分布式爬虫:Scrapy框架、Scrapy-redis组件、分布式爬虫等。 </li> </ol> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 通过爬虫进阶的知识点我们能应付大量的反爬网站,而Scrapy框架作为一个专业的爬虫框架,使用他可以快速提高我们编写爬虫程序的效率和速度。另外如果一台机器不能满足你的需求,我们可以用分布式爬虫让多台机器帮助你快速爬取数据。 </p> <p style="font-size:11pt;color:#494949;">   </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> 从基础爬虫到商业化应用爬虫,本套课程满足您的所有需求! </p> <p class="ql-long-26664262" style="font-size:11pt;color:#494949;"> <br /> </p> <p> <br /> </p> <p> <span style="font-size:14px;background-color:#FFFFFF;color:#337FE5;">【课程服务】</span> </p> <p> <span style="font-size:14px;">专属付费社群+定期答疑</span> </p> <p> <br /> </p> <p class="ql-long-24357476"> <span style="font-size:16px;"><br /> </span> </p> <p> <br /> </p> <p class="ql-long-24357476"> <span style="font-size:16px;"></span> </p>
©️2020 CSDN 皮肤主题: 大白 设计师:CSDN官方博客 返回首页
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、C币套餐、付费专栏及课程。

余额充值