Question

您好我正在尝试将Excel工作表移动到Access数据库，这两个数据库都具有相同的字段名称。该代码是用Excel编写的。

用户输入多个表单字段，单击完成后，将更新单独的工作表。然后，调用更新Access子例程以使用工作表的内容更新数据库。但是我继续收到以下错误：

运行时错误'-2147417848（80010108）'：自动化错误调用的对象已与其客户端断开连接。

我用Google搜索了错误，无法看清楚发生了什么。这是我的代码：

Sub Update_Access_fromExcel()

'将活动工作表中的数据导出到Access数据库中的表

Dim cn As ADODB.Connection, rs As ADODB.Recordset, r As Long

' Connect to Access database
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0; " & "Data Source=D:\Tool_Database\Tool_Database.mdb;"

' open the recordset
Set rs = New ADODB.Recordset
rs.Open "Project_Names", cn, adOpenKeyset, adLockOptimistic, adCmdTable
r = 2
Do Until IsEmpty(Worksheets("NewProj").Cells(r, 1))
    With rs
        .AddNew
        .Fields("Proj_Name") = Worksheets("NewProj").Cells(r, 1).Value
        .Update
    End With
    r = r + 1
Loop

rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing

End Sub

另外，有没有办法将新信息添加到Access数据库的末尾？

感谢您的帮助。

将Excel工作表移动到Access时出现VBA错误

0 个答案: