如何获得 ODBC 刷新以触发 vb 代码答案

【问题标题】：How do i get an ODBC refresh to trigger vb code如何获得 ODBC 刷新以触发 vb 代码
【发布时间】：2020-03-23 13:59:19
【问题描述】：

我有一个名为“Parcel Picks by Hour”的 odbc 连接，它每 15 分钟自动运行一次。我想运行一个脚本，在刷新事件完成后发送一封包含更新数据的电子邮件。我发现的所有代码都不成功。因为计时器已经内置在 ODBC 中，所以我不需要刷新连接然后发送电子邮件的代码，我只希望刷新触发代码运行。

【问题讨论】：

您能否添加一些有关连接的详细信息以及不适合的代码。我想知道你尝试了什么，省得我尝试一些已知不起作用的东西:)
它是一个 oracle 数据库连接，每 15 分钟运行一次基本 sql。我想要一些将在该连接刷新时触发的代码。它是我的仓库中运行未结订单的旺季的报告。刷新数据后，我有一个宏，当我不在这里时，它将通过电子邮件发送给我所有的上级。我只是想不出触发宏的代码。我已经尝试过更改宏，但有一些连接，所以我每 15 分钟就会发送一次垃圾邮件。
你看过事件下沉吗？您可以使用withevents 创建“自定义”连接。我会添加一个关于如何做的答案，但你需要自己玩，因为这只是一个想法，因为你没有发布代码，所以看不到连接设置。
我不认为那是我需要走的路线，连接已经建立并且工作正常。此外，当尝试运行此代码时，我得到用户定义的类型未定义错误。我将在下面发布连接详细信息。
DRIVER={Oracle in OraClient11g_home1};SERVER=********;UID=*********;PWD=********; DBQ=*******;DBA=W;APA=T;EXC=F;XSM=默认值;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T; BTD=F;BNF=F;BAM=IfAllSuccessful;NUM=NLS;DPM=F;MTS=T;MDI=Me;CSR=F;FWC=F;FBS=60000;TLO=O;MLD=0;ODA= F;

标签： excel vba events odbc refresh

【解决方案1】：

不是一个答案一个想法

像这样创建一个类，我叫我的clsCustomConnection

Private WithEvents cn As ADODB.Connection

Public Sub Initialise(cnADO As ADODB.Connection)
    Set cn = cnADO
End Sub

Private Sub cn_ExecuteComplete(ByVal RecordsAffected As Long, ByVal pError As ADODB.Error, _
                        adStatus As ADODB.EventStatusEnum, ByVal pCommand As ADODB.Command, _
                        ByVal pRecordset As ADODB.Recordset, ByVal pConnection As ADODB.Connection)

    '   Email function
    MyEmailFunction ("VBAEventExample.co.uk")

End Sub

然后在一个普通的模块中，像这样

Public CustomADOConnection As clsCustomConnection

Sub setupADOconnection()

    Dim ADOConn1 As New ADODB.Connection

    '   Set up connection
    ADOConn1.ConnectionString = ""
    ADOConn1.CursorLocation = adUseClient

    '   Sink to custom connection
    Set CustomADOConnection = New clsCustomConnection
    CustomADOConnection.Initialise ADOConn1

End Sub

【讨论】：