开发工具:
文件大小: 63kb
下载次数: 0
上传时间: 2012-05-03
详细说明： 1、连接数据库查询例子，无参数化 //查询收文操作，通过数据库查询记录数是否正确 //1、输出记录数值，例如78条 2、获取输出的记录数值 3、连接数据库，查询记录数 4、输出记录数值和从数据库中查询记录数值，相比较，相等则成功，不等则失败 Browser("湛江信息化测试登录").Page("湛江东兴石油企业有限公司办公自动化系统").Frame("mainFrame").Output CheckPoint("78") Dim mm 'mm=DataTable.GlobalSheet.GetParameter("mainFrameOutput_Text_out").Value //注释，获取datatable值与DataTable("mainFrameOutput_Text_out", dtGlobalSheet)一致 mm=DataTable("mainFrameOutput_Text_out", dtGlobalSheet) MsgBox mm Dim res,cmd,sql Set res=crea teobject("adodb.recordset") Set cmd=createobject("adodb.command") Cmd.activec Cmd.CommandType = 1 sql="select count(*) from oa_receivebumf where BUMFNAME like '%收文测试%'" 'sql="select count(*) from oa_receivebumf where BUMFNAME='"&nn;&"'" //注释，sql语句,等于时sql语句 // sql="select count(*) from oa_receivebumf where BUMFNAME like '%nn%'" //like时sql语句 Cmd.CommandText = sql Set res = Cmd.Execute() //msgbox res("name") MsgBox res(0) If Cstr(res(0)) = Cstr(mm)Then Reporter.ReportEvent micPass, "test", "查询成功" else Reporter.ReportEvent micfail, "test", "查询失败" End If Set res = nothing Set cmd.ActiveConnection = nothing Set Cmd= nothing ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
