VBA中字段名和保留字冲突的处理

denghuajiang

为了把电子表格中的工资数据导入到农行的数据库中，file:///d:/123.jpg，经检查是字段名Sum和保留字冲突所致。最后把sum改为[sum]才成功。具体代码如下：
Public Sub 导工资数据到数据库中()
Dim mydata, mytable, SQL, Accoun, shew As String
Dim cnn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim gzsum As Single
Dim a%, x%
mydata = ThisWorkbook.Path & "\salary.mdb"    '指定数据库
mytable = "CustomerInfo"      '指定数据表

'※※※建立与数据库的连接※※※
With cnn
   .Provider = "microsoft.jet.oledb.4.0"
   .Properties("Data Source") = "D:\六中工资\代发工资系统\salary.mdb"         ' 数据库的路径和名称
   .Properties("Jet OLEDB:Database Password") = "ketesiw,"   '数据库有密码，加上这一句
   .Open
End With

'※※※把应发工资金额导入到数据库中※※※
With Sheets("银行发放情况")
  a = .[f65536].End(xlUp).Row
  For x = 4 To a - 1
       '将客户账号/卡号（字段名为CustomerAccount）符合条件的交易金额（字段名为sum）修改
       Accoun = .Cells(x, 4)
       gzsum = .Cells(x, 6)
     '交易金额 客户账号/卡号  如果不是保留字不用加[]，这里Sum是保留字，所以用[Sum]
       SQL = "update " & mytable & " set [Sum] = " & gzsum & " where CustomerAccount='" & Accoun & "'"
       rs.Open SQL, cnn, adOpenKeyset, adLockOptimistic
  Next
End With
MsgBox "所有人员的工资数据已经全部导入到数据库中！！"
cnn.Close
Set rs = Nothing
Set cnn = Nothing
End Sub
数据库是在D:\六中工资\代发工资系统\目录下，数据库密码为：ketesiw,

[ 本帖最后由 denghuajiang 于 2011-4-2 18:25 编辑 ]

doitbest

支持一下！

roych

原帖由 denghuajiang 于 2011-4-2 18:19 发表
为了把电子表格中的工资数据导入到农行的数据库中，file:///d:/123.jpg，经检查是字段名Sum和保留字冲突所致。最后把sum改为[sum]才成功。具体代码如下：
Public Sub 导工资数据到数据库中()
Dim mydata, mytable, ...

这一句有误：
      SQL = "update " & mytable & " set [Sum] = " & gzsum & " where CustomerAccount='" & Accoun & "'"
应该为(Update是同时需要字段和表名称的）：
      SQL = "update " & mytable & " set ["&mytable &"].[Sum] = " & gzsum & " where CustomerAccount='" & Accoun & "'"

zhao__feng

谢谢分享！

乐开花36

发个附件上来看看。。。。

hustnzj

roych 发表于 2011-4-3 15:36
这一句有误：
      SQL = "update " & mytable & " set [Sum] = " & gzsum & " where CustomerAccount= ...

不需要吧，看下帮助就知道了