MYSQL-Access-Macro Error字段列表中的未知列

我试图运行一个Excelmacros，从csv文件导入到Access数据库，MySQL前端的数据。 macros代码并不是新的 – 我们已经使用了几年，Access DB中的表并不是新的，并且用于将数据用于访问表的数据的csv文件也没有改变（意思是相同的行，相同的数据types）。

我难住，因为错误似乎是一个exception的东西，我已经尝试了几个修复程序来纠正错误。 我附上了错误的副本以及下面的代码。 下面引用的列的问题以及附加的错误消息“itemcode”，这个列在数据库中。

显然，有些东西是我错过的。 任何见解都非常感谢。 谢谢。

'Read in Current .csv file 'Data Services NumRows = Application.CountA(Range("A:A")) For iCount = 1 To NumRows Dim InstData(11) InstData(1) = Range("A" & iCount) 'Date invoiceDate = Format(InstData(1), "yyyy/mm/dd") InstData(2) = Range("B" & iCount) 'Invoice Number InstData(3) = Range("C" & iCount) 'names flname() = Split(InstData(3), ",") lname = flname(0) fname = flname(1) InstData(4) = Range("D" & iCount) 'Address1 InstData(5) = Range("E" & iCount) 'Address2 InstData(6) = Range("F" & iCount) 'City InstData(7) = Range("G" & iCount) 'State InstData(8) = Format(Range("H" & iCount), "00000") 'postal code InstData(9) = Range("I" & iCount) 'phone InstData(10) = Range("J" & iCount) 'email InstData(11) = Range("K" & iCount) 'amount Set conn = New ADODB.Connection Set rec = New ADODB.Recordset conn.Open "Dsn=HERIpub" rec.Open ("Insert into tbl_Invoice (invoiceNumber,invoiceDate,invoiceAmount,invoiceDescription,invoiceFAU,invoiceCostCenter,invoiceProject,itemcode,invoicecFName,invoicecLName, invoicecAddr1, invoicecAddr2, invoicecCity, invoicecState, invoicecZIP, invoicecEmail, invoicecPhone) Values ('" & InstData(2) & "','" & invoiceDate & "','" & InstData(11) & "','Data Services','T6','T6','DATASL','40070DATASL','" & fname & "'" & ",'" & lname & "','" & InstData(4) & "', '" & InstData(5) & "', '" & InstData(6) & "', '" & InstData(7) & "', '" & InstData(8) & "', '" & InstData(10) & "', '" & InstData(9) & "')"), conn 

macros观错误

Answer 1

看看variablesfname，那里有多余的“＆”。 我认为这应该是：

 rec.Open ("Insert into tbl_Invoice (invoiceNumber,invoiceDate,invoiceAmount,invoiceDescription,invoiceFAU,invoiceCostCenter,invoiceProject,itemcode,invoicecFName,invoicecLName, invoicecAddr1, invoicecAddr2, invoicecCity, invoicecState, invoicecZIP, invoicecEmail, invoicecPhone) Values ('" & InstData(2) & "','" & invoiceDate & "','" & InstData(11) & "','Data Services','T6','T6','DATASL','40070DATASL','" & fname & "','" & lname & "','" & InstData(4) & "', '" & InstData(5) & "', '" & InstData(6) & "', '" & InstData(7) & "', '" & InstData(8) & "', '" & InstData(10) & "', '" & InstData(9) & "')"), conn 

告诉我，如果我是对的，或标记一个投票！