tagCANDY CGI VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
VBレスキュー(花ちゃん) の Visual Basic 2010 用 掲示板(VB.NET 掲示板)
[ツリー表示へ]　 [ワード検索]　 [Home]

タイトル ： Re^4: MS-ACCESSのクエリ名やリンクテーブル名の取得は？
投稿日： 2007/11/14(Wed) 17:38
投稿者： タツ
> DAOでの取得方法も調べておきたいと思います。

下記の方法で取得出来ました。

        Dim strPath As String
        strPath = "D:\test.mdb"
        Dim ws As dao.Workspace
        Dim dbe As New dao.DBEngine
        Dim db As dao.Database
        Dim tbl As dao.TableDef
        Dim qry As dao.QueryDef
        Dim strtbl, strqry As String

        ws = dbe.Workspaces(0)
        db = ws.OpenDatabase(strPath)

        With Me.ListBox1
            For Each tbl In db.TableDefs
                strtbl = tbl.Name
                If Not (Microsoft.VisualBasic.Left(strtbl, 2) Is "MS") Then
                    .Items.Add(strtbl)
                End If
            Next tbl
            For Each qry In db.QueryDefs
                strqry = qry.Name
                If Not (Microsoft.VisualBasic.Left(strqry, 2) Is "MS") Then
                    .Items.Add(strqry)
                End If
            Next qry
        End With

        db.Close()
        ws.Close()

ADODB、ADOXを使用する場合では、MDBファイルの容量が大きいと、
アクセスに時間がかかっていましたが、DAOで取得数量にしたところ、
アクセス時間が大幅に短縮されていました。

＃こちらも、解放処理・・を考えないといけないのですね。
- 関連一覧ツリー （ をクリックするとツリー全体を一括表示します）

古いスレッドにレスはつけられません。