51Testing软件测试论坛

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

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 1976|回复: 6
打印 上一主题 下一主题

[求助] 请教各位前辈关于QTP中链接数据库时碰到的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2009-7-28 15:28:19 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
1.下面是我参照一些资料,想在订票系统中修改订票内容,修改内容分别为为数据库表中的两个字段(名字和票数),脚本是这样的:
Window("Flight Reservation").Activate
Window("Flight Reservation").WinRadioButton("Economy").Set
Dim Objconn
Dim Rst
Objku="d:\data.mdb"
Set Objconn=Createobject("adodb.connection")
Objconn.open ="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Objku
Set Rst =CreateObject("ADODB.Recordset")
Rst.open "select *  from flight",Objconn,1,1
rst.movefirst
Const ForReading = 1, ForAppending = 8
Dim i,j
Dim fso
Dim  f
Dim  ts
Dim TextStreamTest
Set fso = CreateObject("Scripting.FileSystemObject")
fso.CreateTextFile "d:/NAME.txt"
Set f = fso.GetFile("d:/NAME.txt")
Do while Rst.EOF <> True
i=Rst.Fields("name")
j=Rst.Fields("tickets")
print i
print j
Set ts = f.OpenAsTextStream(ForAppending, TristateUseDefault)
rst.movenext
ts.Writeline i
ts.Writeline j
Window("Flight Reservation").WinEdit("Name:").SetSelection 0,10
Window("Flight Reservation").WinEdit("Name:").Set i
Window("Flight Reservation").WinEdit("Tickets:").Set j
Window("Flight Reservation").WinButton("Update Order").Click
Window("Flight Reservation").Activate
ts.Close
Loop
rst.close
Objconn.close
set rst=nothing
Set Objconn=Nothing
2.数据表flight的两个字段及内容为
      name  tickets
内容        aaa          2
                bbb          1                  
我想把数据库里表flight表中name,tickets读到脚本中,但是执行到Rst.open "select *  from flight",Objconn,1,1时报错如下:
至少一个参数没有被指定。
这段脚本的有些语句,我基本上是粘贴复用的,所以想请教%B
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
 楼主| 发表于 2009-7-28 15:45:03 | 只看该作者
不知道为什么,只显示了部分。
(接上)想请教各位大侠几个问题:
(1)Objconn.open ="provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Objku为什么要这样写,我看很多人写的这块语句都不太一样,请问这个语句能从哪里能找到。
(2)Rst.open "select *  from flight",Objconn,1,1中
Objconn,1,1是什么意思。执行时为什么会报错。
(3)哪位大侠有相关这方面的资料,能否上传一些,很想知道rst.movefirst、i=Rst.Fields("name")、rst.movenext语句都是从哪里可以学习到的。
谢谢大侠们。
回复 支持 反对

使用道具 举报

该用户从未签到

3#
发表于 2009-7-28 16:11:29 | 只看该作者
QuickTest Professional\CodeSamplesPlus\DatabaseFuncitonCollection.vbs
官方代码样例,可能对你有帮助。
你说的那些语句请查找VBS文档中ADODB的相关部分。
回复 支持 反对

使用道具 举报

该用户从未签到

4#
 楼主| 发表于 2009-7-28 16:24:21 | 只看该作者
多谢楼上这位前辈,我在VBS语言参考中没有找到ADODB的相关部分。请问各位大侠谁有VBS文档中ADODB的相关部分的描述,麻烦可否给上传一份谢谢。
回复 支持 反对

使用道具 举报

该用户从未签到

5#
发表于 2009-7-28 18:19:50 | 只看该作者
看看这个

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有帐号?(注-册)加入51Testing

x
回复 支持 反对

使用道具 举报

该用户从未签到

6#
发表于 2009-7-29 12:18:45 | 只看该作者
i=Rst.Fields("name")
j=Rst.Fields("tickets")
这里出错了。
i=(Rst(0)),0,"name"
j=(Rst(0)),0,"tickets"
回复 支持 反对

使用道具 举报

该用户从未签到

7#
 楼主| 发表于 2009-7-29 16:56:24 | 只看该作者
原帖由 星之魂 于 2009-7-28 18:19 发表
看看这个



谢谢前辈~~
回复 支持 反对

使用道具 举报

本版积分规则

关闭

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

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

GMT+8, 2024-11-7 23:41 , Processed in 0.084039 second(s), 28 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

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