VB6 Add-Ins E.g. Class Builder
20-Aug-0909 Leave a comment
Normally located here:
C:\Program Files\Microsoft Visual Studio\VB98\Wizards\
Then
CLSSBLD.DLL
Run regsvr32.exe on these
API Viewer is in there somewhere
IT and business subjects
20-Aug-0909 Leave a comment
11-Aug-0909 Leave a comment
Either Dim object as New instance inside loop. Then set to Nothing before next loop.
Do Until rsTD.EOF
Dim cTimeSheet As New clsTimeSheet
cTimeSheet.Employee.EmpeeNo = rsTD!EmpeeNo
Call cJS.colTimeSheets.AddTimeSheet(cTimeSheet, lngMaxEmp)
Set cTimeSheet = Nothing
rsTD.MoveNext
Loop
Or following with or without first New
Dim cTimeSheet As New clsTimeSheet
Do Until rsTD.EOF
Set cTimeSheet = New clsTimeSheet
cTimeSheet.Employee.EmpeeNo = rsTD!EmpeeNo
Call cJS.colTimeSheets.AddTimeSheet(cTimeSheet, lngMaxEmp)
rsTD.MoveNext
Loop