Question

我正在尝试运行一个Excel宏，它将数据从csv文件导入到Access数据库MySQL前端。宏代码不是新的 - 我们已经使用了几年，Access DB中的表不是新的，用于将数据用于Access表的csv文件也是不变（意思是相同的行，相同的数据类型）。

我很难过，因为错误似乎是一种异常现象，我已经尝试了几个修正来纠正错误。我附上了错误的副本以及下面的代码。下面引用的列的问题以及附加的错误消息＆＃34; itemcode＆＃34;，此列位于数据库中。

显然，我有些遗漏。任何见解都非常感谢。谢谢。

'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

macro error

Answer 1

查看变量fname，你有冗余的“＆amp;”。我认为应该是：

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

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

字段列表中的MYSQL-Access-Macro Error Unknown列

1 个答案: