51Testing软件测试论坛

标题: QTP访问数据的问题 [打印本页]

作者: hanjing1026 时间: 2006-4-18 09:45
标题: QTP访问数据的问题
我想在QTP里写上连接数据库的代码：如下
Dim con,rs
set con=createobject(" ADODB.Connection")
Set rs=createobject("ADODB.Recordset")
con.open "Provider=OraOLEDB.Oracle.1;Persist Security Info=False;User ID=wms;Data Source=shelly"
sql="select usercode from tbluser"
rs.open sql,con

但是在运行时出现错误：ActiveX部件不能创建对象:'ADODB.Connection'
是怎么回事啊？各位高手帮帮我！！万分感谢！！

作者: hanjing1026 时间: 2006-4-18 11:09
已经找到问题了，是因为set con=createobject(" ADODB.Connection")　ADODB的前面多敲了一个空格

作者: jennie98 时间: 2006-4-19 09:39
请教如何连mdb\sql数据库阿?
请指点一二,谢谢

作者: BiSheng 时间: 2006-4-19 11:23
基本上和楼主的代码一样，只要将驱动改为"Driver ={SQL Server}“或"Driver ={Microsoft Access Driver (*.mdb)},再修改相应的server,database,uid 和pwd就行了。

作者: jennie98 时间: 2006-4-19 13:31
好，try一下，谢谢阿

作者: jennie98 时间: 2006-4-20 10:39
再次问：如何将数据库中的数据插入到登陆过程中阿？请赐教，谢谢。

连SQL数据库：
Dim con,rs
set con=createobject("ADODB.Connection")
Set rs=createobject("ADODB.Recordset")
con.open "PROVIDER=SQLOLEDB;DATA SOURCE=nancy;UID=sa;PWD=123;DATABASE=SSERP "
sql="select UserName from SeUser"
rs.open sql,con

录制一个用户的登陆过程：
Browser("SSERP--登录").Page("SSERP--登录").WebEdit("txtUsername").Set "nancy1"
Browser("SSERP--登录").Page("SSERP--登录").WebEdit("txtPassword").SetSecure "4446f33f85da5da43b49dfc59e19f8cfd610"
Browser("SSERP--登录").Page("SSERP--登录").WebButton("登录").Click
Browser("SSERP--登录").Page("个人事项").Sync

[ 本帖最后由 jennie98 于 2006-4-20 10:56 编辑 ]

作者: BiSheng 时间: 2006-4-20 16:55
你可以把数据库表或表中的某一列的字段值赋到qtp自带的表中，然后再做参数化；也可以用数组，当然，直接到数据库表中截取也行。代码也很简单，只要在你上面连接sql的那段代码下面加上：dim x
         while  not rs.eof
                  x =  rs("某一列的字段名").value
                  // datatable.rawvalue(""，“”)= x 这里你可以将值赋到qtp表中或设一个数组来保存这些字段的值，
                  rs.MoveNext
         wend

作者: jennie98 时间: 2006-4-21 14:09
进一步学习中，谢谢阿

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)