The SedonaOffice company database contains a stored procedure, Milestone, that can be used to add tracking information to the Milestone_Tracking table. (This stored procedure will create the table if it does not already exist.) This is useful for tracing through the code to determine when an error occurs, especially if you are unable to use the debugger to trap the error, for example, if the error only occurs on a customer's system.
The SedonaOffice VB6 project contains the Milestone_Tracking class that executes the Milestone_Tracking stored procedure to add a tracking record. Below is a block of example code that demonstrates how to initialize the class and add a tracking record.
‘ Create the class and establish a connection to the databaseDim clsMilestone As New Milestone_TrackingSet clsMilestone.ActiveConnection = asConnection(mCompany)‘ Write a tracking record to the databaseclsMilestone.Track 1, 1, "Tracking information", “Tracking comment”
