SQL -> Запрос типа SHOW FIELDS FROM

[MadChild]

Доброе время суток.
Накапал в манюале по SQL вот такой запрос "SHOW FIELDS FROM имя таблицы". Задача запроса вывести все Поля указанной таблицы.

Попробовал его в таком коде:

Код: Выделить всё


.....
        On Error Resume Next
        PanelEventText Time & " [ > ] Пользовательский запрос к БД: SHOW FIELDS FROM " & FieldsTables
        DBConnect
        Set rs = db.OpenRecordset("SHOW FIELDS FROM " & FieldsTables)
.....


Соответственно в переменную FieldsTables ложиться название нужной таблицы.
В ответ выскакивает ошибка: Ядро базы данных Microsoft Jet не может найти входную таблицу или запрос 'SHOW FIELDS FROM Clients'. Проверьте существование таблицы или запроса и правильность имени.

Подскажите где собака порылась? Или текст запроса не таков?

[iGrok]

Это консольная команда сервера бд, если гугль меня не обманул. )
И на Recordset'е она у тебя ну никак не сработает.

Чтобы узнать поля можешь сделать
SELECT TOP 1 * FROM tableName
И потом перебрать Recordset.Fields().Name

[MadChild]

Сделал вот так:

Код: Выделить всё

        DBConnect
        Set rs = db.OpenRecordset("SELECT TOP 1 * FROM " & FieldsTables)
        For i = 0 To rs.RecordCount
            MsgBox rs.Fields(i).Name
        Next i
        DBDisconnct


Выводит только первые два поля.. хотя в таблице их 10.

[iGrok]

Кхм.
...to rs.Fields.Count

[alibek]

Во-первых, скорее всего ты невнимательно прочел мануал. Либо это не мануал, а чье-то самодельное и безграмотное творчество, которое нужно выкинуть.

Во-вторых, таким образом получать список полей имеет смысл только если ты делаешь программу под конкретную базу, которая никогда не будет меняться. Или пишешь хранимую процедуру.
В общем же случае системные таблицы могут иметь различные имена, структуру и способ доступа.

Лучше используй соответствующие инструменты. Либо подключай ADOX, либо используй метод OpenSchema с нужными тебе атрибутами.

[iGrok]

Эээ.. Это ты про мой, или про его способ? ,-)

[alibek]

Про пост автора топика.
Твой способ рабочий, но неудачный.

[Konst_One]

писал на память, проверь сам

Код: Выделить всё

set adors=adoconnection.OpenSchema(adopenschematable,null,null,"MyTableName")