关于对table的检查

michelle_happy

1. [i]Set Conn = CreateObject("ADODB.Connection")
   
2. Set Rs = CreateObject("ADODB.Recordset")
   
3. Conn.Open "Description=kml-it;DRIVER=SQL Server;SERVER=KML-IT;UID=sa;PWD=password;APP=QuickTest Professional;WSID=KML-MICHELLE;DATABASE=kml_db"
   
4. sql="select distinct grn_no from grn_dtl where grn_no like '%"&grnNo&"%' order by grn_no DESC"
   
5. Rs.open sql,Conn,1,3
   
6. Dim i,j,cell
   
7.         i=1
   
8.         j=2 'j=2的原因是因为页面上table是的数据是隔一行一条，不知   道怎么回事，开发人员弄的怪把
   
9.                 Do while not rs.eof
   
10.                         If i=13 Then  '13是每页显示出的最大行数,是个常数
    
11.                                 i=1
    
12.                                 j=2
    
13.                                  Browser("::").Page("::").Frame("mainFrm_5").Link("下一页").Click
    
14.                         end if
    
15.                         cell=Browser("::").Page("::").Frame("mainFrm_5").WebTable("收货单号").GetCellData(j,2)
    
16.                         If cell<>rs("grn_no") Then
    
17.                 Reporter.ReportEvent 1, "查询功能"&cell, "查询结果错误."
    
18.                                 Exit do
    
19.                         else
    
20.                                 Reporter.ReportEvent 0, "查询功能"&cell, "查询结果正确."
    
21.                         End If
    
22.                         rs.movenext
    
23.                         j=j+2
    
24.                         i=i+1
    
25.                 Loop
    
26. rs.close
    
27. conn.close
    
28. set conn=nothing[/i]

复制代码

这是查询一个字段的，对查询结果多页的情况也涉及了，其实应该把所有查询字段联合起来的，也就是改改sql语句和判断条件。

[ Last edited by lovetest6 on 2005-7-4 at 09:44 ]

lovetest6

对，对，对，应该是这个样子的，
但是实际上我们忽略了一个问题，呵呵：）

那就是这样的检查是否有意义，我总觉得，你的sql语句要和开发人员程序中的sql语句一样，对吧？但是我们这样检查，实际上就相当于检查同样的两个sql语句运行结果是否正确，呵呵。所以我觉得意义不太大。

当然了，如果数据库中存的信息有什么特殊字符，程序取出后做过相应的转换，那又另当别论。

michelle_happy

Originally posted by lovetest6 at 2005-7-4 09:50 AM:
对，对，对，应该是这个样子的，
但是实际上我们忽略了一个问题，呵呵：）

那就是这样的检查是否有意义，我总觉得，你的sql语句要和开发人员程序中的sql语句一样，对吧？但是我们这样检查，实际上就相当于检 ...

你说的是否有意义的问题我也曾考虑过，因为sql句子其实和开发人员写的是一样的，但是想想也未必，如果开发人员写错了，我写对了，这是不就能检查出bug了吗。呵呵，这样建立在充分相信自己的水平的基础上噢

database checkpoint本身也是这个作用把。

lovetest6

也有道理，呵呵。

mel_snow

这个问题我也考虑过，我的想法是只要时间和精力允许，建议在所有涉及数据库操作的地方都加上检查点。如果开发人员以后不小心误改了sql逻辑，这就能派上用场。
不错的例子，这里还是有不少高手的
学习啦

lzz

這幾天在做data access control測試，想起michelle_happy發的這個帖子，感覺她貼的查詢結果比較，是可以派上用場的。