Таблицы в базе...

[Tuco]

Здравствуйте!
Подскажите, пожалуйста, можно ли получить названия таблиц в созданной ранее базе данных? И если можно, то как именно это сделать?

[GSerg]

for each t in tabledefs

[Tuco]

и как конкретно можно этим воспользоваться? Я же не профессионал, а просто любитель...

[Rainbow]

Ну зачем же так расстраиваться? Можно получить удовольствие от познания истины, используя наводящие ключевые слова . В коде использована библиотека DAO.

Код: Выделить всё

Dim db As Database
Dim t As TableDef
Dim s As String

    Set db = DBEngine.OpenDatabase("c:\mydb.mdb")
    For Each t In db.TableDefs
        s = s & t.Name & vbCrLf
    Next
    MsgBox s

[Tuco]

Спасибо большое!!!!