Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Как узнать имена всех таблиц в базе

Автор: GyDi 23.1.2006, 11:31

Добрый день! Подключаю Бд через DAO. Как узнать имена всех таблиц в базе, через VBasic? И ещё, где можно скачать класные книги по работе с БД на VB, и книги с подробным описанием визуальных компонентов?

Автор: Exception 23.1.2006, 12:51

Насчет книг - это тебе в раздел Литература. Ссылка есть наверху.
Для получения имен всех таблиц тебе нужно:

Использовать ADOX (ADO eXtensions), там есть такая возможность
Можно также брать имена из системных таблиц, это зависит от типа БД.

Автор: GyDi 23.1.2006, 13:10

Т.е. создать переменную типа ADOX? Или как?

Автор: Exception 23.1.2006, 13:28

Подключи библиотеку Microsoft ADO Ext. 2.8 for DDL and Security и Microsoft ActiveX Data Objects 2.8.
Код (для SQL Server):

Код

Dim con As New ADODB.Connection
con.Open ("Provider=SQLOLEDB;server=DANICH\SQL;uid=sa;pwd=;")
Dim db As New ADOX.Catalog
db.ActiveConnection = con
Dim tbl As ADOX.Table
For Each tbl In db.Tables
MsgBox tbl.Name
Next
db = Nothing
con.Close
con = Nothing

Автор: Flotskiy 25.1.2006, 07:42

Добрый день Всем! GyDi, может это тебе подойдет?
Всего доброго