ErrExit:

    Exit Function

ErrHandle:

    Set ConvDatasetToRecordset = Nothing

    Resume ErrExit

End Function

Private Function GetDataType(ByVal vsType As String) As ADODB.DataTypeEnum

   ' Convert the XSD datatype to a ADO datatype

   Select Case vsType

      Case "xsd:string"

         GetDataType = adVarChar

      Case "xsd:int"

         GetDataType = adInteger

      Case "xsd:dateTime"

         GetDataType = adDate

      Case "xsd:decimal"

         GetDataType = adDouble

      Case "xsd:boolean"

         GetDataType = adBoolean

    End Select

End Function

对于GetDataType中的类型我没有一一试过，只使用了常见的几个，具体的可以参见下面的链接：

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/xmlsdk30/htm/xmrefsupporteddatatypeconversions.asp

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/ado270/htm/mdcstdatatypeenum.asp

继续添加，以保证能够符合你具体的需要。然后套用我们在第三篇中的表现层的函数显示在一个Grid中:

Set RetXML = SoapClient.GetAuthors()

    Set result = ConvDatasetToRecordset(RetXML, “GetAuthors”)

    LvwHeadName lstAuthors, strHeaders

    ADOFillLvw result, lstAuthors

想想挺有意思，开始是ADODB.Recordset类型的，然后在WebService中转换成DataSet类型，然后又转换成ADODB.Recordset。XML是一个强大的介质，而dotNET中对于Dataset比上一版的Recordset也将是一种突破。对于DataSet的应用也将是极其灵活和没有限制的，因为它的核心和基础是XML。

既然是增补，我也应要求将透视和调整一文中涉及到的例子的Project和代码上载到CSDN，另外一个是拷屏的图片，希望两者对于阅读和理解会有少许帮助，具体的安装过程我就省略了。

相关文件：

http://263.csdn.net/FileBBS/files/2001_10/T_724_1.zip(Code)

http://263.csdn.net/FileBBS/files/2001_10/T_724_2.zip(Jpg)

上一页  [1] [2]