51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 3690|回复: 0
打印 上一主题 下一主题

[求助] rs.open 执行完成后,不再执行后面的代码就退出了

[复制链接]
  • TA的每日心情
    开心
    2014-10-16 12:32
  • 签到天数: 1 天

    连续签到: 1 天

    [LV.1]测试小兵

    跳转到指定楼层
    1#
    发表于 2011-7-20 20:12:05 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
    1测试积点
    Dim Cnn  '定义一个数据库连接串
    Set Cnn = CreateObject("ADODB.Connection")
    Set rs = CreateObject("ADODB.Recordset")
    Cnn.ConnectionString ="DSN=oral;UID=DDDDWD=ZXUIJK78;DBQ=66 ;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;"
    Cnn.Open   '打开数据库连接
    If Cnn.State = 0 Then      '判断数据库连接是否成功
         Reporter.ReportEvent micFail, "testing", "连接数据库失败"
      ExitAction(1)
    else
         Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
    End If
    If Cnn.State  <> 0Then
    strsql="select *  from LOTTERY_TRADE11101 where (trade_issuenum=20004)"
        (rs.open strsql,Cnn,1,3)---程序执行完这句话就退出了,找了好久也没有发现问题所在,请大家帮帮忙,看看是哪里有问题,谢谢了
    If (not rs.eof) and (not rs.bof) then
             if rs.recordcount=0 then
         ' 返回结果记录集为0时执行的操作
       Response.Write "2"
       else
       Response.Write ""  
       end if
      msgbox 1
      str = rs("trade_selectednum")
      msgbox str
    end if
    dim a
            a="1188"  '该a的数据库可以从外部获取,可以是某个页面的某个值,拿来跟数据库中的值做比较
       for  i=1  to  Rs.Recordcount   '开始遍历数据库中所有的行数,Rs.Recordcount表示统计数据库表的总记录数
            if    Rs("USER_ID")=a   then   '将数据库中USER_ID字段的值与变量a进行挨个比较,
               msgbox "a在数据库中存在"   
               exit for                        '如果找到记录a,则推出for循环      
               else
               Rs.MoveNext                      '如果数据库中的值与a不相等的话,那么在数据库中将游标移到下一行
            end  if
       
       next
    End

    分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
    收藏收藏
    回复

    使用道具 举报

    本版积分规则

    关闭

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

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

    GMT+8, 2024-11-14 04:36 , Processed in 0.071536 second(s), 25 queries .

    Powered by Discuz! X3.2

    © 2001-2024 Comsenz Inc.

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