![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_12.png?5a7ff87)
No.1ベストアンサー
- 回答日時:
念のため、
A) Server-A 上には "メインDB.mdb" がある。
B) PC-A 上には "サブDB.mdb" があり、"サブDB.mdb" 内にはクエリ "q01" がある。
C) "q01" は "サブDB.mdb" に保存されているデータだけを操作対象としている。
D) ユーザーは PC-A にインストールされている Access から Server-A 上の "メインDB.mdb" を開いて作業を行う。
E) (D) の作業の中で "メインDB.mdb" は "サブDB.mdb" を開いて "q01" を実行する。
(C) の所、ご確認ください。
ADO を使って相手の DB のデータを登録・編集・削除しgたり、ADO のレコードセットとして選択結果を受け取る程度であれば DSN を定義すればできます。
PC-A [コントロール パネル]-[パフォーマンスとメンテナンス]-[管理ツール]-[データ ソース(ODBC)] を開く。
[システム DSN] タブを選択。
[追加] ボタンをクリック。
ドライバ一覧から「Microsoft Access Driver (*.mdb)」を選択して [完了] をクリック。
[データ ソース名] に適当な名前を入力。(例として subDbAccess とします)
[選択] をクリックして "サブDB.mdb" を選択。
[OK] をクリックして <ODBC Microsoft Access セットアップ> ダイアログを閉じる。
[OK] をクリックして <ODBC データ ソース アドミニストレータ> ウィンドウを閉じる。
サブDB.mdb には "q01" という名前の選択クエリがすでにあるものとします。
以下、メインDB.mdb の適当な場所に記述
Dim con As New ADODB.Connection
con.ConnectionString = "DSN=subDBAccess;"
con.Open
Dim cmd As New ADODB.Command
cmd.ActiveConnection = con
cmd.CommandText = "q01"
cmde.CommandType = adCmdStoredProc
Dim rst As New ADODB.Recordset
rst.CursorType = adOpenForwardOnly
rst.LockType = adLockOptimistic
Set rst = cmd.Execute
Do While Not rst.EOF
Debug.Print rst.Fields("ID").Value
Debug.Print rst.Fields("firstName").Value
Debug.Print rst.Fields("lastName").Value
rst.Movenext
Loop
rst.Close
con.Close
Set rst = Nothing
Set cmd = Nothing
Set con = Nothing
クエリ q01 を実行した結果が rst に ADO のレコードセット オブジェクトとして格納されています。
結果が不要で、実行させっぱなしなクエリな場合は
単に cmd.Execute だけでもいけます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- その他(年金) 企業年金(確定給付企業年金)についての勉強方法について 1 2022/05/21 23:32
- 日本語 dbとdBって違うんですか? 1 2022/05/04 00:15
- IT・エンジニアリング ドメイン駆動設計の値オブジェクトについて質問 1 2023/05/13 02:50
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- MySQL PHP 画像のアップロード Qiita 2 2022/11/28 04:44
- SQL Server クエリで、日付が逆転したときは、二日分になるクエリを書きたいです。 4 2022/07/12 22:21
- Excel(エクセル) VBAのエラーが直せません 4 2023/06/12 22:10
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
accessでクエリの結果だけをリンクしたい。
Access(アクセス)
-
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
他のMDBのマクロを実行する方法
Visual Basic(VBA)
-
-
4
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
5
Accessでテーブル名やクエリ名一覧の抜き出し
Access(アクセス)
-
6
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
7
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
8
別のAccessファイルのフォームを開くには
Access(アクセス)
-
9
ACCESS VBAで別のACCESS(mdb)を起動できますか
Visual Basic(VBA)
-
10
他ファイルのテーブルの情報を取得したい
Access(アクセス)
-
11
ACCESS クエリで重複データを最新の1件だけ表示
Access(アクセス)
-
12
アクセス クエリを別のファイルへコピーするには?
Access(アクセス)
-
13
Access VBAでクエリーのレコード件数を取得したいのですが
その他(データベース)
-
14
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
15
AccessからExcelにエクスポートする時に常に上書きしたい
Excel(エクセル)
-
16
リンクテーブルを CopyObject するとリンク情報がコピーされる
その他(データベース)
-
17
Access2000 サブフォームのRecordSet取得法
Access(アクセス)
-
18
アクセスで入力したデータの順番が変わってしまいます
その他(ビジネス・キャリア)
-
19
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
20
VBのソース上からAccessのmdbファイルのクエリを呼び出す
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
Sub Auto_Open() 実行されない
-
別のフォームで記述している関...
-
エクセル マクロ 別シートから...
-
VBAでのユーザフォームの表示有...
-
実行時エラー9 インデックスが...
-
メニューバーのイベントが2回...
-
前を向くのに必要なものは何で...
-
Excel vba 条件分岐 空白セルが...
-
excel2010でボタンが反応しなく...
-
GetAsyncKeyState() を利用する...
-
エクセルで条件をつけて図形を...
-
ワードで、グレーの部分しか入...
-
ツールバーの「ファイル(F)、...
-
ネットの送信するフォームについて
-
VBA ピポットテーブル 前年比の...
-
エクセルで非表示行を抜かして...
-
セカンドライフ アカウント登録
-
スターウォーズバトルフロント2...
-
エクセルでの6ヶ月平均の出し方
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルVBA 作業後に選択範囲...
-
別のフォームで記述している関...
-
Sub Auto_Open() 実行されない
-
VBAでのユーザフォームの表示有...
-
ACCESSで別DBにあるクエリを...
-
GetAsyncKeyState() を利用する...
-
ascW関数の結果がおかしい
-
Excel vba 条件分岐 空白セルが...
-
エクセル マクロ 別シートから...
-
Excel VBAのステップイン
-
ステップモードの動作確認方法
-
Excelで、チェックボックスにチ...
-
ExcelVBAで毎月月初の最初にBoo...
-
ExcelVBA ドロップボックスで月...
-
Excelのマクロ実行後に動作が重...
-
円の中に等間隔に線を引くには
-
メニューバーのイベントが2回...
-
最小化ボタンで最小化したフォ...
-
MATLABの乱数生成関数 rand( ) ...
-
続き…エクセルvba ①SUBメニ...
おすすめ情報