VBNet - Форум - Неужели не кто не знает

Вопрос: Неужели не кто не знает Добавлено: 04.11.02 11:08

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

Мне нужно при открытии .mdb узнать имена хронящихся в ней таблиц:
Пытался достать имена этим запросом :
SELECT MSysObjects.Id, MSysObjects.Name
FROM MSysObjects
WHERE (((MSysObjects.Type)=1) AND ((Left([Name],4))<>"MSys" And (Left([Name],4))<>"USys")
Выдает ошибку и пишет что "Записи немогут быть прочитаны.Отсутствует разришение на чтение данных для MSysOjects "
Как это обойти?
Истьли другой способ...
Зарание спасибо.

Ответить

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

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

boevik

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

ICQ: 137392264

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

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

Добавлено: 04.11.02 11:20

А какой объект используется для чтения: ADO или DAO?

Ответить

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

Kit

Вопросов: 11
Ответов: 31

Профиль | | #2

Добавлено: 04.11.02 16:03

ADO c JET 4.0

Ответить

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

boevik

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

ICQ: 137392264

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

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

Добавлено: 05.11.02 08:14

Вот небольшой примерчик, как получить список всеx объектов в файле MDB:

Dim oRst As New ADODB.Recordset
Dim oCn As New ADODB.Connection
Dim i As Integer

oCn.Open "Provider=Microsoft.Jet.OLEDB.4.0ata Source=C:\My Documents\Clients.mdb;Persist Security Info=False"
Set oRst = oCn.OpenSchema(adSchemaTables)

    'print all objects to immediate window
    Do Until oRst.EOF
        For i = 0 To oRst.Fields.Count - 1
            Debug.Print oRst.Fields(i).Name & " = " & oRst.Fields(i).Value
        Next i
        Debug.Print "==========="
        oRst.MoveNext
    Loop

Ответить

Номер ответа: 4 Автор ответа: ГАТ Вопросов: 2 Ответов: 117	Web-сайт: www.mail.ru Профиль \| \| #4	Добавлено: 06.11.02 10:34
	В VB 5 есть исходники VisData. Посмотри там. Ответить

Страница: 1 |