?? mdprocachesizex.htm
字號:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<HTML dir=ltr>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html; charset=gb2312"><title>CacheSize 屬性范例</title>
<style>@import url(msdn_ie4.css);</style>
</HEAD>
<BODY>
<h3><a name="mdprocachesizex"></a>CacheSize 屬性范例</h3>
<p>
該范例使用 <b>CacheSize</b> 屬性，說明當使用和不使用記錄數為 30 的緩存時，所執行的操作在性能上的差別。</p>
<pre>Public Sub CacheSizeX() Dim rstRoySched As ADODB.Recordset
Dim strCnn As String
Dim sngStart As Single
Dim sngEnd As Single
Dim sngNoCache As Single
Dim sngCache As Single
Dim intLoop As Integer
Dim strTemp As String ' 打開 RoySched 表。
strCnn = "Provider=sqloledb;" & _
"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "
Set rstRoySched = New ADODB.Recordset
rstRoySched.Open "roysched", strCnn, , , adCmdTable ' 枚舉記錄集對象兩次并記錄經歷的時間。
sngStart = Timer For intLoop = 1 To 2
rstRoySched.MoveFirst Do While Not rstRoySched.EOF
' Execute a simple operation for the
' performance test.
strTemp = rstRoySched!title_id
rstRoySched.MoveNext
Loop
Next intLoop sngEnd = Timer
sngNoCache = sngEnd - sngStart ' 以 30 個記錄為一組緩存記錄。
rstRoySched.MoveFirst
rstRoySched.<span class=cfe><b>CacheSize</b></span> = 30
sngStart = Timer ' 枚舉記錄集對象兩次并記錄經歷的時間。
For intLoop = 1 To 2 rstRoySched.MoveFirst
Do While Not rstRoySched.EOF
' 執行一個簡單操作，進行性能測試。
strTemp = rstRoySched!title_id
rstRoySched.MoveNext
Loop
Next intLoop sngEnd = Timer
sngCache = sngEnd - sngStart ' 顯示性能結果。
MsgBox "Caching Performance Results:" & vbCr & _
" No cache: " & Format(sngNoCache, _
"##0.000") & " seconds" & vbCr & _
" 30-record cache: " & Format(sngCache, _
"##0.000") & " seconds"
rstRoySched.CloseEnd Sub</pre>
<center> <A HREF="http://www.51windows.Net">www.51windows.Net</A></center>
<SCRIPT LANGUAGE="JavaScript" src="/log/sitelog2.asp"></SCRIPT>
<script src="script.js"></script></BODY>
</HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -