QTP怎么连接SQL2000数据库
QTP怎么连接SQL2000数据库本人对两个软件用的都不是很熟悉，尤其是QTP刚接触，知道它要用到数据库，电脑里安装的数据库有SQL2000，请高手指教怎么连接，步骤尽量详细一点，谢谢啦！！ vbs:ADODB可以连接
我就不写了。你百度吧。
set conn = createobject("ADODB.Connection") 写一个VBS脚本，直接调用
脚本内容，百度一大把 回复 3# 阳光下的橙子
好心的你为什么不直接给我答案呢，由于不懂连操作都不熟悉…… 我不是不给你答案，我直接给你脚本，你未必看的懂。
因为里面有些变量是需要你自定义的 '#################################################################
'#################################################################
' 连接数据库子程序
' 第一个参数：根据数据库的类型，设计连接字符串（参见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
'################################################################# '~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 设置连接数据库所需要的初始值，包括：
' conn ：数据库连接字符串
' sql：查询的SQL语句
' res：查询的返回记录
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 回复 7# rivermen
代码里面为什么还有表情:'(
页:
[1]
