利用qtp进行增，删，改，查的详细思路

guojinjin2006

大家能否提供一下具体的思路，帮帮忙呀

zhou840401

增加:在界面增加一条记录之后,可能需要通过数据库来验证,增加的记录是否保存到数据库中,是否与输入的信息正确,有时候可以从界面上来判断,但是如果从界面上判断与添加的信息不对,有可能是显示数据的程序出错,而不是增加数据的程序出错.所以验证最好还是通过数据库读取相关的记录来验证.
删除:首先,数据库必须有记录,如果你在测试用例中已经写明了要删除那条记录,确保在那次运行之前那条记录是存在的,当然你也可以另外写一个脚本,直接往数据库增加一条你要删除的记录,建议不要通过在测试程序来增加一条记录,然后把它删除,如果要这样,你一定要确保测试程序增加功能是可以使用的.当然你也可以以某种标准在界面上选择一条记录,把它删除,通过把删除的记录数据项在数据库中唯一数据项来校验,这样可能也不是很理想,应该很多显示记录的程序,通常不会把类似id唯一数据项的东西显示在界面上,通过其它的非唯一数据项,有可能数据库中有相同的记录.
修改:在校验的时候,同样会遇到非唯一数据项的事情,就是查找数据库记录的数据项非唯一,有几条相同的记录.设计用例的时候,要注意这一点.

yoolika

如何通过数据库来验证？

zhou840401

把增加或修改的记录的数据从数据库取出来,再跟你的用例设计的数据进行比较就可以了

华仔

顶一下，总结的很好

guojinjin2006

多谢大家的意见，是否有相关的代码，大家可以共享一下呀

guojinjin2006

我现在做了个查询的例子，我怎么比较查询出来的数据就是数据库中满足条件的记录呢？大家给点意见
我现在的想法是：把满足条件的记录放在一个sheet里，然后用查询出来的数据一一进行比较，可是我写的代码好像完全体现不出来，大家看看我的代码有什么问题，帮我修改一下了
-------------------begin-------------------------
Browser("CMS企业版系统设定").Page("CMS企业版系统设定").Link("部门/用户组管理").Click
Browser("CMS企业版系统设定").Page("CMS企业版系统设定").WebEdit("_ses2_queryc").Click
Browser("CMS企业版系统设定").Page("CMS企业版系统设定").WebEdit("_ses2_queryc").Set "hh"
Browser("CMS企业版系统设定").Page("CMS企业版系统设定").Image("b_srch").Click 13,18
Browser("CMS企业版系统设定").Page("CMS企业版系统设定_2").Link("刷新").Click


Dim xls,wkbook,wksheet1,wksheet2,mycomp

Set xls=CreateObject("excel.application")
Set wkbook=xls.workbooks.open("E:\test.xls")
Set wksheet1=wkbook.worksheets("test_data")

For i=1 to 5
aa=wksheet1.Cells(i,1)
'msgbox aa,,"aa"


For ii=2 to 10 step 2
bb=Browser("CMS企业版系统设定_2").Page("CMS企业版系统设定").WebTable("部门/用户组名称").GetCellData(ii,2)
'msgbox bb,,"bb"

mycomp=StrComp(aa,bb)
If  mycomp=0  Then
        'msgbox "测试通过"
   else
   Exit for
End If
       
Next

Next

'wkbook.save
     xls.Quit
     Set xls = Nothing        

---------------end----------------------

dreamever

我觉的比较通用的做法应该是这样：
首先用SQL语句从数据库中把要进行验证的数据查询出来，并写入excel；
然后将期望结果事先做成excel文件；
利用vbs脚本对两份excel文件进行比较。
因为要检查的数据会很多，可以将文件名作为参数化，以实现VBS的批量读取。
这样做的好处是只要我们准备好excel文件，就能实现比较，而sql是可以做到重用的。

hxf

我同意楼上的观点，我的做法也是先通过sql，从数据库中取到查询结果，然后，通过这个相同的查询条件在界面上执行查询，比较在数据库中查询到的结果跟界面上的是否一致。如果一致，此查询功能通过，如果不一致，查询失败。

雨加雪

我也在做利用VB写的增删改查的工具,继续关注中 ,谢谢  各位大侠指点