Кларион и ADO

← →
kadr (2008-06-19 09:48) [0]

Здравствуйте.
Есть необходимость получать данные из таблиц Клариона (tps).
Использую ADO и TopSpeed ODBC-дайвер.

При выполнении кода в VBA
Sub rer() Dim rs As Recordset Set conn = New ADODB.Connection conn.Open "Data Source=TopSpeed;Extended Properties=DSN=TopSpeed;DBQ=C:\CLARIS_DATA\DATA\;Extension=tps;Oem=N;SERVER=NotT heServer", 16 "conn.Mode = adModeShareDenyNone Set rs = New ADODB.Recordset rs.ActiveConnection = conn rs.CacheSize = 10000 rs.Open "select * from wagon", conn, adOpenKeyset p = rs.AbsolutePosition rs.MoveFirst Do While rs.EOF <> True f_val=rs.Fields("COD").Value Debug.Print f_val rs.MoveNext Loop End Sub

f_val всегда ноль, т.е. получить значение поля не могу.
Кто подскажет, где грабли?

← →
Поросенок Винни-Пух © (2008-06-19 09:50) [1]

f_val всегда ноль, т.е. получить значение поля не могу.

а ноль - это не значение?

← →
kadr (2008-06-19 09:54) [2]

Сформулируем иначе.
В необходимых полях находятся значения ОТЛИЧНЫЕ от нуля, но Value возвращает ноль.
В чем может быть ошибка?

← →
DrPass © (2008-06-19 10:02) [3]

> В чем может быть ошибка?

Судя по всему, не в твоем коде. Скорее всего в драйвере

← →
kadr (2008-06-19 10:10) [4]

>3 Да вот и я так думаю.
Кто-нить подскажет выход. 2 дня мучаюсь..

← →
Поросенок Винни-Пух © (2008-06-19 10:14) [5]

проверить драйвер не в своей программе

← →
kadr (2008-06-19 10:16) [6]

MSQuery данные в excel перетягивает. Значит драйвер работает нормально. Предполагаю, что MSQuery использует именно ADO. Значит достучаться как-то можно

← →
Плохиш © (2008-06-19 10:26) [7]

> Sub rer()
>
> Dim rs As Recordset

Это в какой версии делфи такое появилось?

← →
kadr (2008-06-19 10:40) [8]

См вопрос: "При выполнении кода в VBA"

← →
Игорь Шевченко © (2008-06-19 11:02) [9]

> См вопрос

см. название сайта

← →
palva © (2008-06-19 11:04) [10]

Extended Properties надо бы заключить в кавычки. Там внутри есть знаки равенства. Может быть, это сбивает драйвер.

← →
kadr (2008-06-19 11:08) [11]

9> Название сайта вижу давно... ;)
Считаю, если ADo используется в delphi, то на этом сайте можно задавать подобные вопросы

10> Пробовал по-всякому. Куча глюков в драйвере, может в более свежей версии что-то подправили

← →
kadr (2008-06-19 11:20) [13]

Всем большое спасибо за ПОМОЩЬ

> Считаю, если ADo используется в delphi, то на этом сайте
> можно задавать подобные вопросы

А почему бы вопрос не задать на сайте проктологов?

> А почему бы вопрос не задать на сайте проктологов?

Проктологи тоже используют ADO? Не знал.

Просто они тоже упоминаются в процессе написания программ, на всех языках.

Кларион и ADO Найти похожие ветки