51Testing软件测试论坛

标题: QTP怎么连接SQL2000数据库 [打印本页]

作者: wx小鱼    时间: 2011-7-7 16:08
标题: QTP怎么连接SQL2000数据库
QTP怎么连接SQL2000数据库
本人对两个软件用的都不是很熟悉,尤其是QTP刚接触,知道它要用到数据库,电脑里安装的数据库有SQL2000,请高手指教怎么连接,步骤尽量详细一点,谢谢啦!!
作者: 17800455    时间: 2011-7-8 11:48
vbs:ADODB可以连接
我就不写了。你百度吧。
set conn = createobject("ADODB.Connection")
作者: 阳光下的橙子    时间: 2011-7-8 17:04
写一个VBS脚本,直接调用
脚本内容,百度一大把
作者: wx小鱼    时间: 2011-7-8 17:09
回复 3# 阳光下的橙子


    好心的你为什么不直接给我答案呢,由于不懂连操作都不熟悉……
作者: 阳光下的橙子    时间: 2011-7-8 17:19
我不是不给你答案,我直接给你脚本,你未必看的懂。
因为里面有些变量是需要你自定义的
作者: rivermen    时间: 2011-7-8 17:29
'#################################################################
'#################################################################
' 连接数据库子程序
' 第一个参数:根据数据库的类型,设计连接字符串(参见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
'#################################################################
作者: rivermen    时间: 2011-7-8 17:30
'~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
' 设置连接数据库所需要的初始值,包括:
' conn :数据库连接字符串
' sql:查询的SQL语句
' res:查询的返回记录

Dim conn,sql,res
conn="rovider=MSDASQL.1ersist 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
作者: wx小鱼    时间: 2011-7-8 18:04
回复 7# rivermen


    代码里面为什么还有表情




欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/) Powered by Discuz! X3.2