关于参数化的问题和输出数值位置的问题

cnsong99

大家帮我看看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

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