VBNet - Форум - Названия таблиц через ADO

Вопрос: Названия таблиц через ADO Добавлено: 09.10.02 21:57

Автор вопроса: sergeyz

Если нетрудно подскажите как в VB программно через ADO получить названия таблиц в файле mdb?

Ответить

Ответы Всего ответов: 9

Номер ответа: 1
Автор ответа:

Satrapp

ICQ: 75556561

Вопросов: 8
Ответов: 80

Профиль | | #1

Добавлено: 09.10.02 22:52

for i=0 to rs.Fields.Count - 1

MsgBox rs.Fields(i).Name

Next i

где rs - рекордсет соответствующей таблицы...

Ответить

Номер ответа: 2
Автор ответа:

sergeyz

Вопросов: 3
Ответов: 7

Профиль | | #2

Добавлено: 09.10.02 23:10

Так, мне и надо получить список этих таблиц

Ответить

Номер ответа: 3
Автор ответа:

sergeyz

Вопросов: 3
Ответов: 7

Профиль | | #3

Добавлено: 10.10.02 23:46

АУ!!! Неужели никто не знает?

Ответить

Номер ответа: 4
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #4

Добавлено: 11.10.02 15:32

Private Base As Database

Private table As TableDef

sub form_load

Set Base = OpenDatabase(sPath)

Set table = Base.TableDefs

For Each table In Base.TableDefs

MsgBox table.Name

end sub

Покажет все имена таблиц в базе

Ответить

Номер ответа: 5
Автор ответа:

sergeyz

Вопросов: 3
Ответов: 7

Профиль | | #5

Добавлено: 11.10.02 21:40

Что-то не получается... А это случайно не DAO?

Ответить

Номер ответа: 6
Автор ответа:

sergeyz

Вопросов: 3
Ответов: 7

Профиль | | #6

Добавлено: 12.10.02 12:27

Блин, да как же это делается???

Ответить

Номер ответа: 7
Автор ответа:

MAGNUS

Вопросов: 12
Ответов: 430

Профиль | | #7

Добавлено: 14.10.02 15:01

Угадал, это именно дао, сорри, забыл сказать. Через АДО не получается, может просто не нашел.

Ответить

Номер ответа: 8
Автор ответа:

boevik

Хранитель чата

ICQ: 137392264

Вопросов: 8
Ответов: 557

Web-сайт: www.hypertech.ru
Профиль | | #8

Добавлено: 14.10.02 15:39

Попробуй следующий код:

SELECT Name FROM msysobjects WHERE Type=1

Получишь recordset который включат все названия таблиц в файле mdb.

Ответить

Номер ответа: 9
Автор ответа:

sergeyz

Вопросов: 3
Ответов: 7

Профиль | | #9

Добавлено: 14.10.02 18:45

Всем спасибо, за ответы, помогли разобраться, если кому все еще интересно, вот код (взято из справки):

Public Sub OpenSchemaX()

Dim cnn1 As ADODB.Connection

Dim rstSchema As ADODB.Recordset

Dim strCnn As String

Set cnn1 = New ADODB.Connection

strCnn = "Provider=sqloledb;" & _

"Data Source=srv;Initial Catalog=pubs;User Id=sa;Password=; "

cnn1.Open strCnn

Set rstSchema = cnn1.OpenSchema(adSchemaTables)

Do Until rstSchema.EOF

Debug.Print "Table name: " & _

rstSchema!TABLE_NAME & vbCr & _

"Table type: " & rstSchema!TABLE_TYPE & vbCr

rstSchema.MoveNext

Loop

rstSchema.Close

cnn1.Close

End Sub

Ответить

Страница: 1 |