《QTP数据库操作脚本实例》由会员分享，可在线阅读，更多相关《QTP数据库操作脚本实例（2页珍藏版）》请在金锄头文库上搜索。
1、zentaodbcheck测试用例名称 ：禅道系统添加用户并进行数据校验测试过程 ：首先连接数据库并进行连接测试 ，测试通过并清理测试数据后通过前台界面新增用户后查询数据库是否新增成功判断是否成功执行的方法 ：查询数据库用户 bruce 这条记录的 ID在执行前后会发生变化脚本编写人 :魏靖编写日期 ：2014-04-19* 连接数据库并测试是否连接成功 *Dim ConnSet Conn=CreateObject(ADODB.Connection)方法之配置数据源 -先要配置数据源Const ConnectionString=DSN=zentao;DATABASE=zentao;PORT=3
2、306;SERVER=localhost;UID=root;charset=gb2312Conn.Open ConnectionStringIf Conn.State6 删除数据库中的测试用户res.Open sql,conn,2,3 1,1表示只读 ;1,3表示插入数据 ;2,3表示修改数据res.Close 关闭数据集实例Set res=NothingConn.Close 关闭数据库实例Set Conn=Nothingreporter.ReportEvent micPass,测试数据初始化处理 ,测试数据初始化处理完毕 ！开始录制* 访问禅道系统通过前台界面添加用户 *SystemUtil
3、.Run iexplore.exe,C:Documents and SettingsAdministrator桌面 ,Browser(Browser).Page(Page).SyncBrowser(Browser).Navigate http:/localhost/zentaoBrowser(Browser).Page(用户登录 - 禅道管理 ).WebEdit(account).Set weijingBrowser(Browser).Page(用户登录 - 禅道管理 ).WebEdit(password).SetSecure 5351d93c168260a5ba7f150daaf05b01b
4、eb2Browser(Browser).Page(用户登录 - 禅道管理 ).WebButton(登录 ).ClickBrowser(Browser).Page(我的地盘 - 禅道管理 ).Link(组织视图 ).ClickBrowser(Browser).Page(组织视图首页 :部门结构 - 禅道管理 ).Link(添加用户 ).ClickBrowser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebList(dept).Select /技术服务部 Browser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebEdit(account
5、).Set bruceBrowser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebEdit(realname).Set 魏靖 Browser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebEdit(email).Set Browser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebRadioGroup(gender).Select fBrowser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebEdit(password1).SetSecure 5351d9999d99a896db
6、f6c86d72f6e50adaae566fBrowser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebEdit(password2).SetSecure 5351d99e3ddb31231615f798a982eef078af54fcBrowser(Browser).Page(组织视图 :添加用户 - 禅道管理 ).WebButton(保存 ).Clickreporter.ReportEvent micPass,前台页面添加用户 ,通过前台界面添加用户完毕 录制结束* 再次连接数据库并测试是否连接成功 *Dim ConnSet Conn=CreateObject
7、(ADODB.Connection)方法之配置数据源 -先要配置数据源Const ConnectionString=DSN=zentao;DATABASE=zentao;PORT=3306;SERVER=localhost;UID=root;charset=gb2312Conn.Open ConnectionStringIf Conn.State0 Thenmsgbox 连接数据库成功 reporter.ReportEvent micPass,数据库连接测试通过 ,连接数据库成功 ！ 调用测试报告事件方法 ，数据库访问成功写入测试报告elsemsgbox 连接数据库失败 reporter.Re
8、portEvent micFail,数据库连接测试失败 ,连接数据库失败 ！ 调用测试报告事件方法 ，将数据库访问失败写入测试报告ExitRun 退出测试End If第 1 页zentaodbcheckSet res=CreateObject(ADODB.Recordset) 创建数据集实例 查询数据库sql=Select account,realName,email from zt_user WHERE zt_user.account=weijing res.Open sql,conn,1,1 1,1表示只读 ;1,3表示插入数据 ;2,3表示修改数据res.MoveFirst 使游标指向第一个记录sum=*判断数据是否成功入库 *If res.EOF thenreporter.ReportEvent micFail, 新增用户测试失败 ,新增用户信息没有插入数据库 ！Elsereporter.ReportEvent micPass,新增用户测试通过 ,新增用户信息已经成功入库 ！ End If *关闭数据库连接 *res.Close 关闭数据集实例Set res=NothingConn.Close 关闭数据库实例Set Conn=NothingBrowser(Browser).Page(组织视图首页 :部门结构 - 禅道管理 ).Link(退出 ).Click第 2 页
