QTP如何连接到数据库？

iceman81

刚进公司，需要用QTP做自动化测试，需要从SQL数据库中取值出来做比较，不知道这段代码如何写，请教各位大虾，给小弟点提示，谢谢！

investmark

先设置一下ODBC，然后用checkpoint的database进行比较

spree826

Use VBScript to connect to database and do data comparison

xiaonan

怎么发现都不会去用搜索功能呢？这类型的代码应该很多的，我记得我都发过好几次了．今天先给你，以后先自己搜一下再问？
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

呵呵，常用代码可以收藏一下

iceman81

OK了，谢谢各位！