【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
関連記事
-
-
【Outlook】Gmailを使う時のOutlookの設定方法
Gmailアカウント側の設定を行った上で、Outlookの設定を行います。 Gmailアカウン
-
-
【Outlook】PDFの添付ファイル付のメール送信でフリーズ。
OutlookでPDFファイルを添付して、メール送信するとOutlookがフリーズし、Outlook
-
-
【Excel】エクセル。シートの名前を変更しようとしたらエラーポップアップ
エクセルでシート名を変更しようとしたときに… シートの名前をほかのシート、Visual B
-
-
【Outlook】同期の失敗フォルダを消す方法
問い合わせで、Outlookの「同期の失敗」フォルダを消したいと受けた。 調べてみたけど、基本
-
-
【Outlook】文字化けを直す方法
メールをチェックしているとプレビューウインドに文字化け表示。 メール(Outlook)
-
-
【Access】循環参照エラーの回避方法
Accessでクエリを実行しようとすると クエリ定義の SELECT で指定されている別名
-
-
【Excel】グラフ(オブジェクト)の名前変更方法
Excel2013でのお話。 とりあえず、僕が探したところ三つありました。 【1つ目】名前ボ
-
-
【Access】エラーポップアップ。「少数を丸めたために、データが切り捨てられました。」
Accessのリンクテーブルでデータを確認していたら、急に・・・ 「少数を丸めたために
-
-
【拡張子:accde】Access2007でaccdeの使い道と作成方法
うちの職場ではEUC(End User Computing)として Access2007 を多用して
-
-
【Access2007】ODBCを使ってSQL Server 2012に接続
Windows7のAccess2007をデータソース(ODBC)を使って、SQL Server 20