【已解决】Excel-Ado编程

liqiuheng · 发表于 2013-6-17 16:58:08

本帖最后由 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:23

同求

liqiuheng · 发表于 2013-6-19 18:33:59

处理了一下excel里Password列的格式，在数字前加上单引号，把数字转化成文本，执行就没有问题了。

zhangkun90 · 发表于 2013-6-20 08:46:35

回复 3# liqiuheng

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

liqiuheng · 发表于 2013-6-20 13:22:45

数字不需要用引号 set [Password]='1234'：
改为 set [Password]=1234 就可以了

xiajin87 · 发表于 2013-6-25 10:06:15

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

[求助] 【已解决】Excel-Ado编程

相关帖子

站长推荐 /1