以下の例では、ListAccessTables プロシージャは、 strDBPath 引数で指定されるデータベースに含まれるすべてのテーブル名を VBA のイミディエイト ウィンドウに出力します。 Sub ListAccessTables(strDBPath As String) Dim catDB As ADOX.Catalog Dim tblList As ADOX.Table Set catDB = New ADOX.Catalog ' カタログを開きます。 catDB.ActiveConnection = "Provider=Microsoft.Jet.OLEDB.4.0;" _ & "Data Source=" & strDBPath ' すべてのテーブルをループしますが、クエリは行いません。 ' テーブル名と種類を出力します。 For Each tblList In catDB
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く