51Testing软件测试论坛

标题: 【已解决】Excel-Ado编程 [打印本页]

作者: liqiuheng 时间: 2013-6-17 16:58
标题: 【已解决】Excel-Ado编程
本帖最后由 liqiuheng 于 2013-6-20 13:26 编辑

如下代码，可以运行

sqlconnection="DSN=excel files;DBQ=D:\2.xls"
sqlcommand="Update [Sheet1$] set [Password]='1234' where [Username]='QuickTest'"
Set oExcel=CreateObject("adodb.connection")
oExcel.Open sqlconnection
oExcel.Execute(sqlcommand)
oExcel.Close
Set oExcel=nothing

但当把 [Password]='1234' 改成 [Password]='Testing'就出错了（不能赋值成string)

[Microsoft][ODBC Excel 驱动程序] 标准表达式中数据类型不匹配。
Line (5): "oExcel.Execute(sqlcommand)".

请问该怎么改才能运行?提前谢过了

作者: zhangkun90 时间: 2013-6-17 19:34
同求

作者: liqiuheng 时间: 2013-6-19 18:33
处理了一下excel里Password列的格式，在数字前加上单引号，把数字转化成文本，执行就没有问题了。

作者: zhangkun90 时间: 2013-6-20 08:46
回复 3# liqiuheng

额就是讲excel转化成文本模式嘛

作者: liqiuheng 时间: 2013-6-20 13:22
数字不需要用引号 set [Password]='1234'：
改为 set [Password]=1234 就可以了

作者: xiajin87 时间: 2013-6-25 10:06
sqlconnection="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & FilePath & ";Extended Properties=""Excel 8.0;HDR=yes;IMEX=0""" '其中IMEX=0表示更新操作
sqlcommand="Update [Sheet1$] set [Password]=""1234"" where [Username]=""QuickTest"""
Set oExcel=CreateObject("adodb.connection")
oExcel.Open sqlconnection
oExcel.Execute(sqlcommand)
oExcel.Close
Set oExcel=nothing

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