dim rst as recordset
dim rst1 as recordset
dim t1 as single
dim t2 as single
dim t3 as single
t1=timer()
set rst = currentdb.openrecordset("SELECT t1.p2, t2.p2 FROM t1,t2 WHERE t1.p1 = t2.p1")
t2=timer()
set rst1 = currentdb.openrecordset("SELECT t1.p2, t2.p2 FROM t2 INNER JOIN t1 ON t2.p1 = t1.p1")
t3=timer()
'msgbox "первый: " & t2-t1 & ", второй: " & t3-t2
msgbox "быстрее " & iif(t2-t1 > t3-t2, "первый", "второй") & " на " & abs(t1 + t3 - 2*t2) & "c"
|