Microsoft Access Club >ADO入門講座 >このページ >次頁 < 前項  サイト内検索
 

Bookmarkプロパティ : ADO入門講座



Recordsetオブジェクトを作成すると、各レコードには固有の識別コードが付与され、この識別コードがブックマークと呼ばれます。

留意点
  • Bookmarkプロパティは、Recordsetオブジェクトで管理されています。
  • Bookmarkプロパティは、値の代入、値の参照が可能です。
  • Bookmarkプロパティのデータ型は、バリアント型(Variant)になります。
  • Bookmarkプロパティを利用すると、元のレコードに戻ることが可能です。
    このことからも、日本語で「しおり」と訳されます。

Bookmarkプロパティの構文

Recordsetオブジェクト + .(ドット) + Bookmarkプロパティ = Value の組み合わせになります。

項目 意味
Recordsetオブジェクト 開いているRecordsetオブジェクト
Value ブックマーク
補足
  • Bookmarkプロパティの使い方は、プロシージャ内で該当レコードのBookmarkを保存します。
  • 保存したBookmarkをBookmarkプロパティに代入することで、カレントレコードを該当レコードに移動せることができます。

売上げ管理テーブルの作成

以下のようなサンプルテーブルを作成します。

売上日 社員名 性別 売上額 職種
2004/01/23 橘 修平 男性 52100 一般職
2004/02/04 柴田 喜一 男性 654100 技能職
2004/02/04 柴田 喜一 男性 7892510 技能職
2004/03/25 正道 良一 男性 4875210 薬剤師
2004/04/30 田中 邦子 女性 785100 一般職
2004/04/30 田中 邦子 女性 4789210 一般職
2004/07/29 草薙 良子 女性 120310 医師
2004/08/10 田中 幸恵 女性 7986620 一般職
2004/09/30 中村 幸三 男性 477123 技能職

Subプロシージャの作成

先頭のレコードデータをBookMarkプロパティを用いて変数に保存します。

Sub ADORecordsetBookmark()

    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim varBM As Variant
    Dim mySQL As String
    
    Set cn = CurrentProject.Connection
    Set rs = New ADODB.Recordset
    
    mySQL = "SELECT 売上げ管理.* FROM 売上げ管理 " _
            & "ORDER BY 売上額 DESC;" ' --- A

    rs.Open mySQL, cn, adOpenKeyset, adLockOptimistic
    varBM = rs.Bookmark ' --- B
    
    Debug.Print "売上げ一覧表"
    Do Until rs.EOF
        Debug.Print rs!売上日, rs!社員名, rs!性別, rs!売上額
        rs.MoveNext
    Loop
    
    rs.MovePrevious ' --- C
    rs.Bookmark = varBM ' --- D
    Debug.Print "No1の売上げ、" & rs!売上日 & "の" & _
                 rs!売上額 & "円です。"
    
    rs.Close: Set rs = Nothing
    cn.Close: Set cn = Nothing

End Sub
解説
  1. 売上額フィールドの降順に並び替えた選択クエリのSQLを定義します。
  2. Bookmarkプロパティを用いて先頭レコード(カレントレコード)を登録します。
  3. EOFプロパティがFalseに一旦変化したので、カレントレコードを有効にしています。
  4. 登録してある、Bookmarkプロパティから値を引き出します。
実行結果

イミディエイト画面上で実行すると、下記のレコードが表示されます。

関連ページ

2004/09/10

ページの先頭へ 前ページへ戻る


Bookmarkプロパティ : ADO入門講座


 

-Microsoft Access Club-

cPanel管理者用コンパネWHMの操作管理手順を発信しています。
cPanel管理者用コンパネ「WHM」の操作管理手順を発信中・・・。