连接访问数据库并写入表

Question

我有一张 Excel 发票表，我想将发票中的信息写入 Access 文件中的表中。我的以下代码是：

Private Sub Button66_Click()
Dim con As New ADODB.Connection
Dim connectionString As String

Dim sql As String

connectionString = "DBQ=c:\Users\Public\Public Desktop\InvoiceRecords.mdb; Driver={Microsoft Access Driver (*.mdb)};"

con.Open connectionString

sql = "insert into Invoices (Customer, Address) values(G6, G7)"

con.Execute sql

MsgBox "Values entered", vbInformation

con.Close

Set con = Nothing

End Sub

但是，当我运行它时，我收到运行时错误 '-2147217904 (80040e10)';输入的参数太少。 我不太确定这是什么。 有什么想法或建议吗？非常感谢！

Answer 1

我认为问题是您试图获取 INSERT 查询中单元格 G6 和 G7 的值。您需要将它们连接到插入查询中。

sql = "insert into Invoices (Customer, Address) " & _
    "values('" & Range("G6") & "', '" & Range("G7") & "')"

以这种方式构建 sql 命令会使您容易受到 SQL 注入的攻击。更好的替代方法是使用参数化查询。

Dim cmdInsert As New ADODB.Command
With cmdInsert
    .Prepared = True
    .CommandType = adCmdText
    .CommandText = "INSERT INTO Invoices (Customer, Address) VALUES (?, ?)"
    Set .ActiveConnection = con
End With

cmdInsert.Parameters(0).Value = Range("G6").Value
cmdInsert.Parameters(1).Value = Range("G7").Value
cmdInsert.Execute

您还应该使用 Jet 驱动程序来连接，而不是 ODBC 驱动程序。请改用此连接字符串。

"Provider=Microsoft.Jet.OLEDB.4.0;Data source=c:\Users\Public\Public Desktop\InvoiceRecords.mdb;"