标题: QTP如何连接到数据库？ [打印本页] 作者: iceman81 时间: 2006-5-31 17:37 标题: QTP如何连接到数据库？ 刚进公司，需要用QTP做自动化测试，需要从SQL数据库中取值出来做比较，不知道这段代码如何写，请教各位大虾，给小弟点提示，谢谢！作者: investmark 时间: 2006-5-31 19:38
先设置一下ODBC，然后用checkpoint的database进行比较作者: spree826 时间: 2006-6-1 05:20
Use VBScript to connect to database and do data comparison作者: xiaonan 时间: 2006-6-1 08:23
怎么发现都不会去用搜索功能呢？这类型的代码应该很多的，我记得我都发过好几次了．今天先给你，以后先自己搜一下再问？
Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="Provider=SQLOLEDB.1;Password=111111;Persist Security Info=True;User ID=sa;Initial Catalog=xhq;Data Source=192.168.191.142"数据源要修改
Cmd.CommandType = 1
sql="select name from company where (id=1)"
Cmd.CommandText = sql
Set res = Cmd.Execute()
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing作者: songfun 时间: 2006-6-1 09:08
呵呵，常用代码可以收藏一下作者: iceman81 时间: 2006-6-5 12:30
OK了，谢谢各位！