问答文章1 问答文章501 问答文章1001 问答文章1501 问答文章2001 问答文章2501 问答文章3001 问答文章3501 问答文章4001 问答文章4501 问答文章5001 问答文章5501 问答文章6001 问答文章6501 问答文章7001 问答文章7501 问答文章8001 问答文章8501 问答文章9001 问答文章9501
你好,欢迎来到懂视!登录注册
当前位置: 首页 - 正文

如何连接Oracle数据库6:QTP脚本示例

发布网友 发布时间:2022-04-08 06:22

我来回答

2个回答

懂视网 时间:2022-04-08 10:44

 

然后写qtp测试

'———————————————————————————————————————————
????'名称:oracle_nextAPPROVEID
????'作用:数据库中查询出下一步审批人
????'参数:FormID
????'返回:下一步审批人
????'使用:QTP.oracle_nextAPPROVEID("-")
????Function?oracle_nextAPPROVEID(FormID)
???????
????????Dim?Cnn??'定义一个数据库连接串
????????Dim?Rs
????????Dim?sql
????????Dim?uid
????????Set?Cnn?=?CreateObject("ADODB.Connection")
????????Cnn.Open?="Provider=OraOLEDB.Oracle.1;Persist?Security?Info=False;User?ID=BPMUSER2;;Password=BPMUSER2;Data?Source=CEDATA"
????????
????????If?Cnn.State?=?0?Then??????'判断数据库连接是否成功
????????????Report.Debug("[Cnn.State]?Cnn.State?=?"?&?Cnn.State)
????????????Report.FunctionOut("[Cnn.State]?Cnn.State?=?"?&?Cnn.State)
????????????Exit?Function
????????????End?If

????????If?Cnn.State<>?0??Then????
????????Report.Debug("[Cnn.State]?Cnn.State?=?"?&?Cnn.State)???
????????Set?Rs=CreateObject("ADODB.Recordset")????'生成记录集对象
????????'FormID=?chr(34)&FormID&chr(34)?
????????Report.Debug("[FormID]?FormID?=?"?&?FormID)???
????????sql?="select?*?from(select?b.ID,a.PROCESSID,APPROVEID?from?FORM_MASTER_INFO?a?inner?join?FORM_HISTORY_INFO?b?on?a.PROCESSID=b.PROCESSID?and?a.FORMRESULT='N'?WHERE?a.PROCESSID=?'"&FormID&"'??order?by?b.ID?desc)?where?rownum=1"
?????????Report.Debug("[sql]?sql?=?"?&?sql)
?????????On?Error?Resume?next?
????????Rs.Open?sql?,Cnn,1,3??'执行sql语句,记录可以自由移动,单数记录处于只读模式????????
????????uid=Rs("APPROVEID")?'取得字段为custid的记录,游标定义在第一行,所以取得的是该字段所在行的第一行数据
????????Report.Debug("[uid]?uid?=?"?&?uid)
????????oracle_nextAPPROVEID?="("&?uid&")"????????????
????????'msgbox?uid
????????End?If
????End?Function


调用一下,就可以完成了;做的完善点需要关闭连接等等

RS.close       ‘关闭记录集
Set RS=nothing  ‘释放对象
Cnn.Close   ‘关闭数据连接
Set Cnn=nothing ‘释放对象

这些都是后话了。


 

版权声明:本文为博主原创文章,未经博主允许不得转载。

针对QTP连接oracle数据库问题总结

标签:qtp连接oracle   vb连接oracle   oracle配置   

热心网友 时间:2022-04-08 07:52

--1 右键表所在的数据库名--2 选择任务--3 选择生成脚本--4 选择设置脚本编写选项--5 保存到文件--高级--倒数第二行要编写脚本的数据的类型--选择架构和数据--6 保存
声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。
E-MAIL:11247931@qq.com
我的青春谁做主音乐原声 ipad虎牙直播怎么开延迟高 手机虎牙直播怎么调延迟 重磅!2023年公募基金排行“出炉” 永安笋干产品特色 桥头哪家食材配送好 矿物质都有哪些 恶魔小丑萨科台词 作文【起点】 学习的尽头是哪里 天津河北区瑞泰康医院怎么样? 天津河北区金津门诊部怎么样? 天津市河北区长东医院怎么样? 天津市河北区月牙河医院怎么样? 天津市河北区树君益民门诊部怎么样? 有哪些大码的欧美品牌男装? 为什么说猫是噬魂兽 天津市河北区大伟网吧怎么样? 天津市河北区友安门诊部怎么样? 天津河北益华门诊部怎么样? 天津河北区东和门诊部怎么样? 欧美高端餐具哪个品牌的质量好? 天津河北圣贤门诊部怎么样? 天津市河北区天福纸制品厂怎么样? oppo手机掉了,怎么定位找回 莱歌(La Ceviar)欧美品牌 天津市河北区乐迪蔬菜市场怎么样? 天津市河北区慧安为民门诊部怎么样? 同事的手机丢了oppo手机丢了我把她搞了个定位是用华为手机定位为什么交了交了? 求国内国际一线欧美家具品牌? 我的QQ网名是:咖啡色的云 男女通用吗? 求个好听的QQ网名,男女都要 QQ网名 情侣网名 找一个qq网名男女都可以用的, 一看就会用的QQ网名,男女都能用的唯美简体字,4~9个字的 求 一个男女合用的qq网名, 文字控有木有!!!。 好看点,普通 QQ网名,情侣的有哪些? 想要一个QQ网名 第一个“若白师兄” 还要一个 男女都可以用的更好 谁能帮忙取个男女都可以用的QQ网名 只要符号不要字在 像 ^ε^.♀ 这样的 拿是什么结构的字,拿字上面是什么,下面是什么 以字是什么结构 以是什么结构 将是什么结构是什么 余莎莉演过的所有电影 余莎莉的介绍 为什么我的苹果手机用了几分钟会自动重启呢?ios9 iphone5c 余莎莉电影 余莎莉高清完整版电影 iphone 6 手机过几分钟就重启怎么回事? 香港早期的电影,鬼片,喜剧的
  • 焦点

热门图文

猜你喜欢