关于sql的问题

sixixd

           有没有高手知道，如果我要把标红语句中的数字替换为EXCEL表中A1单元格中的数据的时候，应该怎么修改

           StrSQL = "UPDATE [" & SQLARR(0, 1) & "]"
            StrSQL = StrSQL & " SET [占用量] =" & SQLARR(0, 2) + 1   '//占用量加上1
            StrSQL = StrSQL & ",[可用量] =" & SQLARR(0, 3) - (SQLARR(0, 2) + 1)  '//[可用量]=总量-占用量
             StrSQL = StrSQL & ",[客户名称] =" & 88
            StrSQL = StrSQL & " WHERE ID=" & SQLARR(0, 0)

sixixd

        StrSQL = "UPDATE [" & SQLARR(0, 1) & "]"
            StrSQL = StrSQL & " SET [占用量] =" & SQLARR(0, 2) + 1   '//占用量加上1
            StrSQL = StrSQL & ",[可用量] =" & SQLARR(0, 3) - (SQLARR(0, 2) + 1)  '//[可用量]=总量-占用量
             StrSQL = StrSQL & ",[客户名称] =" & 88
            StrSQL = StrSQL & " WHERE ID=" & SQLARR(0, 0)

鄂龙蒙

没有附件看不到真像，也没法调试

sixixd

鄂龙蒙 发表于 2018-6-17 07:05
没有附件看不到真像，也没法调试

88就是一个常量数字

鄂龙蒙

StrSQL = StrSQL & ",[客户名称] =" & sheet1.[A1]

sixixd

鄂龙蒙 发表于 2018-6-17 07:34
StrSQL = StrSQL & ",[客户名称] =" & sheet1.[A1]

谢谢解答，但是修改后还是不行，我修改成StrSQL = StrSQL & ",[客户名称] =" & Worksheets("Sheet6").Range("D2").Value后提示下标越界，Worksheets("Sheet6").Range("D2").Value用常量数字替换比如88，是可以写进acc数据库表的客户名称这个字段的