'sample of work with 'IBPSamples.TThreadTimerNT'
'required NT-system
'1 download _ibp_sample_obj.dll from www.ibprovider.com
'2 execute: regsvr32 _ibp_sample_obj.dll
'3 add in your VB-project the reference to 'LCPI - IBProvider Samples' library

Function sample_9_3_build_time(time As IBPSamples.TThreadTime) As String
 Dim s As String

 s = CStr(time.Fraction)

 While Len(s) < 7
  s = "0" + s
 Wend
 
 sample_9_3_build_time = CStr(time.Seconds) + "." + s + " sec"
End Function 'sample_9_3_print_thread_time

Sub sample_9_3()
 'large table
 Const c_table_name As String = "people"

 Dim cn              As New ADODB.Connection
 Dim thread_timer    As New IBPSamples.TThreadTimerNT
 
 cn.Provider = "LCPI.IBProvider"
 cn.Open "data source=st33:e:\database\new_db57.gdb;ctype=win1251", "gamer", "vermut"
 
 Debug.Print cn.Properties("Provider Name")
 Debug.Print cn.Properties("Provider Version")
 
 cn.BeginTrans
 
 Dim rs As ADODB.Recordset
 Set rs = New ADODB.Recordset
 
 '----------------------------------------
 Debug.Print "Fetch each row"
 
 rs.Open c_table_name, cn, adOpenKeyset, adLockReadOnly
 
 Call thread_timer.Start(True)
 
 While Not rs.EOF
  rs.MoveNext
 Wend
 
 Call thread_timer.Stop
 
 rs.Close
 
 Debug.Print "Total Time:" & sample_9_3_build_time(thread_timer.TotalTime)
 
 '---------------------------------------
 Debug.Print "MoveLast"
 
 rs.Open c_table_name, cn, adOpenKeyset, adLockReadOnly
 
 Call thread_timer.Start(True)
 
 rs.MoveLast
 
 Call thread_timer.Stop
 
 Debug.Print "Total Time:" & sample_9_3_build_time(thread_timer.TotalTime)
 
 '----------------------------------------
 Debug.Print "fetch each row in local buffer"
 
 rs.MoveFirst
 
 Call thread_timer.Start(True)
 
 While (Not rs.EOF)
  rs.MoveNext
 Wend
 
 Call thread_timer.Stop
 
 Debug.Print "Total Time:" & sample_9_3_build_time(thread_timer.TotalTime)
 
End Sub 'sample_9_3