同一个connection建立两个recordset的问题(数据库版给分)
第一个recordset(res)调用成功,第二个(rec)却不行
程序中有2个 rdoRecordset 分别为 res 和 rec
res调用成功 rec却不能成功调用
只要有rec的语句编译时都提示 type dismatch(类型不匹陪)
不止是何原应,请高手相助,我是初学者,以前做 ASP
代码如下:
Public con As rdoConnection, res As rdoResultset, rec As rdoResultsets
Function output(strSQLServerName, strSQLDBName, strSQLDBUserName, strSQLDBPassword)
Dim strParent As String
strParent = Dir1.Path & "classic"
Set fs = CreateObject("Scripting.FileSystemObject")
If Not fs.FolderExists(strParent) Then
fs.CreateFolder (strParent)
End If
With rdoEngine
.rdoDefaultUser = strSQLDBUserName
.rdoDefaultPassword = strSQLDBPassword
.rdoDefaultCursorDriver = rdUseServer
.rdoDefaultLoginTimeout = 15
End With
Set con = rdoEnvironments(0).OpenConnection("", rdDriverNoPrompt, False, "driver={SQL Server};server=" & strSQLServerName & "; database=" & strSQLDBName)
Set res = con.OpenResultset("select Title,Boardid,id,PostUserName,dateandtime,Announceid from BestTopic")
Do Until res.EOF Or res.BOF
Set rec = con.OpenResultset("select ParentID,Announceid,Body,UserName from bbs1 order by Announceid asc")
If Not fs.FolderExists(strParent & "\" & Trim(res("Boardid"))) Then
fs.CreateFolder (strParent & "\" & Trim(res("Boardid")))
End If
Set XmlFile = fs.CreateTextFile(strParent & "\" & Trim(res("Boardid")) & "\" & Trim(res("title")) & ".xml")
XmlFile.writeline ("<?xml version='1.0' encoding='GB2312'?>")
XmlFile.writeline ("<?xml:stylesheet type='text/xsl' href='../csdn.xsl'?>")
XmlFile.writeline ("<Topic>")
XmlFile.writeline ("<Issue>")
XmlFile.writeline ("<PostUserNickName>" & res("PostUserName") & "</PostUserNickName>")
XmlFile.writeline ("<TopicName>" & res("title") & "</TopicName>")
XmlFile.writeline ("<RoomName>" & res("Boardid") & "</RoomName>")
XmlFile.writeline ("<PostDateTime>" & res("dateandtime") & "</PostDateTime>")
XmlFile.writeline ("<Content></Content>")
XmlFile.writeline ("</Issue>")
XmlFile.writeline ("<Replys>")
rec.MoveNext
Do Until rec.EOF Or rec.BOF
XmlFile.writeline ("<Reply>")
XmlFile.writeline ("<PostUserNickName>" & rec("UserName") & "</PostUserNickName>")
XmlFile.writeline ("<Content>" & rec("Body") & "</Content>")
XmlFile.writeline ("<PostDateTime>" & rec("DateAndTime") & "</PostDateTime>")
XmlFile.writeline ("</Reply>")
rs.MoveNext
Loop
XmlFile.writeline ("</Replys>")
XmlFile.writeline ("</Topic>")
rs.Close
Set rs = Nothing
XmlFile.Close
Set XmlFile = Nothing
res.MoveNext
Loop
res.Close
Set res = Nothing
con.Close
Set con = Nothing
MsgBox "精华帖已成功导出到" & strParent & "\下!"
End Function
问题点数：0、回复次数：0Top
