Optimize プロパティの例 (VB)

この例では、Field オブジェクトのダイナミック Optimize プロパティの機能を示します。Pubs データベース内の Authors テーブルの zip フィールドには、インデックスが作成されていません。zip フィールドの Optimize プロパティを True に設定すると、ADO によってインデックスが作成され、Find メソッドのパフォーマンスが向上します。

Sub Main()
    OptimizeX
End Sub

Public Sub OptimizeX()
Dim rst As ADODB.Recordset

Set rst = New ADODB.Recordset
rst.CursorLocation = adUseClient        'Enable index creation
rst.Open "SELECT * FROM Authors", _
            "DSN=Pubs;Provider=MSDASQL;uid=sa;pwd=;", _
            adOpenStatic, adLockReadOnly, adCmdText
rst!zip.Properties("Optimize") = True   'Create the index
rst.Find "zip = '94595'"                'Find Akiko Yokomoto
Debug.Print rst!au_fname & " " & rst!au_lname & " " & _
            rst!address & " " & rst!city & " " & rst!State
rst!zip.Properties("Optimize") = False  'Delete the index

rst.Close
End Sub