51Testing软件测试论坛

标题: rs.open 执行完成后,不再执行后面的代码就退出了 [打印本页]

作者: liran_04 时间: 2011-7-20 20:12
标题: rs.open 执行完成后,不再执行后面的代码就退出了
Dim Cnn '定义一个数据库连接串
Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString ="DSN=oral;UID=DDDD

WD=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=F

FC=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

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