51Testing软件测试论坛

标题: 关于参数化的问题和输出数值位置的问题 [打印本页]

作者: cnsong99 时间: 2006-10-13 16:14
标题: 关于参数化的问题和输出数值位置的问题
大家帮我看看Browser("Master").Page("SP录入").Output CheckPoint("*SP代码_2")
Browser("Master").Page("SP录入").Check CheckPoint("*SP代码_2")
位置放对了吗?我从datatable中取数据就是执行不了总报错.

Dim username
Browser("Master").Page("Master").WebEdit("ctl00$ContentPlaceHolder1$Oper").Set "1234"
Browser("Master").Page("Master").WebButton("登录").Click
Browser("Master").Page("SPMS管理员门户首页").WebElement("SPMS管理员门户首页").FireEvent "onmouseover"
Browser("Master").Page("SPMS管理员门户首页").Link("SP录入").Click
Browser("Master").Page("SP录入").WebEdit("ctl00$ContentPlaceHolder1$SPNa").Click
Browser("Master").Page("SP录入").WebEdit("ctl00$ContentPlaceHolder1$SPNa").Set "yaxin"
Browser("Master").Page("SP录入").WebEdit("ctl00$ContentPlaceHolder1$SPNa_2").Click
Browser("Master").Page("SP录入").WebEdit("ctl00$ContentPlaceHolder1$SPNa_2").Set "asiainfo"
Browser("Master").Page("SP录入").Output CheckPoint("*SP代码_2")
Browser("Master").Page("SP录入").Check CheckPoint("*SP代码_2")
username=Browser("Master").Page("SP录入").WebEdit("ctl00$ContentPlaceHolder1$SPCo").Click

Browser("Master").Page("SP录入").WebButton("提交").Click
Browser("Master").Page("信息提示").WebElement("信息提示").FireEvent "onmouseover"
Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="Provider = sqloledb; User ID = sa; Password = sa; Initial Catalog =spms; Data Source = 192.168.2.3 "
Cmd.CommandType = 1
sql="select * from t_sp_basic_info where spid='"&username&"'"
Cmd.CommandText = sql

Set res = Cmd.Execute()

Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing
Browser("Master").Page("信息提示").Sync

作者: bestmonty 时间: 2006-10-13 16:47
Browser("Master").Page("SP录入").Output CheckPoint("*SP代码_2")
Browser("Master").Page("SP录入").Check CheckPoint("*SP代码_2")
其实我不明白你需要做什么，如果是sql执行的错误可以在运行的时候看一下sql语句是不是正确的。

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