adodb.command.ectute如果使用新连接，则会失败

Question

如果我创建一个新连接，则第一个调用SQL，无论它是什么，都会失败。

        ConnectionString = CurrentProject.Connection.ConnectionString
        Set connection = New ADODB.connection

        connection.Open ConnectionString  ' Fails here now
    End If
    If connection.STATE = adStateOpen Then
        MsgBox "Success"
    Else
        MsgBox "Failure to communicate"
    End If
    connection.Execute "Select 1 from [System Log] where 1 = 0", , adCmdText Or adExecuteNoRecords

它可以正常工作，则使用“对象变量或未设置块变量”的失败

如果我只使用

 Set connection = CurrentProject.connection

。

连接字符串现在看起来像
提供者= microsoft.ace.oledb.12.0;用户id = admin; data source = c：\ apps \ accessdb.accdb; mode = share none; extended none; extended properties =“”; jet oledb：jet oledb：jet ole database = c：\ users \ users \ users \ users \用户\ appdata \ roaming \ Microsoft \ Access \ System.mdw; Jet OLEDB：注册表路径= Software \ Microsoft \ Office \ Office \ 16.0 \ Access \ Access \ Access \ Access Connectivition Engine; Jet oledb：jet Base oledb：database password =“ ; JET OLEDB：数据库锁定模式= 1; Jet OLEDB：全局部分散装OPS = 2; Jet OLEDB：全局散装交易= 1; Jet OLEDB：JET OLEDB：新数据库密码=“”; Jet OLEDB：Create System Database = false; jet OLEDB; JET OLEDB ：加密数据库= false; jet OLEDB：不要在compact上复制语言环境= false; jet OLEDB：无复制修复= false; jet oledb; jet oledb：sfp = false; jet OLEDB：支持复杂数据验证= false;喷气OLEDB：有限的db caching = false; jet OLEDB：旁路选择菲尔德验证= false

Answer 1

通常，当您创建一个新连接时，您将尝试连接到外部数据，而ADO则非常适合。
在这种情况下，我想通过现有的本地和链接表进行工作，只是通过单独的连接，以便我可以将所有内容都放在交易中。
我不想使用现有连接，因为有些事情我不想在失败时重新卷起，例如记录。

最后，我无法做到这一点。

我考虑将所有内容移至使用DAO，以使访问本地数据变得容易，但这将是一个巨大的风险变化。

最终版本以另一种方式进行，并将日志记录转换为使用DAO和CurrentDB，而其他所有内容都继续使用ADO和CurrentProject.connection。这样，我只是在连接上设置交易，而无需新的ADODB。