数据表有新增记录时会发送什么消息？？？

Question

我这样写的代码，往数据表tbla插入记录时没有反应，当退出程序时有响应Dim WithEvents RSTest As ADODB.Recordset
Dim Conn As New ADODB.Connection
Private Sub Form_Load()
    Dim strConnect As String
    strConnect = "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=test"
    Conn.Open strConnect
    Set RSTest = New ADODB.Recordset
    
    RSTest.Open "select * from tbla", Conn
    
End SubPrivate Sub Form_Unload(Cancel As Integer)
    RSTest.Close
    Conn.Close
    Set RSTest = Nothing
    Set Conn = Nothing
End SubPrivate Sub RSTest_RecordsetChangeComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
    MsgBox adStatus & "RSTest_RecordsetChangeComplete"
End Sub

Answer 1

我是这样作的，运行上面那段程序，然后到数据库里面往tbla表插入一条记录，而我刚才运行的程序没有反应