RowCount=res.RecordCount
ColumnCount=res.fields.count
While not res.eof
Record=""
For i=0 to ColumnCount-1
Record=Record & ":" &res.fields(i)
Next
Record=mid(Record,2)
reporter.ReportEvent 2,"数据库记录:",Record
res.MoveNext
Wend
' 调用外部子程序 CloseDB关闭数据库
CloseDB
'#################################################################
'#################################################################
' 连接数据库子程序
' 第一个参数:根据数据库的类型,设计连接字符串(参见udl文件)
' 第二个参数:连接数据库之后,进行查询的相应语句
' 第三个参数:查询记录返回到res
Sub OpenDB(conn,sql,res)
Set cnn=CreateObject("adodb.connection")
cnn.open conn
Set res=CreateObject("adodb.recordset")
res.open sql,cnn,1,1
End Sub
'#################################################################
'#################################################################
'#################################################################
' 关闭数据库的连接
sub CloseDB
Set res=nothing
Set cnn=nothing
end sub
'#################################################################作者: yuandjing 时间: 2007-5-28 16:00
rivermen ,正解,高手作者: FLY000 时间: 2011-4-25 17:01
可以连接数据库查询!
Dim conn,sql,res
conn="rovider=MSDASQL.1ersist Security Info=False;Data So ...
rivermen 发表于 2007-5-28 13:20