Таблицы в ADO

Работа VB и СУБД (Access, MSSQL, MySQL, Oracle и пр.)
Правила форума
При создании новой темы не забывайте указывать используемую СУБД.
Warlock
Новичок
Новичок
 
Сообщения: 35
Зарегистрирован: 27.01.2004 (Вт) 17:24

Таблицы в ADO

Сообщение Warlock » 01.10.2004 (Пт) 15:07

Уменя проблема я не знаю как в ADO прочитать название таблиц в базе данных Access и поместить их в TreeView
кто знает как это зделать подскажите пожалуста

Sebas
Неуловимый Джо
Неуловимый Джо
Аватара пользователя
 
Сообщения: 3626
Зарегистрирован: 12.02.2002 (Вт) 17:25
Откуда: столько наглости такие вопросы задавать

Сообщение Sebas » 01.10.2004 (Пт) 15:14

opensheme
- Я никогда не понимал, почему они приходят ко мне чтобы умирать?

sebas<-@->mail.ru

Warlock
Новичок
Новичок
 
Сообщения: 35
Зарегистрирован: 27.01.2004 (Вт) 17:24

Сообщение Warlock » 01.10.2004 (Пт) 15:42

а можно чуть чуть по конкретнее что это и откуда берется а то в форуме уже упоминали про нево но я так и не понел что это

Rainbow
Человек-радуга
Человек-радуга
 
Сообщения: 543
Зарегистрирован: 13.05.2003 (Вт) 14:16

Сообщение Rainbow » 01.10.2004 (Пт) 16:05

MSDN писал(а):This example uses the OpenSchema method to display the name and type of each table in the Pubs database.

'BeginOpenSchemaVB

'To integrate this code
'replace the data source and initial catalog values
'in the connection string

Public Sub OpenSchemaX()

Dim Cnxn As ADODB.Connection
Dim rstSchema As ADODB.Recordset
Dim strCnxn As String

Set Cnxn = New ADODB.Connection
strCnxn = "Provider=sqloledb;Data Source=MyServer;Initial Catalog=Pubs;User Id=sa;Password=; "
Cnxn.Open strCnxn

Set rstSchema = Cnxn.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF
Debug.Print "Table name: " & _
rstSchema!TABLE_NAME & vbCr & _
"Table type: " & rstSchema!TABLE_TYPE & vbCr
rstSchema.MoveNext
Loop

' clean up
rstSchema.Close
Cnxn.Close
Set rstSchema = Nothing
Set Cnxn = Nothing

End Sub
'EndOpenSchemaVB
Учиться - значит открывать для себя то, что уже знаешь. <...> Учить - значит напоминать другим о том, что они знают это также хорошо, как и ты. <...> Лучше всего ты учишь тому, чему тебе самому больше всего надо научиться. (Р. Бах)


Вернуться в Базы данных

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 4

    TopList