如何用VBScript对数据库操作？

Ganlinda

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

QA_BAY

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

lovetest6

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

yuxingxin

利用ADO对象

Ganlinda

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

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

kai_top

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

steedy

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

hongtang

只要该一点点就行了

QA_BAY

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

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

TANCH

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

xiaonan

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

长知识了,谢谢.

livegirl

谢谢了

qhbqhb

谢谢分享。。。