关于ADO记录集设计解决方案

学习ADO时，你可能会遇到ADO记录集问题，这里将介绍ADO记录集问题的解决方法，在这里拿出来和大家分享一下。根据您决定使用哪一种上述解决方案，可以有几种不同的方法来实现这一点。我们将单独考察每个解决方案。返回的数据是记录集的一种简单XML数据表示。现在，我们将使用MicrosoftXMLDocumentObjectModel(DOM)来检索此数据，以便在内部循环处理每一条记录，XML对这一过程的表示如下：

创新互联建站是一家集网站建设,扎赉特企业网站建设,扎赉特品牌网站建设,网站定制,扎赉特网站建设报价,网络营销,网络优化,扎赉特网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。

 
 

  
  
PrivateSubCommand1_Click() 
  
  
DimaryArtists()AsString 
  
  
DimoRopeasNewRope.Proxy 
  
  
oRope.LoadServicesDescriptionicURI,"http://MyServer/GetArtists.xml" 
  
  
GetArtistsFromXMLoRope.GetAllArtists(),aryArtists() 
  
  
'现在aryArtists()是包含我们的艺术家的一个数组 
  
  
SetoRope=Nothing
  
  
EndSub 
  
  
http://www.mscto.com 
  
  

  
  
PrivateSubGetArtistsFromXML(ByValsXMLAsString,ByRefaryArtists()AsString) 
  
  
DimoXMLAsNewMSXML.DOMDocument 
  
  
DimoXMLDocumentAsMSXML.IXMLDOMElement 
  
  
DimiCountAsInteger 
  
  
DimxAsInteger 
  
  

  
  
oXML.loadXMLsXML 
  
  
SetoXMLDocument=oXML.documentElement 
  
  
iCount=oXMLDocument.childNodes.length 
  
  

  
  
ReDimaryArtists(iCount-1) 
  
  

  
  
Forx=0ToiCount-1 
  
  
aryArtists(x)=oXMLDocument.childNodes.Item(x).Text 
  
  
Next 
  
  

  
  
SetoXML=Nothing
  
  
SetoXMLDocument=Nothing
  
  
EndSub 
 
 

#T#Command1_Click()方法使用ROPE调用服务。因为该服务按解决方案1中指定的方式返回数据，所以现在就可以传递包含在我们的XML字符串中的返回数据。我们按值传递该字符串，并按引用传递一个将被置入PublicSubGetArtistsFromXML中的空数组。此过程置入数组并将它返回给调用过程。数组变量aryArtists()现在包含我们的艺术家的一个数组。为了将此XML数据返回给一个ADO记录集，我们需要将数据加载到XMLDOM中，然后使用ADO记录集的OPEN方法创建艺术家的记录集：

 
 

  
  
PrivateSubCommand1_Click() 
  
  
DimoRSAsADODB.Recordset 
  
  
DimoRopeasNewRope.Proxy 
  
  
oRope.LoadServicesDescriptionicURI,"http://MyServer/GetArtists.xml" 
  
  
SetoRS=CreateADORSFromXML(oRope.GetAllArtists()) 
  
  
'现在oRS是包含我们的艺术家数据的一个分离的ADO记录集 
  
  

  
  
SetoRope=Nothing
  
  
SetoRS=Nothing
  
  
EndSub 
  
  
PrivateFunctionCreateADORSFromXML(ByValsXMLAsString)AsADODB.Recordset 
  
  
DimoXMLAsNewMSXML.DOMDocument 
  
  
DimoRSAsNewADODB.Recordset 
  
  

  
  
oXML.loadXMLsXML 
  
  
oRS.OpenoXML 
  
  

  
  
SetCreateADORSFromXML=oRS
  
  
SetoRS=Nothing
  
  
SetoXML=Nothing
  
  
EndFunction 
 
 

在Command1_Click()事件中，ROPE对象调用我们的方法，该方法会就像在解决方案2中那样返回我们的XML字符串。通过调用CreateADORSFromXML函数，就可以设置一个对象引用从SOAP返回数据创建一个分离的记录集。

文章名称：关于ADO记录集设计解决方案
本文链接：http://wtcwzsj.com/article/dpcooci.html