发 帖  
原厂入驻New

ConvertToString 方法范例 (VB)

2009-1-8 10:18:11  1672
分享
<font face="Verdana">
<p><br/>ConvertToString 方法范例 (VB)</p>
<p><br/>Public Sub ConvertToStringX()<br/>&nbsp;&nbsp;&nbsp; Dim oRDF As RDSServer.DataFactory<br/>&nbsp;&nbsp;&nbsp; Dim oRDC As RDS.DataControl<br/>&nbsp;&nbsp;&nbsp; Dim oRs As ADODB.Recordset<br/>&nbsp;&nbsp;&nbsp; Dim vString As Variant<br/>&nbsp;&nbsp;&nbsp; Dim sConnString As String<br/>&nbsp;&nbsp;&nbsp; Dim sSQL As String</p>
<p>&nbsp;&nbsp;&nbsp; ' Create a DataFactory object<br/>&nbsp;&nbsp;&nbsp; Set oRDF = New RDSServer.DataFactory</p>
<p>&nbsp;&nbsp;&nbsp; ' Get all of the Author records<br/>&nbsp;&nbsp;&nbsp; sC &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Data Source=(local);" &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Initial Catalog=pubs;" &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Network Library=DBMSSOCN;" &amp; _<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "Trusted_Connection=Yes;"<br/>&nbsp;&nbsp;&nbsp; sSQL = "Select * From authors"<br/>&nbsp;&nbsp;&nbsp; Set oRs = oRDF.Query(sConnString, sSQL)<br/>&nbsp;&nbsp;&nbsp; debug.Print oRs.RecordCount</p>
<p>&nbsp;&nbsp;&nbsp; ' Convert the recordset into a MIME formatted string<br/>&nbsp;&nbsp;&nbsp; vString = oRDF.ConvertToString(oRs)</p>
<p>&nbsp;&nbsp;&nbsp; ' Convert string value back into an ADO Recordset<br/>&nbsp;&nbsp;&nbsp; Set oRDC = New RDS.DataControl<br/>&nbsp;&nbsp;&nbsp; oRDC.SQL = vString<br/>&nbsp;&nbsp;&nbsp; oRDC.ExecuteOptions = adcExecSync<br/>&nbsp;&nbsp;&nbsp; oRDC.FetchOptions = adcFetchUpFront<br/>&nbsp;&nbsp;&nbsp; oRDC.Refresh<br/>&nbsp;&nbsp;&nbsp; Debug.Print oRDC.Recordset.RecordCount</font></p>
0
2009-1-8 10:18:11   评论 分享淘帖

只有小组成员才能发言,加入小组>>

135个成员聚集在这个小组

加入小组

创建小组步骤

关闭

站长推荐 上一条 /7 下一条

快速回复 返回顶部 返回列表