Как с использованием ADO во время исполнения я могу получить структуру базы? - VB

Формулировка задачи:

Вопрос: как с использованием ADO во время исполнения я могу получить структуру базы, т.е. список таблиц и полей в них. В DAO я это делал через TableDef, но двухтысячный Access с ним не очень дружен.

Решение задачи: «Как с использованием ADO во время исполнения я могу получить структуру базы?»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Dim cat As ADOX.Catalog
Dim tbl As ADOX.Table
Set cat = New ADOX.Catalog
cat.ActiveConnection = 'Provider=Microsoft.Jet.OLEDB.4.0;Data _ Source=D:db1.mdb;Persist Security Info=False'
Set tbl = cat.Tables('tbl')
MsgBox tbl.Columns('aa').Type
Set tbl = Nothing
Set cat = Nothing

Оцени полезность:

5 голосов , оценка 4.6 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы