EXCEL VBA 操作mysql数据库的求助

icepoint223

Sub 入库录入()
  Dim arr, arr1, x As Integer, mydate As Date, hm As String, sr As String, sql As String
  Dim mydata As New Data查询
   mydate = [e6]: hm = [g6]
  arr = Range("c8:g" & Range("f18").End(xlUp).Row)

  For x = 1 To UBound(arr)
   sr = "#" & mydate & "#" & ",'" & hm & "','" & arr(x, 1) & "','" & arr(x, 2) & "',"
   sr = sr & arr(x, 3) & "," & arr(x, 4) & "," & arr(x, 5)
   sql = "Insert into ruku (入库日期, 入库单号, 商品代码,商品名称,入库数量,入库单价,入库金额) VALUES(' & sr & ')"
   mydata.执行SQL命令 (sql)
  Next x
  MsgBox "成功录入数据库"
End If
End Sub

把EXCEL上面的几行数据值写入mysql数据库，但是总是报错column count doesn't match value count

fxl447098457

循环里面开始或结尾让sr为空。不然的话越来越长。。。

ivccav

你的字段有7个，值只有1个，不匹配。VALUES(' & sr & ')"是把sr用单引号括起来，等于就一个值。

VALUES()中的值每一个都需要用英文逗号分开，日期用#号括起来，文本用英文单引号括起来。

你没有附件，我提供一个我使用的正确格式给你参考：

Sql = "INSERT INTO salary (日期,工号,姓名,部门,合计) VALUES(#2018-5-29#,'28745','李大','压铸',189)"
=================

你的语句改为如下即可：

Sql = "Insert into ruku (入库日期, 入库单号, 商品代码,商品名称,入库数量,入库单价,入库金额) VALUES(" & sr & ")"

与循环无关，因为每次循环你都重新赋值了，不是问题。

icepoint223

谢谢两位老师指导已经解决了