51Testing软件测试论坛

标题: 求助，qtp连接数据库的脚本，找不到数据源 [打印本页]

作者: hututu 时间: 2011-10-10 00:48
标题: 求助，qtp连接数据库的脚本，找不到数据源
Const strconn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=D:\QTPWorking\samples\flight\app\flight32.mdb"
Set objDB = createObject("ADODB.connection")
objDB.ConnectionString= strconn
objDB.Open
Dialog("Login").WinButton("Cancel").Click
sqlQuery = "select o.*,f.Ticket_Price from orders o,flights f where o.flight_number = f.flight_number"
Set objResults = objDB.Execute(sqlQuery)
sumTickets = 0
sumCustomers = 0
sumMoney = 0
objResults.MoveFirst
While not objResults.EOF
sumTickets = sumTickets + objResults.Fields("Tickets_Ordered")
sumCustomers = sumCustomers + 1
sumMoney = sumMoney + objResults.Fields("Tickets_Ordered")*objResults.Fields("Ticket_Price")
objResults.MoveNext
Wend
reporter.ReportEvent micPass,"Database总票数","总票数="&sumTickets
reporter.ReportEvent micPass,"Database顾客数","顾客数="&sumCustomers
reporter.ReportEvent micPass,"Database总价钱","总价钱="&sumMoney

objResults.Close
objDB.Close
Set objResults = Nothing
Set objDB = nothing
执行到第四句时提示未发现数据源名称并且未指定默认驱动程序，请问我应该怎么解决

作者: wangyanzhao 时间: 2011-10-10 13:27
可参照下我的博客有关和数据库链接的脚本
http://hi.baidu.com/wyztester/bl ... 5bb81aa08bb75c.html

作者: hututu 时间: 2011-10-11 13:04
回复 3# wangyanzhao

O(∩_∩)O谢谢，我会好好看看的，多谢

作者: hututu 时间: 2011-10-11 13:08
回复 3# wangyanzhao
不过我想请教您，ODBC中配置数据库，在QTP中使用，这种情况您熟悉吗，如果熟悉想跟您学一下

作者: zxyandzwj 时间: 2012-6-4 14:09
回复 4# hututu

请问是什么原因，我也遇到了这个问题感觉自己ODBC设置的也没有问题啊？

作者: joan_1 时间: 2012-6-4 14:40
我也遇到了这个问题了。当前电脑上因某种原因，没有成功安装上ACCESS数据库，不知这会不会对连接数据库有影响

作者: jacky8312 时间: 2012-6-11 17:06
需要在数据源中建立一个链接即可

作者: bichenlu 时间: 2012-6-12 12:47
有没驱动呢，可配置一个数据源用数据源试试

作者: shanfeng1419 时间: 2012-6-13 09:39
是不是strconn 不正确

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