QTP利用外部VBS添加数据恢复失败，风过无息大大快来啊，你出的书上的

xujian8919

我在file->setting>resources 添加这个
'创建连接
Function OpenConnection ()
Set cnn = CreateObject("ADODB.Connection")
cnn.ConnectionString = "rovider=MSDASQL.1ersist 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
系统提示

xujian8919

该录制脚本是用来做数据恢复实验的，用一个用户名，密码不同性别，联系电话，地址进行注册。因为相同用户名密码，所以在执行完一次注册就必须创建数据库连接，恢复数据。
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

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

xujian8919

回复 3# 17800455


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

xujian8919

问题解决了，其实很简单是我换行出的问题