我有一个名为“按小时分拣包裹”的odbc连接,该连接每15分钟在一个自动运行计时器上。我想运行一个脚本,在刷新事件完成后发送包含更新数据的电子邮件。我发现的所有代码都不成功。因为计时器已经内置在ODBC中,所以我不需要刷新连接的代码,然后发送电子邮件,我只希望刷新触发代码运行。
tangtang851130 回答:我如何获得ODBC刷新以触发VB代码
没有答案
创建一个类似这样的类,名为我的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