ODBC, количество полей

[KPEATOP]

У меня все работает нормально. Считываю данные из базы данных в необходимых полях таблицы.

Set gwsMainWS = CreateWorkspace("", "admin", "", dbUseODBC)
gwsMainWS.DefaultCursorDriver = dbUseODBCCursor
Set conPubs = gwsMainWS.OpenConnection("", , , sConnect)
Set qdfTemp = conPubs.CreateQueryDef("", "up_gaz_smes " & IDWell)
Set rstTemp = qdfTemp.OpenRecordset()
a=rstTemp.Fields("d_muf")

как мне узнать сколько полей в таблице, чтобы просмотреть или распечатать все имена полей при помощи rstTemp.Fields(i).Name ?
как определить число i ?
Заранее сенкс!

[Andrey Fedorov]

как мне узнать сколько полей в таблице, чтобы просмотреть или распечатать все имена полей при помощи rstTemp.Fields(i).Name ?
как определить число i ?
Заранее сенкс!

Нафиг так делать?

Посмотри Help по For Each

Кстати, ODBC такая гадость - работаю сейчас со старинной программой на Access (использует прилинкованные таблицы SQL-сервера), ладно бы ее криво написали, но кроме того: просто открытая и использованная в отчете вьюшка может заблокировать таблицу. Даже ComboBox может так же заблокировать таблицу на которой основан...

И вот эту гадость приходится вылавливать в сотнях кривонаписанных форм...

[Antonariy]

просто открытая и использованная в отчете вьюшка может заблокировать таблицу

Часто работал с ODBC, но никогда с этим не сталкивался. Отсоединенные рекордсеты (и вобще манипуляции с курсором и блокировкой) должны спасти отца русской демократии.

[KPEATOP]

И как например можно использовать For Each для подсчета полей таблицы ?

Set rstTemp = qdfTemp.OpenRecordset()
With rstTemp
i = 0
For Each .Fields In rstTemp
i = i + 1
Next
End With

так не получается, жалуется на .Fields
Как подсчитать количество полей ?

[Antonariy]

"For Each .Fields In rstTemp" — "Для каждой коллекции .Fields в рекордсете rstTemp". Тут не только нарушение синтаксиса, но и элементаного смысла. После Each должна идти переменная, а после in ссылка на коллекцию (или массив).

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

Dim f As Field
For Each f In .Fields

[alibek]

А .Fields.Count что, никаких мыслей не вызывает?

[Andrey Fedorov]

просто открытая и использованная в отчете вьюшка может заблокировать таблицу

Часто работал с ODBC, но никогда с этим не сталкивался.

А я как раз сталкиваюсь и приходится эти блокировки отлавливать и с ними разбираться...
Или еще фича - если в RowSource комбобокса стоит SЕLЕСТ по большой таблице, то это тоже может привести к блокировке. И подобной мерзости очень много...

Отсоединенные рекордсеты (и вобще манипуляции с курсором и блокировкой) должны спасти отца русской демократии.

Кардинально поможет только отказ от DAO с его ODBC как таковых. Но, к сожалению, это не всегда возможно - вот и мне приходится тащить несколько старых громоздких проектов с ними пока им не будет готова замена...