|
以页面上搜索的结果展现为webtable 类型的做个例子吧
dim i,j,k,p,obj,v(7)
For p=2 to i '翻页循环操作
For j=2 to 9
Set obj=Browser("客户列表").Page("客户列表").WebTable("请选择")
v(j-2)=trim(obj.GetCellData(j,2))
reporter.ReportEvent 0,v(j-2),"客户编码" 'webtable下一行一行的取数,并记录
'----------------------------------------------------------------------
Set Conn = CreateObject("ADODB.Connection" )
str="DRIVER=sql server;SERVER=192.168.150.247;DATABASE=KJCRM0809;user id=sa ; password=saqa"
Conn.open str
Set Rs = CreateObject ("ADODB.Recordset" )
sql = "select * from tb_crm_CustomerRequestInfo where deleteflag!='1' and khbm= '"+v(j-2)+"'"
Rs.open sql,conn',1,3
Rs=Rs(0)&Rs(1)&Rs(2) '字段
reporter.ReportEvent 0,Rs(0)&Rs(1)&Rs(2),"数据库中的字段显示"
'---------------------------------------------------------------------
Next
Browser("客户列表").Page("客户列表").WebList("dr").Select "#"&(p-1) '执行翻页操作
Next
页面上取一条和数据库对比一次,直到对比结束,写个if判断你想要的结果就ok,我就是这样做的不过有些麻烦 |
|