Access VBA：ADOXでデータベースのクエリ一覧を作成
Access VBAで選択クエリを取得するには「 ADOX.View 」を使います。
パラメータがある選択クエリとアクションクエリを取得するには「 ADOX.Procedure 」を使います。■取得するファイルのクエリです。
「 Q_商品マスター 」が選択クエリで、「 Q_商品追加 」がアクションクエリです。
■ 実行Access画面
「ADOXでクエリ一覧を作成 」ボタンで取得を開始します。
先に「 ADOX.View 」を実行し、次に「 ADOX.Procedure 」を実行します。
■ Access VBA 実行コード例
Option Compare Database
Option Explicit
Private Sub コマンド0_Click()
Dim cat As New ADOX.Catalog
Dim vi As ADOX.View
Dim pr As ADOX.Procedure
Dim s1 As String
Dim sfina As String
'ファイル名
sfina = "c:\adoxtest.mdb"
'JET4.0
s1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sfina & "; Jet OLEDB:Engine Type= 5"
'データベースに接続
cat.ActiveConnection = s1
s1 = "■選択クエリ" & vbCrLf
For Each vi In cat.Views
s1 = s1 & vi.Name & vbCrLf
Next
s1 = s1 & vbCrLf
s1 = s1 & "■パラメータ選択クエリー・アクションクエリ" & vbCrLf
For Each pr In cat.Procedures
s1 = s1 & pr.Name & vbCrLf
Next
Me!テキスト1 = s1
Set cat = Nothing
MsgBox "データベースのクエリ一覧を取得しました。"
End Sub
Option Explicit
Private Sub コマンド0_Click()
Dim cat As New ADOX.Catalog
Dim vi As ADOX.View
Dim pr As ADOX.Procedure
Dim s1 As String
Dim sfina As String
'ファイル名
sfina = "c:\adoxtest.mdb"
'JET4.0
s1 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source =" & sfina & "; Jet OLEDB:Engine Type= 5"
'データベースに接続
cat.ActiveConnection = s1
s1 = "■選択クエリ" & vbCrLf
For Each vi In cat.Views
s1 = s1 & vi.Name & vbCrLf
Next
s1 = s1 & vbCrLf
s1 = s1 & "■パラメータ選択クエリー・アクションクエリ" & vbCrLf
For Each pr In cat.Procedures
s1 = s1 & pr.Name & vbCrLf
Next
Me!テキスト1 = s1
Set cat = Nothing
MsgBox "データベースのクエリ一覧を取得しました。"
End Sub
Home 
Tips メニューCopyright(C) FeedSoft