ray88’s diary

お仕事で困ったとき用の自分用の覚書

2020-07-19から1日間の記事一覧

ADOでレコードセットで取得したデータをエクセルにコピペする。

■構文 オブジェクト:取り込み先のセルのオブジェクト データ:Recordsetオブジェクト オブジェクト.CopyFromRecordset Data:=データ (例)サンプルコード Sub copyFromRecordset() Dim adoCn As Object Dim adoRs As Object Dim strSQL As String Set adoC…

ACCESS VBA ADO レコードセットの取得(遅延バインディング編)

■方法1:RecordSetオブジェクトのOpenメソッドを使用する 引数①ソース(テーブル名、クエリ名、SQLステートメント等を指定) 引数②CN(Connectionオブジェクトを指定) 引数③カーソルタイプ(CusorTypeプロパティの値を指定) 引数④ロックタイプ(LockTYpe…

Access VBA ADO データベースに接続する(遅延バインディング)

【カレントデータベースに接続する場合】 Sub adoTest() Dim adoCn As Object 'ADOコネクションオブジェクト 'AccessVBAで現在のデータベースへ接続する場合 Set adoCn = CurrentProject.Connection adoCn.Close Set adoCn = Nothing End Sub 【カレント以外…