51Testing软件测试论坛

标题: 请教各位前辈关于QTP中链接数据库时碰到的问题 [打印本页]

作者: SUPERWOMEN 时间: 2009-7-28 15:28
标题: 请教各位前辈关于QTP中链接数据库时碰到的问题
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

作者: SUPERWOMEN 时间: 2009-7-28 15:45
不知道为什么，只显示了部分。
（接上）想请教各位大侠几个问题：
（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语句都是从哪里可以学习到的。
谢谢大侠们。

作者: intothestorm 时间: 2009-7-28 16:11
QuickTest Professional\CodeSamplesPlus\DatabaseFuncitonCollection.vbs
官方代码样例，可能对你有帮助。
你说的那些语句请查找VBS文档中ADODB的相关部分。

作者: SUPERWOMEN 时间: 2009-7-28 16:24
多谢楼上这位前辈，我在VBS语言参考中没有找到ADODB的相关部分。请问各位大侠谁有VBS文档中ADODB的相关部分的描述，麻烦可否给上传一份谢谢。

作者: 星之魂 时间: 2009-7-28 18:19
看看这个

作者: lvguobin 时间: 2009-7-29 12:18
i=Rst.Fields("name")
j=Rst.Fields("tickets")
这里出错了。
i=(Rst(0)),0,"name"
j=(Rst(0)),0,"tickets"

作者: SUPERWOMEN 时间: 2009-7-29 16:56

原帖由 星之魂 于 2009-7-28 18:19 发表
看看这个

谢谢前辈~~

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)