'A
Set rs = dbs.OpenRecordset("select * from tbl01 WHERE Code = 1000 Order by FDate DESC;")
'B
Set rs = dbs.OpenRecordset("select * from tbl01 WHERE Code = 1000;")
rs.Sort = "FDate DESC"
Set rs = rs.OpenRecordset
以前の投稿で触れていた内容だろう。Access 2010 SP1 – You receive random crashes in certain database or when opening the VBA window in those databases after installing Office 2010 SP1
VBEがクラッシュしますよという現象。バックアップとってデコンパイルしてねと言っている。Access 2010 SP1 – Reports that are opened programmatically are no longer showing the expected filtered set of records
Openイベントでレコードソースを設定や変更をしているレポートを開く場合、WhereConditionが適用されないってことだった。
<ホスト>
E8400/vhdはHDD上に配置
<ゲスト>
Win7(32/64)/XPにaccess2010(32/64)
Memory:4GBでCPUを1 or 2
Option Compare Database
Option Explicit
Declare PtrSafe Function GetTickCount Lib "kernel32" () As Long
Sub test0()
Dim i As Long, Counts As Long
For i = 1 To 10
Counts = test
Debug.Print i, Counts
Next
Debug.Print Now
End Sub
Function test() As Long
Dim dbs As DAO.Database, rs As DAO.Recordset, i As Long
Set dbs = CurrentDb
i = GetTickCount
Set rs = dbs.OpenRecordset("select * from tbl01 WHERE Code = 1000 Order By FDate desc;")
Do Until rs.EOF
rs.MoveNext
Loop
rs.Close: Set rs = Nothing
dbs.Close: Set dbs = Nothing
test = GetTickCount - i
End Function
Win7+access2010/Win7+access2007/Win7(64)+access2010(64)で計200回のOpenRecordSetを実行した時の結果。64bitではないということなのか、コアが1ということなのか、VPC上では安定した結果になった。
今回試してみたこと。
<環境>
<手順>
- OS:Win7 CPU:Core i7 860 Memory:8GB Storage:Intel SSD(MLC)
- 500万件のレコードから約5000件抽出し日付フィールドでソート
- フィルタフィールドとソートフィールドは、重複ありインデックス
この手順を、
- OpenRecordSetを実行するプロシージャ25回繰り返し
- このプロシージャを手動で4回繰り返し
- いったん閉じて再び開いて同様に繰り返す。
- 合計200回OpenRecordSet
で計測
- プロセッサの関係の設定で1仮想コアと8仮想コア
- 同マシン上のVirtualPC(32bit/1コア)
ちょっと次に続きそうな結果になった。
SP1適用前に製造されたAccessアプリケーションをSP1適用済み環境で実行した時、ちょっと調子が悪いことがあるように見受けられる。
SP1自体はこれまで(2011/6月分だっけか)の累積アップデートとセキュリティアップデートの集合体なので適用させることを推奨するとMSは言っていたはず。まぁ、小職もそう思う。でもVBA7.dllも更新さてれいるわけだから、手放しで大丈夫とはならない場合もあるのかなと。
要はWizardの本体であるaccdeファイルがSP1適用以前でコンパイルされたものであるゆえウィザードが実行されないのではないかという投稿が、
Access 2010 - Wizards not working after installing SP1
にてされているからちょっと待ってね的内容なのだろう、FMS/Luke Chungがコメントしていることから、まぁ間違いなく発生している事象なのでしょう。
でも、必ず発生する事象ではないような気がする。
MVP 審査応募ページ～ 求む、日本のMVP。
いっちょやってみる?
んと、なぜこの投稿をするかというと、いわゆる国内のAccess MVPが圧倒的に少数だから。2011/7時点、全世界でAccess MVPは81名だそうです。うち国内は1名。俺だけかよってことなんです。ぼっちは慣れっこだけどちょっとさびしいかなと。まぁそれだけです。で、受賞でこれはありがたいなぁと思ったことをぽつぽつと。
日付時間を表す文字以外に特定の文字があると意図しない日付時間を入力したとみなされるときがある。
アカウントによっては期限切れになる日付が違うようだけど、8月後半には終了の模様。