access で リンクを自動的にする。

1)ローカルにTM_テーブル一覧を作成 

テーブルID 長整数型
テーブル名 テキスト型
パス テキスト型

2)

Option Compare Database
Sub LinkDB(strRefTableName As String, strRefPath As String)
'データベースリンク
Dim dbs As Database
Dim tdf As TableDef
Dim strLink As String
Set dbs = CurrentDb
Set tdf = dbs.TableDefs(strRefTableName)
With tdf
   strLink = ";DATABASE=" & strRefPath & ";TABLE=" & strRefTableName & ""
  .Connect = strLink
  .RefreshLink
End With
dbs.Close
Set dbs = Nothing
Set tdf = Nothing

End Sub

 

Sub LinkResetAll()
  gConnect 'コネクトする(かってにつくったモジュール)
    Set objMemb1 = New clsMember
  
   
    objMemb1.SetProerty strSCD
   

        Dim strTableName As String
        Dim rst As ADODB.Recordset
        Set rst = New ADODB.Recordset
        With rst
        .ActiveConnection = gCN
        .Source = "select * from TM_テーブル一覧"
        .Open
        Do Until .EOF
            LinkDB !テーブル名, !パス
            .MoveNext
        Loop
        .Close
    End With
   
   
 
End Sub

トラックバック(0)

このブログ記事を参照しているブログ一覧: access で リンクを自動的にする。

このブログ記事に対するトラックバックURL: http://www.re-labo.com/mt/mt-tb.cgi/29

コメントする

このブログ記事について

このページは、ひろろが2008年3月11日 19:08に書いたブログ記事です。

ひとつ前のブログ記事は「VBAで正規表現を使う」です。

次のブログ記事は「excelのタブ、改行の取扱い」です。

最近のコンテンツはインデックスページで見られます。過去に書かれたものはアーカイブのページで見られます。

Powered by Movable Type 4.01

日本の借金時計


なかのひと


Firefox3 Meter
Chrome Counter 携帯アクセス解析

どこ?

どここjpの位置取得サービスを利用しています



Yahooログロール



ジオターゲッティング


ジオターゲティング

amazon