如何使用Database checkpoint检查添加的数据是否正确？？？

xueboy118

在WEB页面中，添加一条记录，如添加一个用户的记录，点击确定按钮之后，系统提示添加成功，请问如何在系统提示之后添加Database checkpoint来检查 ，数据库中是否真的存在刚才添加的用户的纪录，或数据库中的记录是否和预期的结果相同。谢谢

[ 本帖最后由 xueboy118 于 2006-5-29 18:06 编辑 ]

yxd2006

学习了

3Q

vibrantyin

你不就是想看看当某一个操作影响到数据库了，通过database checkpoint来检查操作影响到的数据是否正确嘛，在query里写select count(-1) from ..就可以了，qtp会把这个值保留下来，当你如果有新插入的记录，到测试结果里去看实际值和期望值嘛，当然了，这种做法比较单一，如果你的脚本有循环插入记录的操作，反正你只要记得这个值就ok了

xueboy118

已删除

[ 本帖最后由 xueboy118 于 2009-10-30 16:23 编辑 ]

xiaonan

把你的msn放上来不就的了吗?

xueboy118

michaelyung ，你说的方法，对于使用编程方式实现的人来说，应该是很简单的，可对于我，一个刚使用ＱＫＰ没多久的人来说，有点难度。呵呵，不过，还时要谢谢你。
你昨天写的那段代码，我还是差不多都看懂了，可是要让我写，一时半会又写不出来，我现在的水平，也就是先录制脚本，在拿过来修改。不过我也要向编程靠拢。呵呵

michaelyung

原帖由 xueboy118 于 2006-5-30 17:56 发表
Dim objParent, strName, strPassword   
strName = "admin"
strPassword="admin"     
Set objParent = Browser("title:=网站后台管理系统").Page("title:=网站后台管理系 ...

这个细节我也说过了。WebEdit("name:= ")这里出问题的原因就是name的值不对。
你这里写的 “登陆名” 应该是webedit旁边label对象的值，这是两个对象啊
根据你上面录制的代码，我看name的值应该是username，所以你改成WebEdit("name:=username")应该就可以了，实际上用object spy看下就知道了。

michaelyung

原帖由 xueboy118 于 2006-5-31 09:34 发表
xiaonan,不好意思，QuickTest中的空格不是很明显，我没有细心检查
昨天你们两个人两种方法，搞得我疲于调试，跟本就没时间注意细节
我刚才有重新调试了一下 ，用你的方法，已经可以执行下去了，
在此，非常感谢 ...

其实细节的问题在上面的帖子中说了几次了，好像你一直没看到。
其实两种方式一样的，只是你录制后，有些对象信息已经存在object repository里面了。

纯用编程的话就不需要录制了，打开QTP就写。

xueboy118

xiaonan,能否留个联系方式，MSN或ＱＱ什么的，以后要是再有什么疑难问题，好向你请教，呵呵

swallow0918

xiaonan 现在很厉害啊！

xiaonan

QuickTest的脚本就是用的VBscript的代码,所以如果你对VBscript熟的话,学QTP就容易些

xueboy118

没什么的，你也是出于好心，在次感谢
顺便在问一下，QuickTest的脚本中的编程代码，与VBscript的代码是否相同，还是在本质上有所区别？

xiaonan

呵呵,没事!如果我上面的话,那些地方说的有点不妥也请你别放在心上.只是替你有点着急.没别的意思,:)

xueboy118

xiaonan,不好意思，QuickTest中的空格不是很明显，我没有细心检查
昨天你们两个人两种方法，搞得我疲于调试，跟本就没时间注意细节
我刚才有重新调试了一下 ，用你的方法，已经可以执行下去了，
在此，非常感谢你和michaelyung 对我的帮助。

xiaonan

晕,你这句话怎么写的啊?sql="selec t  *  from admin_user  where name='"&username&"'"
跟你说selec t 我多加了个空格,应该是这样的select, 怎么自己一点都不去思考一下呢?
这样再试
sql="select  *  from admin_user  where name='"&username&"'"还有取出来的字符最好去一下空格

xueboy118

Dim objParent, strName, strPassword   
strName = "admin"
strPassword="admin"     
Set objParent = Browser("title:=网站后台管理系统").Page("title:=网站后台管理系统")
objParent.WebEdit("name:=登录名：").Set strName
objParent.WebEdit("name:=密 码：").Set strPassword
objParent.WebButton("text:=登 录").Click

Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="Provider = Sqloledb; User ID = sa; Password = sa; Initial Catalog =bb; Data Source = 192.168.2.196 "      
Cmd.CommandType = 1
sql="select  *  from admin_user  where name="  &  strName
Cmd.CommandText = sql
Set res = Cmd.Execute()

Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing

objParent.sync()
执行后，QuickTest提示
Cannot identify the object "WebEdit" (of class WebEdit). Verify that this object's properties match an object currently displayed in your application.
黄色小箭头指向    objParent.WebEdit("name:=登录名：").Set strName

xueboy118

修改的脚本如下：
Browser("网站后台管理系统").Page("网站后台管理系统").WebEdit("username").Set DataTable("Pname", dtGlobalSheet)
username = Browser("网站后台管理系统").Page("网站后台管理系统").WebEdit("username").GetROProperty("value")
Browser("网站后台管理系统").Page("网站后台管理系统").WebEdit("password").SetSecure "447bc007c1401dd4511996463d35fd01"
Browser("网站后台管理系统").Page("网站后台管理系统").WebButton("登 录").Click
Dim res,cmd,sql
Set Res=createobject("adodb.recordset")
Set Cmd=createobject("adodb.command")
Cmd.activeconnection="Provider = Sqloledb; User ID = sa; Password = sa; Initial Catalog =bb; Data Source = 192.168.5.196 "
Cmd.CommandType = 1
sql="selec t  *  from admin_user  where name='"&username&"'"
Cmd.CommandText = sql
msgbox sql
Set res = Cmd.Execute()
msgbox sql
Set res = nothing
Set cmd.ActiveConnection = nothing
Set Cmd= nothing
Browser("网站后台管理系统").Page("网站后台管理").Sync
执行后  第一个msgbox   提示  select * from admin_user  where =' admin'    QuickTest提示 第 1 行: '*' 附近有语法错误   
黄色箭头还是指向   Set res = Cmd.Execute()
。

xiaonan

怎么一个问题用了那么多帖子啊?

michaelyung

1. 我说过了你那个地方写错了，是username不是usname，你两个地方不一致。
usname = Browser("网站后台管理系统").Page("网站后台管理系统").WebEdit("username").GetROProperty("Text")
还没发现吗，第一个。
2. getROProperty("Text")改成getROProperty("value")
3. objParent.WebEdit()里的text改成name.

xueboy118

我在usname = Browser("网站后台管理系统").Page("网站后台管理系统").WebEdit("username").GetROProperty("Text")
后添加了msgbox sql    提示  selec t  *  from admin_user  where name=' '

michaelyung
你的代码，我除了第一句没看懂外，别的差不多都能明白，不知道怎么搞得，用你最早给我的那个代码，修改后，就是 执行不下去，执行到objParent.WebEdit("text:=登录名：").Set strName 就卡住了