Copy Code
|
|
---|---|
Public Sub AddAuditRecord() ' Adding an audit record Dim ARAdder As IAuditRecordAdder Dim ARData As AuditRecordData ' retrieve the AuditRecordAdder from the connection Set ARAdder = tdc.AuditRecordFactory ' create an instance of AuditRecordData Set ARData = New AuditRecordData ' fill the new AuditRecordData object with data ARData.action = "CA_TestAction" ARData.entityID = "10" ARData.entityType = "TEST" ARData.Description = "This is a test of IAuditRecordAdder." ' create new Audit Record by passing the AuditRecordData object to the AuditRecordAdder ' Note: the invocation of AddAuditRecord causes immediate roundtrip ARAdder.AddAuditRecord ARData End Sub |