求执行一条SQL语句的使用时间的代码

久石让的粉丝　发表于：2014-07-14 12:50:58 　

复制

求执行一条SQL语句的使用时间的代码

比如：

currentdb.execute "delete * from 表"

查询使用以上代码所花的时间的命令

msgbox "查询用时XXX秒"

Top

蟹仔发表于：2014-07-14 15:06:58

a=second(now())

currentdb.execute "delete * from 表"

b=second(now())-a

msgbox "查询用时"& b & “秒"

Top

网行者发表于：2014-07-15 06:06:11

一、先自定义函数

Function TimeDiff(dtmStart As Date, dtmEnd As Date) As String
Dim t As Long
Dim strTime(3)
t = DateDiff("s", dtmStart, dtmEnd)
strTime(0) = CStr(t Mod 60) & "秒"
strTime(1) = CStr(t \ 60 Mod 60) & "分"
strTime(2) = CStr(t \ 60 \ 60 Mod 24) & "小时"
strTime(3) = CStr(t \ 60 \ 60 \ 24) & "天"

Dim I As Integer
For I = 0 To 3
If Left(strTime(i), 1) = "0" Then
strTime(i) = ""
End If
Next

TimeDiff = strTime(3) & strTime(2) & strTime(1) & strTime(0)

End Function

二、执行SQL语句时加入代码

startTime=now()

currentdb.execute "delete * from 表"

msgbox "查询用时" & TimeDiff(startTime,now())

Top

总记录：2篇页次：1/1 9 1 :

Access交流中心

求执行一条SQL语句的使用时间的代码