Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

1858 / 9994

←次へ　｜　前へ→


	【11418】Re:ADPのテーブルをMDBにインポートしたい

pon - 10/1/22(金) 13:26 -


	引用なし

	パスワード

結果報告です
下記でインポートできました

Sub Import_TBL()

　　Dim strConnect As String
　　Dim strSQL As String
　　Dim db As DAO.Database
　　'Dim CurrentDb_Name As String
　　Dim TG_JOB As String
　　
　　TG_JOB = "7777"
　　　　　　　　
　　strConnect = "ODBC;Driver={SQL Server};Server=(local);" & _
　　　　　　　　 "Database=DBNM;UID=HOGE;PWD=FUGA;"
　　　　　　　　
　　Set db = DBEngine.OpenDatabase("", False, False, strConnect)
　　strSQL = "select * into d_Tbl_TG " & _
　　　　　　 "IN 'C:\FOO\BAR.mdb' from d_Tbl_TG WHERE d_Tbl_TG.FLD=""" & TG_JOB & """;"
　　db.Execute strSQL
　　
　　Application.RefreshDatabaseWindow
　　
End Sub

取りあえず希望の操作はかなっています

何かアドバイスありましたらよろしくお願いいたします

1,461 hits

▼

【11409】ADPのテーブルをMDBにインポートしたい pon 10/1/21(木) 17:54