SQLServerからMDBへのデータバックアップ
SQLServer7.0からクライアントPCへMDB形式でデータバックアップを取ろうと考えており
VBAを使って以下のPGを作成したのですがSQLServerのテーブルが参照できないらしく
テーブルが見つかりませんとエラーが出てしまいます。
SQLServerのテーブル指定部分がいけないのは分かっているのですがどう記述すれば分かりません。
本来このようなレベルでは自分で調べなければいけないことは重々承知なのですが、
うちの会社には書籍がほとんど無いのです・・・。
下記の方法はネットで調べました。
DoCmd.CopyObject以外でももっ効率よくテーブルごと転送する方法はあるのでしょうか?
お恥ずかしい話ですが、識者の方 ご教授よろしくお願い致します。
Dim db As DAO.database
Dim DBname As String
Dim DB_SQL As String
DBname = "c:\temp\ZZZ.mdb"
If Dir(DBname) <> "" Then
Kill DBname
End If
Set db = CreateDatabase(DBname, dbLangJapanese)
db.Close
Set db = Nothing
DB_SQL = "DRIVER={SQL Server};SERVER=XXX;DATABASE=XXX;UID=XXX;PWD=XXX"
DoCmd.CopyObject DBname, , acTable, DB_SQL & ".テーブル名"
Exit Sub
お礼
有り難うございます。