【特集】ADOのRecordset オブジェクトを極めよう

Sub CheckIfRecordsetIsEmpty()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    ' ADO オブジェクトの初期化
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' 接続文字列の設定 (サンプルとして Access データベースを使用)
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' SQL クエリ (適宜変更してください)
    sql = "SELECT * FROM テーブル名"
    
    ' レコードセットを開く
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
    ' BOF と EOF が両方 True であれば、レコードセットは空です
    If rs.BOF And rs.EOF Then
        MsgBox "レコードセットは空です。", vbInformation, "結果"
    Else
        MsgBox "レコードセットにはデータが含まれています。", vbInformation, "結果"
    End If
    
    ' クリーンアップ
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub FetchDataWithADO()
' ADO オブジェクトを宣言
Dim conn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String

' 新しい接続オブジェクトのインスタンスを作成
Set conn = New ADODB.Connection
' 新しいレコードセットオブジェクトのインスタンスを作成
Set rs = New ADODB.Recordset

' データベース接続文字列 (ここでは例として Access データベースを使用)
' 実際のパス、データベース名、接続設定に応じて調整してください
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

' 接続を開く
conn.Open

' 実行する SQL 文 (例としてテーブルからすべてのレコードを選択)
sql = "SELECT * FROM テーブル名"

' SQL クエリを実行し、レコードセットを開く
rs.Open sql, conn, adOpenStatic, adLockReadOnly

' レコードセットのEOFプロパティをチェックして、全レコードをループ処理
Do Until rs.EOF
' ここで各レコードに対する処理を行う
' 例: フィールドの値を取得して表示
Debug.Print rs.Fields("フィールド名").Value

' 次のレコードに移動
rs.MoveNext
Loop

' レコードセットと接続を閉じる
rs.Close
conn.Close

' オブジェクトの解放
Set rs = Nothing
Set conn = Nothing
End Sub

Sub ShowRecordCount()
    ' ADO オブジェクトを宣言
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    ' 新しい接続オブジェクトのインスタンスを作成
    Set conn = New ADODB.Connection
    ' 新しいレコードセットオブジェクトのインスタンスを作成
    Set rs = New ADODB.Recordset
    
    ' データベース接続文字列
    ' 実際のパス、データベース名、接続設定に応じて調整してください
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 接続を開く
    conn.Open
    
    ' 実行する SQL 文
    sql = "SELECT * FROM テーブル名"
    
    ' SQL クエリを実行し、レコードセットを開く (静的カーソルと読み取り専用ロックを指定)
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
    ' レコードセット内のレコードの総数を取得
    If rs.RecordCount > 0 Then
        MsgBox "レコードの総数: " & rs.RecordCount, vbInformation, "レコード数"
    Else
        MsgBox "レコードが見つかりません。", vbExclamation, "レコード数"
    End If
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", CurrentProject.Connection, adOpenForwardOnly

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", CurrentProject.Connection, adOpenKeyset

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", CurrentProject.Connection, adOpenDynamic

Dim rs As Object
Set rs = CreateObject("ADODB.Recordset")
rs.Open "SELECT * FROM YourTable", CurrentProject.Connection, adOpenStatic

Sub FetchDataWithClientSideCursor()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' クライアントサイドカーソルを使用
    conn.CursorLocation = adUseClient
    
    sql = "SELECT * FROM テーブル名"
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
    ' ここでレコードセットを利用した処理を行う
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub FetchDataWithServerSideCursor()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sql As String
    
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' サーバーサイドカーソルを使用
    conn.CursorLocation = adUseServer
    
    sql = "SELECT * FROM テーブル名"
    rs.Open sql, conn, adOpenDynamic, adLockOptimistic
    
    ' ここでレコードセットを利用した処理を行う
    
    rs.Close
    conn.Close
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub FetchAndDisplayData()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim sqlQuery As String
    Dim ws As Worksheet
    Dim row As Integer
    
    ' 新しい接続とレコードセットオブジェクトのインスタンスを作成
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' 接続文字列の設定 (例として Access データベース)
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    
    ' 接続を開く
    conn.Open
    
    ' SQL クエリ文字列
    sqlQuery = "SELECT * FROM あなたのテーブル名"
    
    ' Source プロパティと接続を使用してレコードセットを開く
    rs.Source = sqlQuery
    rs.Open , conn, adOpenStatic, adLockReadOnly
    
    ' Excel シートの初期化
    Set ws = ThisWorkbook.Sheets("Sheet1")
    ws.Cells.Clear
    row = 1
    
    ' レコードセットをループして、Excel シートにデータを出力
    Do While Not rs.EOF
        For i = 0 To rs.Fields.Count - 1
            ws.Cells(row, i + 1).Value = rs.Fields(i).Value
        Next i
        row = row + 1
        rs.MoveNext
    Loop
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub UseBookmark()
    Dim conn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim myBookmark As Variant
    
    ' 新しい接続とレコードセットオブジェクトのインスタンスを作成
    Set conn = New ADODB.Connection
    Set rs = New ADODB.Recordset
    
    ' 接続文字列の設定 (例として Access データベース)
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' レコードセットの開く
    rs.Open "SELECT * FROM あなたのテーブル名", conn, adOpenKeyset, adLockOptimistic
    
    ' レコードセットを走査し、特定の条件を満たすレコードに到達したら Bookmark を設定
    Do Until rs.EOF
        If rs.Fields("あなたの条件フィールド名").Value = "特定の値" Then
            ' Bookmark を設定
            myBookmark = rs.Bookmark
            Exit Do
        End If
        rs.MoveNext
    Loop
    
    ' 他の処理を行う...
    
    ' Bookmark が設定されていれば、その位置に戻る
    If Not IsEmpty(myBookmark) Then
        rs.Bookmark = myBookmark
        ' Bookmark 位置のレコードに対して何らかの処理を行う
        Debug.Print "戻った位置のレコード: " & rs.Fields("あなたの条件フィールド名").Value
    End If
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

rs.Open Source, ActiveConnection, CursorType, LockType, Options

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' データベースへの接続を開く
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

' レコードセットを開く（パラメータを全て指定）
rs.Open "SELECT * FROM あなたのテーブル名", conn, adOpenStatic, adLockReadOnly, adCmdText

' 処理...

' レコードセットと接続を閉じる
rs.Close
conn.Close

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' データベースへの接続を開く
conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
conn.Open

' レコードセットのプロパティを事前に設定
rs.CursorType = adOpenStatic ' カーソルタイプを静的カーソルに設定
rs.LockType = adLockReadOnly ' ロックタイプを読み取り専用に設定

' レコードセットを開く（Source と ActiveConnection のみを指定）
rs.Open "SELECT * FROM あなたのテーブル名", conn

' レコードセットのデータを処理する...

' レコードセットと接続を閉じる
rs.Close
conn.Close

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' データベースへの接続を開く
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

' 新しいレコードセットのインスタンスを生成
Set rs = New ADODB.Recordset

' レコードセットのプロパティを設定
rs.ActiveConnection = conn
rs.Source = "SELECT * FROM あなたのテーブル名"
rs.CursorType = adOpenStatic
rs.LockType = adLockReadOnly

' レコードセットを開く
rs.Open

' 処理...

' レコードセットと接続を閉じる
rs.Close
conn.Close

rs.Close

Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

' データベースへの接続を開く
conn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"

' レコードセットを開く
rs.Open "SELECT * FROM あなたのテーブル名", conn, adOpenStatic, adLockReadOnly

' レコードセットのデータを操作する処理...

' レコードセットと接続を閉じる
rs.Close
conn.Close

Sub NavigateRecordset()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    
    ' データベース接続文字列の設定
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' SQLクエリの定義 (適宜、あなたのテーブル名やフィールド名に置き換えてください)
    sql = "SELECT * FROM あなたのテーブル名"
    
    ' レコードセットを開く
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
    ' レコードセットの最初のレコードに移動
    rs.MoveFirst
    
    ' レコードセットの末尾に達するまでループ
    Do While Not rs.EOF
        ' 現在のレコードの処理を行う（例: フィールドの値を出力）
        Debug.Print rs.Fields("あなたのフィールド名").Value
        
        ' 次のレコードに移動
        rs.MoveNext
    Loop
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub ReverseNavigateRecordset()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim sql As String
    
    ' データベース接続文字列の設定
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' SQLクエリの定義 (適宜、あなたのテーブル名やフィールド名に置き換えてください)
    sql = "SELECT * FROM あなたのテーブル名"
    
    ' レコードセットを開く
    rs.Open sql, conn, adOpenStatic, adLockReadOnly
    
    ' レコードセットの最後のレコードに移動
    rs.MoveLast
    
    ' レコードセットの先頭に達するまでループ
    Do While Not rs.BOF ' BOF (Beginning Of File) が True になるまで続ける
        ' 現在のレコードの処理を行う（例: フィールドの値を出力）
        Debug.Print rs.Fields("あなたのフィールド名").Value
        
        ' 前のレコードに移動
        rs.MovePrevious
    Loop
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub FindRecord()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim criteria As String
    
    ' データベース接続文字列の設定
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' SQLクエリの定義 (適宜、あなたのテーブル名やフィールド名に置き換えてください)
    rs.Open "SELECT * FROM あなたのテーブル名", conn, adOpenStatic, adLockReadOnly
    
    ' 検索条件の設定 (例: フィールド名が 'あなたの条件フィールド名' でその値が '特定の値')
    criteria = "あなたの条件フィールド名 = '特定の値'"
    
    ' 条件に一致するレコードを検索
    rs.Find criteria
    
    If Not rs.EOF Then
        ' 条件に一致するレコードが見つかった場合
        Debug.Print "見つかったレコード: " & rs.Fields("あなたの条件フィールド名").Value
    Else
        ' 条件に一致するレコードが見つからなかった場合
        Debug.Print "条件に一致するレコードは見つかりませんでした。"
    End If
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub UseCloneMethod()
    Dim conn As New ADODB.Connection
    Dim rsOriginal As ADODB.Recordset
    Dim rsClone As ADODB.Recordset
    
    ' データベース接続文字列の設定
    conn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open
    
    ' 元のレコードセットを開く
    Set rsOriginal = New ADODB.Recordset
    rsOriginal.Open "SELECT * FROM あなたのテーブル名", conn, adOpenStatic, adLockReadOnly
    
    ' 元のレコードセットのクローンを作成
    Set rsClone = rsOriginal.Clone
    
    ' 元のレコードセットの最初のレコードに移動
    rsOriginal.MoveFirst
    Debug.Print "元のレコードセットの最初のレコード: " & rsOriginal.Fields("あなたのフィールド名").Value
    
    ' クローンのレコードセットの最後のレコードに移動
    rsClone.MoveLast
    Debug.Print "クローンのレコードセットの最後のレコード: " & rsClone.Fields("あなたのフィールド名").Value
    
    ' レコードセットと接続を閉じる
    rsOriginal.Close
    rsClone.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rsOriginal = Nothing
    Set rsClone = Nothing
    Set conn = Nothing
End Sub

Sub AddAndUpdateRecord()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim connectionString As String
    Dim sql As String
    
    ' データベース接続文字列の設定
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open connectionString
    
    ' レコードセットを開く（編集可能なキーセットカーソルを使用）
    sql = "SELECT * FROM あなたのテーブル名"
    rs.Open sql, conn, adOpenKeyset, adLockOptimistic
    
    ' AddNew メソッドを使用して新しいレコードを開始
    rs.AddNew
    rs.Fields("あなたのフィールド名1").Value = "新しい値1"
    rs.Fields("あなたのフィールド名2").Value = "新しい値2"
    ' 他のフィールドにも値を設定する場合は、同様に設定します。
    
    ' Update メソッドを使用して新しいレコードをデータベースに保存
    rs.Update
    
    ' オプション: 更新したデータを確認
    rs.MoveLast ' 最新のレコードに移動
    Debug.Print rs.Fields("あなたのフィールド名1").Value
    Debug.Print rs.Fields("あなたのフィールド名2").Value
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub

Sub DeleteRecord()
    Dim conn As New ADODB.Connection
    Dim rs As New ADODB.Recordset
    Dim connectionString As String
    Dim sql As String
    
    ' データベース接続文字列の設定
    connectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\path\to\your\database.accdb;"
    conn.Open connectionString
    
    ' レコードセットを開く（編集可能なキーセットカーソルを使用）
    sql = "SELECT * FROM あなたのテーブル名 WHERE 条件"
    rs.Open sql, conn, adOpenKeyset, adLockOptimistic
    
    ' 条件に一致するレコードがあるか確認
    If Not rs.EOF Then
        ' 条件に一致するレコードを削除
        rs.Delete
        ' 削除を確定するために Update を呼び出す
        rs.Update
    Else
        Debug.Print "削除するレコードが見つかりませんでした。"
    End If
    
    ' レコードセットと接続を閉じる
    rs.Close
    conn.Close
    
    ' オブジェクトの解放
    Set rs = Nothing
    Set conn = Nothing
End Sub