qtp 运行错误 未发现数据源名称并且未指定默认驱动程序

zxyandzwj

本人菜鸟一个，目前正在自学QTP 在做数据库测试时遇到上述问题，请各位高手指点下，脚本代码如下
Const strConn="DRIVER={Microsoft Access Driver(*.mdb)};DBQ=C:\Program Files\Hp\QuickTest Professional\samples\flight\app\flight32.mdb"

Set objDB=CreateObject("ADODB.Connection")
objDB.ConnectionString=strConn
objDB.Open
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.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

joykao

你建了数据源了吗？就是这个*.mdb？

zxyandzwj

回复 2# joykao


   建的系统DSN

zxyandzwj

回复 2# joykao
我刚才又试了下用户DSN也还是不行

joykao

你的数据源是怎么建的呢？

zxyandzwj

回复 5# joykao


    控制面板数据源中
1、选择系统DSN添加Microsoft Access driver
2、填写数据源名称
3、选择数据库
这样创建不行吗？

zxyandzwj

回复 5# joykao


   这跟Access 版本有关吗？我用的2007版，程序使用的时2003版

joykao

这个我就母鸡啦。。。。回复 7# zxyandzwj

zxyandzwj

回复 8# joykao


    呜呜，不过还是谢谢你！我再试试其他办法吧！

yinyeyu

我安装好QTP之后，打开飞机订票系统，登陆可以，但登陆之后就弹出“未发现数据源名称并且未找到默认驱动程序”请问你有碰到这个问题么？能不能把你正常安装的QTP软件发我呢。。。非常感谢！

fengerapple

Thank you very much for sharing!The good man!The good life of peace!

芭乐

yinyeyu 发表于 2012-12-13 11:52
我安装好QTP之后，打开飞机订票系统，登陆可以，但登陆之后就弹出“未发现数据源名称并且未找到默认驱动程 ...

我也是这个问题，怎么解决的，虽然过了5年，希望看到能帮我解答一下