VBA UPDATE 问题

你的电话费是数值型，sql 中就不需要单引号引起 bb 。是字符型才需要。

Dim cn As New ADODB.Connection

cn.Open "provider=microsoft.jet.oledb.4.0extended properties=excel 8.0data source=d:\999.xls"

Dim bb As Integer

bb = [h8]

Dim sql As String

sql = "update [sheet1$] set 电话费=" &bb &" where 研究单位='汉中'" 'bb 是数值型

'sql = "update [sheet1$] set 电话费='" &bb &"' where 研究单位='汉中'" 'bb 是字符型

cn.Execute sql

cn.Close

Set cn = Nothing

End Sub

====================================================

如果你的 sql 语句和数据库不是什么秘密的东西，你还是把你的 sql 贴一下把

数据库机构也说一说，有人会帮你写的 。。。。。谁知道你改成什么样子。

===================================================

"update 表名 set 字段1=" &变量 &"，字段2=值2.....where 条件"

SQL语句是错的呀，你msgbox sql就能发现问题：一是缺少逗号和空格，二是身份z号搞了两次，稍微细心就能防止吧，我给你修改如下，由于我没有控件，你试试看是否可行：

Sql = "update [合同信息$] set [单位] ='" &单位.Value &"',[身份z号]= '" &身份z号.Value &"',[出生日期]= '" &出生日期.Value &"',[性别]= '" &性别.Value &"',[年龄]=" &年龄.Value &" where [姓名]= '" &姓名.Value &"'"

---