Question

我有一本excel工作簿，作为日常工作的一部分，我必须从Outlook中导入一些数据，这是我使用VBA设法完成的。我将代码放在Outlook中，并生成了一个excel文件，并生成了输出。现在必须将此结果输出导出到保存在服务器上的访问数据库中。在为Outlook编写代码时，我将excel文件与Access数据库保存在同一服务器上，以避免连接中断。

我已经在此excel文件上做了一个按钮，以将数据导入到访问数据库中，但是每当我尝试运行代码时，记录集打开命令都会出现错误。

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

Set Cn = New ADODB.Connection

    Cn.Provider = "Microsoft.Jet.OLEDB.4.0;"
    Cn.Properties("Jet OLEDB:System database") = "\\statr9500\GIS_11112013\Triumph GIS\triumph.mdw"
    Cn.Properties("Password") = Pwd
    Cn.Properties("User Id") = Usrname
    Cn.Open "Data Source=\\statr9500\GIS_11112013\Triumph GIS\Property Innovation - Final 1.mdb;"
MsgBox "Start"

    ' open a recordset
    Set rs = New ADODB.Recordset
    'tab_Work_Log

    rs.Open "tab_Work_log", Cn, adOpenKeyset, adLockOptimistic, adCmdTable

    ' all records in a table
    r = 9 ' the start row in the worksheet
    Do While Len(Range("A" & r).Formula) > 0

此行出现错误

rs.Open "tab_Work_log", Cn, adOpenKeyset, adLockOptimistic, adCmdTable

这是一个运行时错误，提示：

运行时错误'-2147467259（80004005）'：ODBC与“服务器名称”的连接失败

任何帮助将不胜感激

运行时错误“ -2147467259（80004005）”：到“服务器”的ODBC连接失败

0 个答案: