Recordset オブジェクトの内容をワークシートにコピーする(CopyFromRecordset メソッド・ADO)
CopyFromRecordset メソッド
ADO の Recordset オブジェクトに格納されている全てのレコードをワークシートにコピーします。指定されたセル範囲の左上端を起点として、データを貼り付けます。
RecordCount = object.CopyFromRecordset ( Data, MaxRows, MaxColumns )
引数・戻り値
- object ・・・ 対象となる Range オブジェクトを指定します。
- Data ・・・ コピーする Recordset オブジェクト を指定します(省略不可)。
- MaxRows ・・・ コピーするレコードの最大数を指定します。省略した場合、Recordset オブジェクトのすべてのレコードをコピーします。
- MaxColumns ・・・ コピーするフィールドの最大数を指定します。省略した場合、Recordset オブジェクトのすべてのフィイールドをコピーします。
- RecordCount ・・・ コピーしたレコード数。
コピーは Recordset オブジェクトのカレントレコードの位置から行われます。コピーが完了すると、Recordset オブジェクトの EOF プロパティは True になります。
CopyFromRecordset メソッドの使用例
サンプルVBAソース
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 |
Sub Sample_ADO_CopyFromRecordset() '参照設定:Microsoft ActiveX Data Objects 6.1 Library Dim cn As ADODB.Connection Dim Rs As ADODB.Recordset Dim constr As String Dim DBFile As String Dim strSQL As String Dim num As Long DBFile = ActiveWorkbook.Path & "\mydb1.accdb" constr = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & DBFile Set cn = New ADODB.Connection cn.ConnectionString = constr cn.Open strSQL = "Select * from 社員名簿 where ID < 10 order by ID;" Set Rs = New ADODB.Recordset Rs.Source = strSQL Rs.ActiveConnection = cn Rs.Open With Worksheets("Sheet1") .Cells.Clear num = .Range("A1").CopyFromRecordset(Data:=Rs) .Cells(.Rows.Count, "A").End(xlUp).Offset(2, 0).Value = "レコード数" .Cells(.Rows.Count, "A").End(xlUp).Offset(0, 1).Value = num End With Rs.Close Set Rs = Nothing cn.Close Set cn = Nothing End Sub |
実行結果
関連記事
-
-
レコードの削除(ADO)Delete メソッド
データベースのレコードを削除する Delete メソッド カレントレコードを削除 …
-
-
データベース(Oracle)に接続する(ODBC を使用)
ODBC接続(ADO) ADOで、ODBC(Open Database Conn …
-
-
SQL文を実行する(ADO)Execute メソッド
Command オブジェクトの Execute メソッドで、SQL文を実行 Co …
-
-
データベース(MySQL)に接続する(ADO)
MySQL ODBCドライバ Windowsには標準で、いくつかの ODBC ド …
-
-
クエリにパラメータを渡して結果を取得する(ADO)Command オブジェクト・Execute メソッド
クエリにパラメータを渡して結果を取得する手順 Command オブジェクトの作成 …
-
-
Excel VBA のクラスを使ってデータベースへ接続する(ADO)
データベースの処理をクラスモジュールに書く ExcelVBAで、クラス使用する方 …
-
-
データベース(Access 等)に接続(ADO)
ADO で、データベースに接続 外部データベースを操作する方法のひとつに ADO …
-
-
データベース(SQL Server)に接続する(ADO)
データベース(SQL Server)に接続 ODBC または OLE DB で接 …
-
-
トランザクション(ADO)BeginTrans、CommitTrans、RollbackTrans
ADO でのトランザクション処理 【書式】 Sub Sample_Transac …
-
-
フィールド名(ADO)Fields コレクション
Fields コレクション Recordset オブジェクト内の1つ以上の列(フ …