ADODB.RecordSetからテーブルの情報を取得する方法は何ですか？

2年 ago
綾乃, 一希
1 minute

VBで、ADODB.Recordsetオブジェクトをループしてテーブルの情報を取得することができます。以下は、Recordsetからテーブルの情報を取り出す方法を示すサンプルコードです。

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

' 建立数据库连接
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\your_database.mdb;"

' 执行SQL查询并将结果存储在Recordset中
rs.Open "SELECT * FROM your_table", conn

' 遍历Recordset并获取表的信息
Do While Not rs.EOF
    ' 获取每一行记录的字段值
    Dim fieldValue As String
    fieldValue = rs.Fields("your_field_name").Value
    
    ' 处理获取到的字段值
    ' ...
    
    ' 移动到下一条记录
    rs.MoveNext
Loop

' 关闭Recordset和数据库连接
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing

上記のコードではまず、ADODB.Connectionオブジェクトconnが作成され、Openメソッドを使用してデータベース接続が開かれました。次に、ADODB.Recordsetオブジェクトrsが作成され、Openメソッドを使用してSQLクエリが実行され、結果がRecordsetに保存されました。その後、Do Whileループを使用してRecordset内の各行のレコードを取得し、Fieldsプロパティを使用して各行のフィールド値を取得しました。各レコードに対して必要に応じて処理を行うことができます。1つのレコードの処理が完了すると、MoveNextメソッドを使用してRecordsetを次のレコードに移動し、rs.EOFがTrueになるまで、つまり全体のRecordsetを繰り返し処理します。最後に、Recordsetとデータベース接続を閉じ、リソースを解放します。

上記の例では、Microsoft Accessデータベース（.mdbファイル）が使用されていることを前提としています。他の種類のデータベースを使用する場合は、接続文字列を変更する必要があります。また、テーブル構造やフィールド名に応じて、SQLクエリやフィールド値の取得コードを修正する必要があります。

bannerAds