51Testing软件测试论坛

 找回密码
 (注-册)加入51Testing

QQ登录

只需一步,快速开始

微信登录,快人一步

手机号码,快捷登录

查看: 2368|回复: 4
打印 上一主题 下一主题

[原创] dbf文件通过access打开后连接QTP中遇到的问题

[复制链接]

该用户从未签到

跳转到指定楼层
1#
发表于 2007-1-11 15:00:39 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式
大家好:

dbf文件通过access打开后,
通过udl文件复制了连接的路径,
在QTP脚本中 "set res=cmd.execute()" 回放中提示:  类型不匹配
该如何修改呢?

谢谢

[ 本帖最后由 xinliduo 于 2007-1-11 16:39 编辑 ]
分享到:  QQ好友和群QQ好友和群 QQ空间QQ空间 腾讯微博腾讯微博 腾讯朋友腾讯朋友
收藏收藏
回复

使用道具 举报

该用户从未签到

2#
发表于 2007-1-11 15:25:58 | 只看该作者
"类型不匹配",说明你上面的代码都问题,把代码放出来.
回复 支持 反对

使用道具 举报

该用户从未签到

3#
 楼主| 发表于 2007-1-11 15:41:04 | 只看该作者
dim res,cmd.sql
set res=createobject("adodb.recordset")
set res=createobject("adodb.command")
cmd.activeconnection="...."
cmd.commandType=1
sql="...."
cmd.commandText=sql
set res=cmd.execute()
while not res.eof
......


谢谢
回复 支持 反对

使用道具 举报

该用户从未签到

4#
发表于 2007-1-11 16:04:30 | 只看该作者
Dim conn,input,filename
filename="D:\公基本情况(tb_gsgk)-标准格式.xls" '
Set conn= createobject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="&filename&";Extended Properties='Excel 8.0;hdr=yes'"
Set input= createobject("ADODB.Recordset")
input.Open "select  *   from [表名$] " ,conn,2,2
input.close
Set input=nothing

可以试试套用我的这段脚本.

你的代码我没看出什么问题,可能数据源或者sql语句不知道有没有问题
回复 支持 反对

使用道具 举报

该用户从未签到

5#
 楼主| 发表于 2007-1-11 16:37:21 | 只看该作者
呵呵 成功了 谢谢xiaonan

的确是'类型不匹配',在sql查询语句中出了错,字符型的数据引用需要加单引号,数字型的数据直接引用就可以了 哈哈
回复 支持 反对

使用道具 举报

本版积分规则

关闭

站长推荐上一条 /1 下一条

小黑屋|手机版|Archiver|51Testing软件测试网 ( 沪ICP备05003035号 关于我们

GMT+8, 2024-11-11 04:43 , Processed in 0.071079 second(s), 27 queries .

Powered by Discuz! X3.2

© 2001-2024 Comsenz Inc.

快速回复 返回顶部 返回列表