作者：绿色风
分类：
时间：2022-08-17
浏览：102
楼主
水星钓鱼 |
Q：有时候需要把Recordset的结果直接输出到文本文件或者作为一个整体赋值给一个变量，这时候该如何写代码？
A：可以使用Recordset 对象的GetString方法，直接将Recordset 对象转换为字符串，有关这个方法的用法可以参考MSDN的帮助说明
http://msdn.microsoft.com/en-us/library/ms676975(v=vs.85).aspx
下面举一个例子演示这个方法的用法- Private Sub CommandButton1_Click()
- Dim oRecrodset As ADODB.Recordset
- Dim sConStr As String
- Dim sSql As String
- sConStr = "Provider='Microsoft.Jet.OLEDB.4.0';Data Source=" & ThisWorkbook.FullName & ";Extended Properties='Excel 8.0;HDR=YES'"
- sSql = "select * from [一月$]" & _
- " union all select * from [二月$] union all " & _
- "select * from [三月$]"
- Set oRecrodset = CreateObject("ADODB.Recordset")
- With oRecrodset
- .Open sSql, sConStr
- '将Recordset的值转换为一个字符串，供不同目的的输出
- MsgBox .GetString
- .MoveFirst
- Debug.Print .GetString
- .MoveFirst
- Range("a1") = .GetString
- '其它输出代码...
- End With
- Set oRecrodset = Nothing
- End Sub
附件如下：
 ADO 联合查询.rar
|
2楼
bluexuemei |
附件中代码应该放在SHEET1中吧 |
免责声明
有感于原ExcelTip.Net留存知识的价值及部分知识具有的时间限定性因素，
经与ExcelTip.Net站长Apolloh商议并征得其同意，
现将原属ExcelTip.Net的知识帖采集资料于本站点进行展示，
供有需要的人士查询使用，也慰缅曾经的论坛时代。
所示各个帖子的原作者如对版权有异议，
可与本人沟通提出，或于本站点留言，我们会尽快处理。
在此，感谢ExcelTip.Net站长Apolloh的支持，感谢本站点所有人**绿色风（QQ:79664738)**的支持与奉献，特此鸣谢！
------本人网名**KevinChengCW（QQ:1210618015)**原ExcelTip.Net总版主之一