http://blog.moug.net/archives/51335290.htmlにレコードセット
のコピーについて書かれているのですが、フィルターで絞りを
かけた後のレコードセットを別のレコードセットに代入というのは
できないものでしょうか?
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
私はこのような作業が必要なときはSQLをADOのコネクションで実行させています。
CON.EXECUTE "INSERT INTO TABLE2 SELECT FROM TABLE1 WHERE FIELD1 = 'HOGE'"
のような感じで。
No.2
- 回答日時:
WHERE句の後ろにそのフィルタの文字列を入れれば絞り込んだレコードセットになります。
↓フォームモジュールの例
myRS.Open "SELECT * FROM 商品tbl WHERE " & Me.Filter , myCN 'レコードセットを開く
フォームのモジュール以外の時は「Me.Filter」を「Forms!フォーム名.Filter」に変更すると取得できます。
この回答への補足
いい例がありました。
http://www.geocities.jp/cbc_vbnet/ADO/append.html
このような、Tableに基づかないレコードセットを他の
レコードセットにフィルターをかけた後にコピーしたいのです。
例のようにループさせて代入すればいいのですが、
http://blog.moug.net/archives/51335290.html
のようにSetで代入できないものかと思いました。
No.1
- 回答日時:
テーブル名のかわりに、条件を指定したクエリ名、または、SQLのSelect文を指定すれば、抽出されたレコードを対象にできます。
myRS.Open "商品tbl", myCN 'レコードセットを開く
↓
myRS.Open "クエリ名", myCN 'レコードセットを開く
OR
myRS.Open "SELECT * FROM 商品tbl WHERE コード = '0001'", myCN 'レコードセットを開く
こんな感じで。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- その他(Microsoft Office) エクセルマクロ オートフィルターでで選択コピー 2 2022/04/18 11:05
- Visual Basic(VBA) エクセルVBAコピー 2 2022/06/08 21:45
- スーパー・コンビニ 近所のスーパーやコンビニに行く時は お財布(コピー代・買い物)←買い物を頼まれたときだけ。とスマホし 5 2023/06/17 19:31
- 戸籍・住民票・身分証明書 マイナンバーを削り取った場合のデメリットは? 3 2023/02/27 16:22
- Excel(エクセル) エクセルで隣接していない複数のセルをコピーして、その状態(隣接していない)で張り付ける方法 6 2023/08/08 10:53
- JavaScript javascriptのちょっとした動作不良(原因は突き止めたのですが) 1 2023/06/15 19:58
- Windows Vista・XP windows10 フォルダを上書きするときに、元のフォルダを全て削除してコピーする方法 3 2022/05/22 00:53
- プリンタ・スキャナー コピー機 10 2022/09/11 15:48
- 美術・アート ご観覧ありがとうございます。 漫画家志望なのですが、 ミニネームを作り、それを参考に、 別な紙に下書 1 2023/02/19 05:50
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
[VBA] ADOの Clone と AddNew
その他(プログラミング・Web制作)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
5
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
6
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
7
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
8
ACCESSでタイトルバーを非表示にする方法
Access(アクセス)
-
9
DATE型変数を初期化する方法
Visual Basic(VBA)
-
10
ACCESS フォームをそのまま印刷について
その他(データベース)
-
11
AccessのSQL文で1件のみヒットしたら終了させる構文。
その他(データベース)
-
12
アクセスのフォームのビューが表示されないのですが、
その他(データベース)
-
13
「RunSQL」と「Execute」の違い
Access(アクセス)
-
14
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
15
Excel VBA ユーザーフォームのリストボックスにRecordSetの値を入れた際のラベル行
Visual Basic(VBA)
-
16
Access 複数フォームを開き、画面の最上面にしたいフォームをコント
その他(データベース)
-
17
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
18
Application.ScreenUpdating = Falseが効きません
Visual Basic(VBA)
-
19
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
20
Access終了時にマクロまたはVBAの実行したい
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSでVBAから選択クエリの抽...
-
クエリ実行結果0件の場合のフ...
-
Accessクエリの抽出条件にフォ...
-
クエリーの結果をフォームに表...
-
ACCESSで、EXCELのような、sumi...
-
ACCESS2003のグループ化のエラ...
-
AccessでIDを入力したら他の項...
-
アクセス2007 フォームでフィ...
-
アクセスのフォームに連番を表...
-
サブフォームを利用したクエリ...
-
access クエリでIIF文で抽出条...
-
ACCESS クエリのデザインビュ...
-
社員原価管理
-
VarChar型をINT型に変換するには
-
【Access2000】月末の日付を条...
-
アクセス フォーム上でのレコ...
-
エクセルで、抽出したデータだ...
-
Access サブフォームでの選択行...
-
Accessでデータを更新したらそ...
-
ACCSESS2013VBA フォームのレコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでVBAから選択クエリの抽...
-
AccessでIDを入力したら他の項...
-
ACCESSで、EXCELのような、sumi...
-
Accessクエリの抽出条件にフォ...
-
クエリ実行結果0件の場合のフ...
-
ACCESS2003のグループ化のエラ...
-
クエリーの結果をフォームに表...
-
ACCESS フォームで抽出したデー...
-
サブフォームを利用したクエリ...
-
ACCESS2007 マクロ クエリのパ...
-
access クエリでIIF文で抽出条...
-
VarChar型をINT型に変換するには
-
ADOレコードセットのコピー
-
アクセスのフォームに連番を表...
-
ACCESSで、フォームで抽出した...
-
ACCESS クエリのデザインビュ...
-
Accessで月ごとのレポートを出...
-
AccessのフォームをExcelに出力
-
Accessでフィルタの実行アクシ...
-
フォームからクエリの抽出期間...
おすすめ情報