![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
ACCESSパススルークエリでSQLサーバーのテーブルからデータをインポートする場合において
ACCESSのテーブルにあるデータを抽出条件としたいのですがSQL文の記述方法がわからなくて困っております。
根本的な考え方が間違っている可能性が高いのですがどのように記述したらよいか教えていただけますでしょうか。
よろしくお願いいたします。
・SQLサーバーのテーブル名(S_USR)
USRID MAIL
10001 10001@test.com
10002 10002@test.com
10003 10003@test.com
・ACCESSのテーブル名(T_USR)
USRID
10001
10003
・パススルークエリ名(Q_USR)←ACCESS上
・欲しい結果(T_RESULT)←ACCESS上のテーブル
USRID MAIL
10001 10001@test.com
10003 10003@test.com
自分で考えたVBAです。
Private Sub Command1_Click()
Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim qDef As QueryDef
Dim tDef As TableDef
Dim SQLD As String
Dim SQLA As String
Set db = CurrentDb
'ACCESSテーブル内のデータを消す
SQLD = "DELETE * FROM T_RESULT"
DoCmd.RunSQL SQLD
'クエリの更新
db.QueryDefs.Delete "Q_USR"
Set qDef = db.CreateQueryDef("Q_USR")
'ODBC接続実施
qDef.Connect = "ODBC;"
'フォームから取得したパラメーターを使ったクエリの設定
qDef.SQL = "select USRID, MAIL from S_USR where ID.USRID=S_USR"
qDef.ReturnsRecords = True
Set rs = qDef.OpenRecordset(dbOpenSnapshot,dsbSQLPassThrough,dbReadOnly)
'追加クエリ
SQLA = "INSERT INTO T_RESULT (USRID, MAIL) FROM Q_USR (USRID, MAIL)
DoCmd.RunSQL SQLA
rs.Close
db.Close
MsgBox "終了"
Exit Sub
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ACCESS DAO で不要なテーブルのフィールド(列)の削除 4 2022/06/23 12:13
- Visual Basic(VBA) access count数を変数に格納 2 2022/03/30 19:21
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- Access(アクセス) 実行時エラー3131 FROM 句の構文エラーです について 7 2022/06/13 15:45
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- Visual Basic(VBA) ExcelからAccessのテーブルに書き込む時に時間がかかる 1 2022/10/14 20:38
- Access(アクセス) Access DAOのExecuteメソッドのオプション(RecordsetOptionEnum)に 1 2022/09/19 07:34
- Excel(エクセル) EXCELの外部データ取得ができない 1 2023/03/23 09:03
- その他(データベース) 更新クエリをリンクデータベーステーブルに実行し実行時エラー3362固有インデックスに重複する値が含ま 1 2022/09/21 11:44
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
このQ&Aを見た人はこんなQ&Aも見ています
-
賃貸で可能な古民家風レトロな部屋作りのコツ!改めて知る畳の高い機能性と魅力も紹介
畳の部屋を雰囲気のよい部屋に仕上げたい!賃貸住宅でもできる古民家風のレトロな部屋作りのコツを伺った。
-
パススルークエリをテーブル作成するには?
その他(データベース)
-
ACCESSでパススルークエリにパラメータを使用したい
その他(データベース)
-
[Access] パススルークエリーで実行すると遅い
Access(アクセス)
-
-
4
Access→Oracleデータ参照にはADOとパススルークエリどちらが良い?
その他(データベース)
-
5
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
6
Access サブフォームでの選択行の取得
その他(データベース)
-
7
パススルークエリのデータ件数の取得について
その他(データベース)
-
8
パススルークエリの動的パラメータの指定方法
その他(データベース)
-
9
accessでクエリの結果だけをリンクしたい。
Access(アクセス)
-
10
Excelで数値→文字列変換で指数表示になったものをいっぺんに直したい
Excel(エクセル)
-
11
ADOを使ったDBアクセス後のメモリ解放
その他(データベース)
-
12
ACCESS クエリ→フォーム フィルターをかけたデータのみエクスポートしたい
Excel(エクセル)
-
13
アクセスのエラー「クエリには出力フィールドが1つ以上必要です。」
その他(Microsoft Office)
-
14
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
SQLで、Join句で結合したテ...
-
結合したテーブルをSUMしたい
-
Accessの構成をコピーしたい
-
ExcelのMatch関数のようなもの...
-
テーブル名が可変の場合のクエ...
-
PRIMARY KEYのコピー
-
フォームから入力してテーブル...
-
ExcelのVLOOKUP関数の動作をMyS...
-
ACCESS クエリーでソートの不具合
-
2つのテーブルをLIKE演算子のよ...
-
データ無し時は空白行にしたい...
-
入退室時間の確認方法
-
(SQL)日数の計算
-
Access特定のテーブルを編集不...
-
指定した年に在籍していた社員...
-
VLOOKUP関数でエラーを表示した...
-
ACCESSのVBAにてExcelに行...
-
既存データをINSERT文にして出...
-
SQLのテーブルにないデータの出力
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
【SQL】他テーブルに含まれる値...
-
テーブル名が可変の場合のクエ...
-
既存データをINSERT文にして出...
-
結合したテーブルをSUMしたい
-
SQLで、Join句で結合したテ...
-
2つのテーブルをLIKE演算子のよ...
-
ACCESSのVBAにてExcelに行...
-
データ無し時は空白行にしたい...
-
下記の問合せを行うクエリを、 ...
-
Accessの構成をコピーしたい
-
ExcelのVLOOKUP関数の動作をMyS...
-
ADO+ODBCでテーブルに接続する...
-
SQLサーバに対するSQL文で抽出...
-
ExcelのMatch関数のようなもの...
-
ACCESS クエリーでソートの不具合
-
PRIMARY KEYのコピー
-
同一テーブル内での比較(最新...
-
SQLです!!教えてください。あ...
-
改行を含んだデータのインポート
-
SQLです!!教えてください。あ...
おすすめ情報