51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1573|回复: 1
打印 上一主题 下一主题

[原创] qtp求教

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2010-8-6 10:45:46 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
***qtp咋样从数据库里取值???
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2010-8-6 14:03:07 | 只看该作者
要看什么数据库,一般通过ADO可连接,下面是SQLServer的例子:
  1. Dim Conn
  2. Dim Rst
  3. Dim str_Link_DBSource
  4. str_Link_DBSource="Provider=SQLOLEDB.1;Password=sa;Persist Security Info=True;User ID=sa;Initial Catalog=Northwind;Data Source=TEST"

  5. Set Conn=CreateObject("ADODB.Connection")
  6. Conn.Open str_Link_DBSource

  7. Set Rst=CreateObject("ADODB.Recordset")
  8. Rst.Open "select * from Orders",Conn,2,2
  9. Rst.MoveFirst
  10. Do While Rst.Eof<>true
  11.       Print Rst.Fields(0) & " " & Rst.Fields(1) & " " & Rst.Fields(2)
  12.       Rst.MoveNext
  13. Loop

  14. Rst.Close
  15. Conn.Close
  16. Set Rst=Nothing
  17. Set Conn=Nothing
复制代码
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-26 07:23 , Processed in 0.064145 second(s), 23 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表