51Testing软件测试论坛

标题: QTP利用外部VBS添加数据恢复失败，风过无息大大快来啊，你出的书上的 [打印本页]

作者: xujian8919 时间: 2011-7-4 17:07
标题: QTP利用外部VBS添加数据恢复失败，风过无息大大快来啊，你出的书上的
本帖最后由 xujian8919 于 2011-7-4 17:21 编辑

我在file->setting>resources 添加这个
'创建连接
Function OpenConnection ()
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "

rovider=MSDASQL.1

ersist Security
Info=true;User ID=sa;password=baoju;Data Source=LocalServer"
cnn.Open
Set OpenConnection = cnn
End Function
'恢复数据
Sub RenewData(sql)
cnn = OpenConnection()
Set rs = CreateObject("ADODB.RecordSet")
rs.open sql,cnn,1,1
set rs = nothing
End Sub
系统提示
[attach]73938[/attach]

作者: xujian8919 时间: 2011-7-4 17:10
该录制脚本是用来做数据恢复实验的，用一个用户名，密码不同性别，联系电话，地址进行注册。因为相同用户名密码，所以在执行完一次注册就必须创建数据库连接，恢复数据。
Window("Windows Internet Explorer").Activate
Window("Windows Internet Explorer").WinEdit("Edit").Set "http://localhost:8080/teach"
Window("Windows Internet Explorer").WinEdit("Edit").Type micReturn

Browser("注册").Page("教学门户网站系统-登录").Link("[注册]").Click
'Browser("教学门户网站系统-登录").Page("My JSP 'register.jsp'").Sync
Browser("注册").Page("注册").WebEdit("用户名").Set DataTable("用户名", dtGlobalSheet)
Browser("注册").Page("注册").WebEdit("密码").SetSecure DataTable("密码", dtGlobalSheet)
Browser("注册").Page("注册").WebEdit("确认密码").SetSecure DataTable("确认密码", dtGlobalSheet)
Browser("注册").Page("注册").WebEdit("姓名").Set DataTable("姓名", dtGlobalSheet)
Browser("注册").Page("注册").WebList("性别").Select DataTable("性别", dtGlobalSheet)
Browser("注册").Page("注册").WebEdit("联系电话").Set DataTable("联系电话", dtGlobalSheet)
Browser("注册").Page("注册").WebEdit("地址").Set DataTable("地址", dtGlobalSheet)
Browser("注册").Page("注册").WebButton("提交").Click
Browser("教学门户网站系统-登录").Dialog("Windows Internet Explorer").WinButton("确定").Click
sql = "delete userinfo where username ='mercury'"
RenewData(sql)

作者: 17800455 时间: 2011-7-4 17:40
本帖最后由 17800455 于 2011-7-4 17:42 编辑

用qtp打开vbs，然后检查一下语法，qtp会自动定位到。
语法出错处。
书上肯定没问题。怀疑你抄错了。

作者: xujian8919 时间: 2011-7-5 09:47
回复 3# 17800455

不是抄的，而是从它提供的代码里复制过来的

作者: xujian8919 时间: 2011-7-5 11:10
问题解决了，其实很简单是我换行出的问题

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