咔咔 问题解决了 Private WithEvents gAdodc As AdodcPrivate Sub gAdodc_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset) MsgBox pRecordset.Fields("name") End SubPrivate Sub Form_Load() Set gAdodc = Adodc1 End Sub
道理我知道阿,可是怎么弄呢?我知道delphi的方法是:
mybotton := TButton.Create(nil);
mybotton.parent := form1;
mybotton.onClick := mybuttonclick;//(mybuttonclick为事先定义好的事件)
就可以了,但现在要用VB,各位大虾多多指教啊。
问题解决了
Private WithEvents gAdodc As AdodcPrivate Sub gAdodc_MoveComplete(ByVal adReason As ADODB.EventReasonEnum, ByVal pError As ADODB.Error, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)
MsgBox pRecordset.Fields("name")
End SubPrivate Sub Form_Load()
Set gAdodc = Adodc1
End Sub