如何用VBScript对数据库操作？

Ganlinda 发表于 2005-6-15 10:45:39

我想把测试数据放在access里面，在测试过程中再从数据库中提取出数据，请问如何从数据库中提取出数据呢？谢谢！！！

QA_BAY 发表于 2005-6-15 11:05:12

如何从数据库中提取出数据
这个需要插入一个数据库检查点(INSERT---OUTPUT VALUE--DATABASE OUTVALUE)!然后作数据对比!

lovetest6 发表于 2005-6-15 11:07:19

到MSDN查ADODB.Connection的用法吧，
不要忘了，查完以后，把结果贴在这里，让以后有类似问题的人少走些和你一样的弯路，
好么？呵呵，谢谢。

yuxingxin 发表于 2005-6-16 09:43:52

利用ADO对象

Ganlinda 发表于 2005-6-17 13:34:09

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 theresult 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:41

感谢Ganlinda哦：）
应该置顶让不知道人都看看，免得再有走弯路的：）呵呵，谢谢哦。

kai_top 发表于 2005-9-21 10:20:32

好东西，刚练习到数据库检查点，正好用上，谢谢Ganlinda

steedy 发表于 2005-9-26 22:05:44

如果要连的数据库不是access的，是oracle的，怎么做？

hongtang 发表于 2005-9-29 00:37:19

只要该一点点就行了

QA_BAY 发表于 2005-9-29 14:53:29

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:37

但是提示不存在creat new query这个选项，怎么办？

TANCH 发表于 2006-6-8 15:02:06

我的问题和这个类似，如何从一个普通的TXT文件读出数据写到相关参数里呢？

xiaonan 发表于 2006-6-8 16:19:44

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:44

长知识了,谢谢.

livegirl 发表于 2009-1-7 16:03:02

谢谢了

qhbqhb 发表于 2009-1-11 18:30:34

谢谢分享。。。

页: [1]

51Testing软件测试论坛 's Archiver

如何用VBScript对数据库操作？

只要该一点点就行了