TA的每日心情 | 奋斗 2022-7-13 15:22 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
可以连接数据库查询!
Dim conn,sql,res
conn="Provider=MSDASQL.1;Persist Security Info=False;Data Source=QT_Flight32"
sql="select * from Orders"
Set res=nothing
' 调用外部子程序 OpenDB 进行连接数据库
OpenDB conn,sql,res
'msgbox res.RecordCount&"行," & res.fields.count & "列"
res.MoveFirst
' res.MoveNext 没有它的话,记录就成了死循环
'reporter.ReportEvent 2,"测试连接数据库","数据库获取数据:" & res.fields(0)
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
'################################################################# |
|