51Testing软件测试论坛

标题: 如何用VBScript对数据库操作？ [打印本页]

作者: Ganlinda 时间: 2005-6-15 10:45
标题: 如何用VBScript对数据库操作？
我想把测试数据放在access里面，在测试过程中再从数据库中提取出数据，请问如何从数据库中提取出数据呢？谢谢！！！

作者: QA_BAY 时间: 2005-6-15 11:05
如何从数据库中提取出数据
这个需要插入一个数据库检查点(INSERT---OUTPUT VALUE--DATABASE OUTVALUE)!然后作数据对比!

作者: lovetest6 时间: 2005-6-15 11:07
到MSDN查ADODB.Connection的用法吧，
不要忘了，查完以后，把结果贴在这里，让以后有类似问题的人少走些和你一样的弯路，
好么？呵呵，谢谢。

作者: yuxingxin 时间: 2005-6-16 09:43
利用ADO对象

作者: Ganlinda 时间: 2005-6-17 13:34
ADO对象是用来存取数据库的对象的统称。主要含有三种对象：Connection、Recordset和Command，其中Connection负责打开或连接数据库，Recordset负责存取数据表，Command负责对数据库执行行动查询（Action Query）命令和执行SQL Server的Stored Procedure。

例子：这个例子是从Access数据库的InfoTab表格中取出Name的信息，并通过message box显示出来。

Sub GetData

Set Con = CreateObject("ADODB.Connection" )
Con.open "DRIVER = {Microsoft Access Driver (*.mdb)};DBQ=D:\Testdb.mdb" ‘Open the connection
Set Record = CreateObject ("ADODB.Recordset" )
sql = "select * from InfoTab"
Record.open sql, con ‘execute the sql and get the result in the Record

If (not Record.eof) then
Record.MoveFirst
MsgBox Record(“Name”)
end if

Record.close
Set Record = Nothing
Con.close
Set Con = Nothing

End Sub

////////////////////////////////////////////////////////////////////////////
谢谢lovetest6的帮助。:p以上如果有什么错误希望大家帮我指正。谢谢！！

[ Last edited by Ganlinda on 2005-6-17 at 13:50 ]

作者: lovetest6 时间: 2005-6-20 18:36
感谢Ganlinda哦：）
应该置顶让不知道人都看看，免得再有走弯路的：）呵呵，谢谢哦。

作者: kai_top 时间: 2005-9-21 10:20
好东西，刚练习到数据库检查点，正好用上，谢谢Ganlinda

作者: steedy 时间: 2005-9-26 22:05
如果要连的数据库不是access的，是oracle的，怎么做？

作者: hongtang 时间: 2005-9-29 00:37
标题: 只要该一点点就行了
只要该一点点就行了

作者: QA_BAY 时间: 2005-9-29 14:53

Originally posted by steedy at 2005-9-26 10:05 PM:
如果要连的数据库不是access的，是oracle的，怎么做？

以下是Winrunner与ORACLE的过程
建立数据库连接!
用query连接数据库需要选择数据源，怎么能找到那个数据源?
这个你可以自己建一个,然后保存起来就行了.建数据源很简单!
你可以选INSERT--DATABASE CHECKPOINT---选第三个.然后选CREAT NEW QUERY.
然后点数据源,再点确定(到这一步,你要知道你的数据库文件放在哪个目录下,我的是ORACLE,库是我自己建的,所以我可以很容易的指向它)
再下一步,它会弹会一个叫你填写数据库名,
你把库的名称写上去,然后再输入用户名和密码,
再点连接就可以建成数据源了!以后点那个数据源就行了!

QTP的操作跟WR的操作差不多,我就不多写了!
道理一样!

作者: wangpai555 时间: 2006-6-8 14:09
但是提示不存在creat new query这个选项，怎么办？

作者: TANCH 时间: 2006-6-8 15:02
我的问题和这个类似，如何从一个普通的TXT文件读出数据写到相关参数里呢？

作者: xiaonan 时间: 2006-6-8 16:19
txt文本用这个,我是以一行三个字段,分别用逗号搁开的来举例
Dim fso, MyFile
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile= fso.OpenTextFile("D:\数据比较.txt", 1 , False)
Do While MyFile.AtEndOfLine <> True
Tmp = Split(MyFile.ReadLine, ",")

username=tmp(0)
password=tmp(1)
ziduan=tmp(2)
msgbox username
msgbox password
msgbox ziduan
loop
MyFile.Close

作者: lijunhu 时间: 2008-9-7 07:43
长知识了,谢谢.

作者: livegirl 时间: 2009-1-7 16:03
谢谢了

作者: qhbqhb 时间: 2009-1-11 18:30
谢谢分享。。。

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