好记性不如烂笔头,日志中记录了本人学习时遇到的知识点,方便自己回顾所学,也给有需要的童孩提供参考。欢迎大家阅读,并提出宝贵意见。
QTP 连接数据库
上一篇 /
下一篇 2013-01-15 11:47:46
/ 个人分类:QTP技术
Public Function connectData(
sql)
'以下是数据库操作
Dim rs,sq,pkey
set conn=createobject("adodb.connection")
set rs=createobject("adodb.recordset")
'下面数据库驱动语句,可以通过新建.udl文件连接数据库后获得
conn.open="Provider=SQLOLEDB.1;Password=123456;Persist Security Info=True;User ID=sa;Initial Catalog=HXOMS;Data Source=192.168.0.232"
rs.open sql,conn
i=1
do while not rs.eof
values1=rs("password")
values2=rs("name")
Reporter.ReportEvent micPass,values1,values2
i=i+1
rs.movenext
Loop
rs.close
set rs=nothing
conn.close
set conn=nothing
End Function
Dim sqlselect
sqlselect="select * from acct_user where name like '李浩%'"
connectData(sqlselect)
相关阅读:
- 登录功能自动化测试 (jing17, 2013-1-05)
- QTP:为描述性编程自动创建注释 (lihailing, 2013-1-06)
- QTP脚本中设置等待时间 (lihailing, 2013-1-06)
- QTP:强制退出 (lihailing, 2013-1-06)
- 使用函数并输出当前时间 (lihailing, 2013-1-07)
- QTP快速添加数据库检查点 (lihailing, 2013-1-09)
- QTP:"+"和"&"的区别 (lihailing, 2013-1-10)
- QTP版“古城钟楼”---使用QTP完成微博定时发送功能 (mmsw450, 2013-1-11)
- QTP/UFT11.5官方下载与安装((转载别人的文章,拿过来方便大家学习 (sindyzhou08, 2013-1-14)
- 【QTP】无意中发现了QTP11.5(UFT)的一个新功能。 (黑羽祭, 2013-1-14)
收藏
举报
TAG:
QTP