51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2014|回复: 4
打印 上一主题 下一主题

[原创] datatable中一行数据没办法新增,如何不利用这行数据,利用下行数据继续新增

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2008-7-31 16:22:33 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
'注册普通节点
Dim num,i
num=DataTable.GetSheet("Action2  register").GetRowCount
for  i =1 to num
wait(3)
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
wait(2)

Dim con
Dim record, testcode

Set   con = createobject("adodb.connection")
con. open "DRIVER={Oracle in OraHome92};DSN=test;UID=U_ZNNWD=U_ZNN;DBQ=ORACLE_CFTEST;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Set  record = createobject("adodb.recordset")
sql="select  CODE from CS_WEBAPP_NODE"
record.open    sql, con
Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("验证代码").Click
'在数据库中检查代码是否存在
testcode = DataTable("code",   "Action2  register")
wait(2)
If ( Instr(1, record("code"), testcode, 1) > 0 )Then
         Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click
          DataTable.GetSheet("Action2  register").SetNextRow
          Dim code
          Dim j
          j=DataTable.GetCurrentRow
          code =DataTable.GetSheet("Action2  register").GetParameter("code").ValueByRow(j)
     Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set code
else
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Click

End if

record.close
Set record=nothing
con.close
Set con = nothing

        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("description").Set DataTable("description", dtLocalSheet)
        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("vendor").Set DataTable("vendor", dtLocalSheet)

        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("indexURL").Set DataTable("indexURL", dtLocalSheet)
        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("appServer").Set DataTable("appServer", dtLocalSheet)
        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("dbServer").Set DataTable("dbServer", dtLocalSheet)

        Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("version").Set DataTable("version", dtLocalSheet)

        wait(2)
        Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
        wait(2)

        Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click

DataTable.GetSheet("Action2  register").SetNextRow
next

datatable如下:
code        name        description        vendor        appServer        dbServer        version        indexURL
code1        name1        des1        vendor1        server1        db1        vers1        URL1
code1        name1        11        11        11        111        11        11
code2        name2        des2        vendor2        server2        db2        vers2        URL2
code3        name3        des3        vendor3        server3        db3        vers3        URL3

代码主要作用是注册普通节点
code栏位输入后,点击验证代码,如果库里有这代码了的,弹出提示框,提示重复了的,如果没有这代码,提示这代码不存在
现在第一行数据,可以新增
但到第2行数据时,因为库里有了code1,点击验证代码,会出现提示框:该代码重复
我现在想做个判断,如果这代码不存在,那就利用这行数据,继续新增
如果这代码重复,我要让其跳到下一行,利用下一行数据,继续新增
现在我的代码主要问题是,判断重复后,code栏位应该set code2,可是这里却是空的,set不进去
另外,name,description还是set为name1,desc1,明显是第一行的数据
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2008-7-31 17:03:01 | 只看该作者
这个问题在自动化测试中是很普遍的,
datatable中的一行数据不能新增,继续换下一行数据新增
请坛里的高手解答下
回复 支持 反对

使用道具 举报

  • TA的每日心情
    开心
    2016-2-27 08:48
  • 签到天数: 2 天

    连续签到: 1 天

    [LV.1]测试小兵

    3#
    发表于 2008-8-7 09:56:45 | 只看该作者
    If  Browser("***).Page("***").Dialog("***).Exist  Then
         ......
    Else
       ....
    End If
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    4#
     楼主| 发表于 2008-8-7 13:27:39 | 只看该作者

    回复 3# 的帖子

    Browser("Welcome to CuteFramework2008").Page("Welcome to CuteFramework2008").WebButton("登录").Click
    Browser("Welcome to CuteFramework2008").Page("首页").WebElement("WebTable").Click
    Browser("Welcome to CuteFramework2008").Page("首页").Link("系统节点维护").Click
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
    Dim CountNum
    CountNum=DataTable.GetSheet("Action1").GetRowCount
    For i=0 to CountNum-1
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_2").Click
    wait(3)
    If  Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_3").Exist Then
    ??????????????????????????????
    else
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
    wait(3)
    End If

    DataTable.GetSheet("Action1").SetNextRow  
    Next

    datatable:
    code        name
    ccccc       ccccc
    ccccc       ccccc
    ddddd     ddddd
    回复 支持 反对

    使用道具 举报

    该用户从未签到

    5#
     楼主| 发表于 2008-8-7 14:52:32 | 只看该作者
    Browser("Welcome to CuteFramework2008").Page("Welcome to CuteFramework2008").WebButton("登录").Click
    Browser("Welcome to CuteFramework2008").Page("首页").WebElement("WebTable").Click
    Browser("Welcome to CuteFramework2008").Page("首页").Link("系统节点维护").Click

    Dim CountNum
    CountNum=DataTable.GetSheet("Action1").GetRowCount
    For i=1 to CountNum

    Dim con
    Dim record, testcode

    Set   con = createobject("adodb.connection")
    con. open "DRIVER={Oracle in OraHome92};DSN=oracle_on_cftest;UID=U_YLMWD=U_YLM;DBQ=ORACLE_CFTEST ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
    Set  record = createobject("adodb.recordset")
    sql="select code from cs_webapp_node"
    record.open    sql, con
    testcode =DataTable.GetSheet("Action1").GetParameter("code").ValueByRow(i)
    If  record("code")=testcode Then
    DataTable.GetSheet("Action1").SetNextRow  
    else
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("注册").Click
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("code").Set DataTable("code", dtLocalSheet)
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebEdit("name").Set DataTable("name", dtLocalSheet)
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定_2").Click
    Browser("Welcome to CuteFramework2008").Page("首页_2").WebButton("确定").Click
    wait(3)
    DataTable.GetSheet("Action1").SetNextRow  
    End If

    Next

    record.close
    Set record=nothing
    con.close
    Set con = nothing
    回复 支持 反对

    使用道具 举报

    本版积分规则

    关闭

    站长推荐上一条 /1 下一条

    小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

    GMT+8, 2024-11-27 16:49 , Processed in 0.098986 second(s), 27 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

    快速回复 返回顶部 返回列表