【Access】リンクテーブルの一括変換。ODBCを使わずにSQL Serverへ接続
公開日:
:
最終更新日:2015/01/12
Microsoft Office Access, ODBC, SQL Server, リンクテーブル, 一括変換, 接続先変更
Accessのリンクテーブルの接続先を一括で変更する方法
この方法なら、ODBCを使用していないので、作業端末を変更した場合もわざわざODBCを作らなくてOK。
色々調べてみましたが、Accessだと、SQL Serverとのリンクテーブルを作成、変更するには、ODBCのDSNの設定が必要。
さらにODBCを作成するには、管理者権限も必要ということで、結構めんどくさい。
ということで、VBAで既存のリンクテーブルを削除し、再作成することで変更としました。
Sub LinkTableChange() '######################################################### ' リンク変換先の指定 '######################################################### 'データベースサーバーインスタンスを指定します。 Const DBSrv As String = "【サーバー名を指定】" '接続するデータベースを指定します。 Const DBName As String = "【データベース名を指定】" '######################################################### ' 変数定義 '######################################################### Dim ConTest As ADODB.Connection Dim tableItem As TableDef Dim LinkConnection As String Dim NewTableItem As TableDef Dim TableName As String Dim SourceTableName As String 'Windows認証用 Const LinkConTemplate As String = "ODBC;DRIVER=SQL Server;SERVER=【サーバー名】;DATABASE=【データベース名】;Trusted_Connection=Yes" 'SQLSqerver認証用 'Const LinkConTemplate As String = "ODBC;DRIVER=SQL Server;SERVER=【サーバー名】;DATABASE=【データベース名】;UID=【ユーザ名】;PWD=【パスワード】" '######################################################### ' リンクテーブル作成用の接続文字列作成 '######################################################### '接続文字列作成 LinkConnection = Replace(LinkConTemplate, "【サーバー名】", DBSrv) LinkConnection = Replace(LinkConnection, "【データベース名】", DBName) '######################################################### ' リンクテーブルの接続先変更処理(削除、再作成) '######################################################### For Each tableItem In CurrentDb.TableDefs 'Accessのローカルテーブルとデフォルト?で持ってるテーブルを除く If tableItem.Connect <> "" And tableItem.SourceTableName <> "" Then '変更するリンクテーブル名、ソース名を保存 TableName = tableItem.Name SourceTableName = tableItem.SourceTableName '既存のリンクテーブルの削除 CurrentDb.TableDefs.Delete tableItem.Name 'リンクテーブルの再作成 Set NewTableItem = CurrentDb.CreateTableDef(TableName) NewTableItem.Connect = LinkConnection NewTableItem.SourceTableName = SourceTableName CurrentDb.TableDefs.Append NewTableItem CurrentDb.TableDefs(TableName).RefreshLink Set NewTableItem = Nothing End If Next Set tableItem = Nothing '######################################################### ' 完了のポップアップ出力 '######################################################### MsgBox "テーブルのリンク変換完了" End Sub
Adsense
関連記事
-
【Access】「更新可能なクエリであることが必要です」のクエリのエラーポップアップ
Accessでクエリを作成し、実行すると 「更新可能なクエリであることが必要です。」
-
【Excel】VBAでセルの書き込みを5倍高速化する方法
Excel VBAで While文やFOR文を使用してループさせ、行、列をカウントアップして、 大
-
【Access】エラーポップアップ。「少数を丸めたために、データが切り捨てられました。」
Accessのリンクテーブルでデータを確認していたら、急に・・・ 「少数を丸めたために
-
【Access2007】ODBCを使ってSQL Server 2012に接続
Windows7のAccess2007をデータソース(ODBC)を使って、SQL Server 20
-
【SQL Server】Excel VBAのレコードセットを使ってテーブルの一括更新
前々回は読み取り専用でレコードセットへ取得し、結果をエクセルへ書き出し 前回はVBAから更新S
-
【Office】Access2007のピボットテーブルとExcel連携
仕事でAccess2007でEXCELみたいにピボットテーブルを使えますか? と質問を頂いた。
-
【Outlook】送信時の0x80040201エラーの対処
発生した環境 OSはWindows7。Outlookは2013。イーモバイルのPocket W
-
【Excel】エクセル。シートの名前を変更しようとしたらエラーポップアップ
エクセルでシート名を変更しようとしたときに… シートの名前をほかのシート、Visual B
-
【Excel】「メモリまたはディスクの空き容量が~」のポップアップで開けない時の対処法
メモリまたはディスクの空き容量が不足しているため、ドキュメントを開いたり、保存したりできません。
-
【Outlook】Gmailを使う時の設定(Gmailアカウント側)
OutlookでGmailを使用するには、Gmailのアカウント側でいくつか設定をしなければいけない