Написал кучу текста для оправдания поста, стёр, т.к. нет оправдания.

Res.Fields.Count - то, что и требуется.
Спасибо всем большое.

P.s. Отдельное спасибо за RecordCount

omegastripes пишет:

Res.Fields.Count возвращает количество полей ("столбцов"), разве не так?

В том то и дело, что это возвращает количество строк, а не столбцов.

Явно ошибаетесь.

Res.Fields.Count - возвращает кол-во полей.

Res.RecordCount - возвращает кол-во полученных в результате запроса записей.

RecordCount может возвращать -1 в случае если курсор связи с базой данных серверный. И это логично. При этом клиентская сторона не знает сколько записей вернёт запрос и обращение к следующей записи по MoveNext инициирует новый запрос к БД. В случае если курсор связи с БД клиентский, то в результате запроса все записи выгружаются на клиента и при этом RecordCount возвращает реальное кол-во полученных записей. Есть ещё условия при которых RecordCount возвращает -1, но об этом лучше почитать тут - http://msdn.microsoft.com/en-us/library … s.85).aspx

P.S В базе данных нет строк и столбцов. ) Есть записи и поля этих записей.

Не уверен, но можно попробовать перед циклом это добавить:

Set Comm = CreateObject("ADODB.Command")
Comm.CommandText = Query
Catalog.Views.Append "NewQuery", Comm

А что это даст?

'<...>
Set Catalog = CreateObject("ADOX.Catalog")
Set Catalog.ActiveConnection = FB
For Each Table In Catalog.Tables
  MsgBox Table.Name & vbnewline & Table.Columns.Count
Next

?

А счастье было так близко и так возможно...
К сожалению, эта конструкция выдаёт список таблиц в базе.
В общем, мимо...

Вопрос открыт.

Res.Fields.Count возвращает количество полей ("столбцов"), разве не так?

В том то и дело, что это возвращает количество строк, а не столбцов.

Так, конечно, можно получить количество, но тоже только строк, а не колонок (столбцов).
К тому же, данный вариант плох ещё и по другой причине. Если хранимая процедура blabla вносит изменения в базу, то её повторный запуск уже даст другой результат.

С этим я ещё не сталкивался, судя по коду - то, что нужно, лишь бы заработало. Проверю.

select count(*) from blabla

Можно так получить количество. И да, .RecordsCount возвращает -1 (что я только не пробовал).

'<...>
Set Catalog = CreateObject("ADOX.Catalog")
Set Catalog.ActiveConnection = FB
For Each Table In Catalog.Tables
  MsgBox Table.Name & vbnewline & Table.Columns.Count
Next

?

Использую Firebird ODBC + VBScript

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

Пример:

Set FB = CreateObject("ADODB.Connection")

FB.Open "DataBase"

Query = "Select * From StoredProcedure"

Set Res = FB.Execute(Query)

While Not Res.EOF
  a1 = Res.Fields(0).Value
  a2 = Res.Fields(1).Value
...
  aX = Res.Fields(X).Value

  Res.MoveNext
WEnd

StoredProcedure могут быть любыми и, соответственно, возвращать произвольное количество столбцов.
aX = Res.Fields(X).Value
Как узнать, чему равно Х для данной StoredProcedure?

Я очень надеюсь на ответ типа:
Используй

ColumnCount = Res.ColumnCount()

, по аналогии с количеством строк

Res.Fields.Count

но, к сожалению, не смог нагуглить ничего подобного...

Спасибо.