QTP访问数据的问题

hanjing1026

我想在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

已经找到问题了，是因为set con=createobject(" ADODB.Connection")　ADODB的前面多敲了一个空格

jennie98

请教如何连mdb\sql数据库阿?
请指点一二,谢谢

BiSheng

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

jennie98

好，try一下，谢谢阿

jennie98

再次问：如何将数据库中的数据插入到登陆过程中阿？请赐教，谢谢。

连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

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

jennie98

进一步学习中，谢谢阿