TA的每日心情 | 郁闷 2015-5-13 15:02 |
---|
签到天数: 1 天 连续签到: 1 天 [LV.1]测试小兵
|
系统: win7 64
l浏览器:IE8
QTP版本:10
今天刚刚到《精通QTP--自动化测试技术领航》的第三章
其中3.4.3小节讲解的是 用ADO打造Excel数据库的问题。
按照书上的例子我原封不动的写了代码运行确报错。(数据库连接地址是通过前面章节所讲知识自己生成的,所以和书上的Demo不一致)
代码如下:
'定义SQL连接字符串
sqlConnecton="DBQ=D:\testing.xlsx;DefaultDir=D:\;Driver={Microsoft Excel Driver (*.xls, *.xlsx, *.xlsm, *.xlsb)};DriverId=1046;FIL=excel 12.0;FILEDSN=C:\Users\Administrator\Documents\ExcelFiles.dsn;MaxBufferSize=2048;MaxScanRows=8ageTimeout=5;ReadOnly=1;SafeTransactions=0;Threads=3;UID=admin;UserCommitSync=Yes;"
'定义Sql语句
sqlCommand="selcet * from [sheet1$]"
'创建ADO对象
Set oExcel =CreateObject("adodb.connection")
'打开数据库连接
oExcel.Open sqlConnecton
'执行SQL语句并返回结果集
Set oRst=oExcel.Execute(sqlCommand)
MsgBox oRst.Fields("userName")
'关闭数据库连接
oExcel.Close
'释放资源
Set oExcel =Nothing
Set oRst=nothing
点击运行后报错如下图所示:
我百度了一下,按照他的方法还是不行。百度到的方法如下图:
所以这里问问大家,这里应该怎么处理?谢谢!
|
|