web-dev-qa-db-ja.com

MS Accessのすべてのレコードをループするコード

データを抽出できるように、テーブル内のすべてのレコードをループ処理するコードが必要です。これに加えて、フィルタリングされたレコードをループして、データを抽出することも可能ですか？ありがとう！

ms-accessvba
40
Ali

かなり標準的なDAOレコードセットループでこれを行うことができるはずです。次のリンクでいくつかの例を見ることができます：
http://msdn.Microsoft.com/en-us/library/bb243789%28v=office.12%29.aspx
http://www.granite.ab.ca/access/email/recordsetloop.htm

私自身の標準ループは次のようになります。

Dim rs As DAO.Recordset
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Contacts")

'Check to see if the recordset actually contains rows
If Not (rs.EOF And rs.BOF) Then
    rs.MoveFirst 'Unnecessary in this case, but still a good habit
    Do Until rs.EOF = True
        'Perform an edit
        rs.Edit
        rs!VendorYN = True
        rs("VendorYN") = True 'The other way to refer to a field
        rs.Update

        'Save contact name into a variable
        sContactName = rs!FirstName & " " & rs!LastName

        'Move to the next record. Don't ever forget to do this.
        rs.MoveNext
    Loop
Else
    MsgBox "There are no records in the recordset."
End If

MsgBox "Finished looping through records."

rs.Close 'Close the recordset
Set rs = Nothing 'Clean up
90
HK1

「参照」で、DAO 3.6オブジェクト参照をインポートします。

private sub showTableData

dim db as dao.database
dim rs as dao.recordset

set db = currentDb
set rs = db.OpenRecordSet("myTable") 'myTable is a MS-Access table created previously

'populate the table
rs.movelast
rs.movefirst

do while not rs.EOF
   debug.print(rs!myField) 'myField is a field name in table myTable
   rs.movenext             'press Ctrl+G to see debuG window beneath
loop

msgbox("End of Table")

end sub

クエリやフィルター処理されたテーブルなどのデータオブジェクトをさまざまな方法で相互に関連付けることができます。

スルークエリ：

private sub showQueryData

dim db as dao.database
dim rs as dao.recordset
dim sqlStr as string

sqlStr = "SELECT * FROM customers as c WHERE c.country='Brazil'"

set db = currentDb
set rs = db.openRecordset(sqlStr)

rs.movefirst

do while not rs.EOF
  debug.print("cust ID: " & rs!id & " cust name: " & rs!name)
  rs.movenext
loop

msgbox("End of customers from Brazil")

end sub

また、レコードセットオブジェクトの "Filter"プロパティを探して、目的のレコードのみをフィルタリングし、同じ方法で操作するか（MS-AccessコードウィンドウのVB6ヘルプを参照）、または "QueryDef"オブジェクトを作成して、クエリして、レコードセットとしても使用します（もう少し注意が必要です）。別のアプローチが必要かどうか教えてください。

私が助けてくれたことを願っています。

10
Alex

各ステートメントを説明するコメント付きの良いコードを見つけました。 - accessallinone にあるコード

Sub DAOLooping()
On Error GoTo ErrorHandler

Dim strSQL As String
Dim rs As DAO.Recordset

strSQL = "tblTeachers"
'For the purposes of this post, we are simply going to make 
'strSQL equal to tblTeachers.
'You could use a full SELECT statement such as:
'SELECT * FROM tblTeachers (this would produce the same result in fact).
'You could also add a Where clause to filter which records are returned:
'SELECT * FROM tblTeachers Where ZIPPostal = '98052'
' (this would return 5 records)

Set rs = CurrentDb.OpenRecordset(strSQL)
'This line of code instantiates the recordset object!!! 
'In English, this means that we have opened up a recordset 
'and can access its values using the rs variable.

With rs


    If Not .BOF And Not .EOF Then
    'We don’t know if the recordset has any records, 
    'so we use this line of code to check. If there are no records 
    'we won’t execute any code in the if..end if statement.    

        .MoveLast
        .MoveFirst
        'It is not necessary to move to the last record and then back 
        'to the first one but it is good practice to do so.

        While (Not .EOF)
        'With this code, we are using a while loop to loop 
        'through the records. If we reach the end of the recordset, .EOF 
        'will return true and we will exit the while loop.

            Debug.Print rs.Fields("teacherID") & " " & rs.Fields("FirstName")
            'prints info from fields to the immediate window

            .MoveNext
            'We need to ensure that we use .MoveNext, 
            'otherwise we will be stuck in a loop forever… 
            '(or at least until you press CTRL+Break)
        Wend

    End If

    .close
    'Make sure you close the recordset...
End With

ExitSub:
    Set rs = Nothing
    '..and set it to nothing
    Exit Sub
ErrorHandler:
    Resume ExitSub
End Sub

レコードセットには、データをループするときにEOF（ファイルの終わり）とBOF（ファイルの始まり）の2つの重要なプロパティがあります。レコードセットはテーブルに似ており、1つをループすると、文字通りレコードからレコードへと順番に移動します。レコードを移動すると、EOFプロパティはfalseに設定されますが、最後のレコードを超えようとすると、EOFプロパティがtrueになります。これは、BOFプロパティについても逆の動作をします。

これらのプロパティは、レコードセットの制限に達したときに通知します。

5
Adarsh Madrecha