Использую схему CBuilder6 - ADO - VFP OLEDD - VFP DBC
Есть тестовая ХП

FUNCTION tst ( C )
return '#'+C+'#'
ENDFUNC

Пытаюсь через TADOStoredProc передать параметр и получить результат, но увы. Как ни изощрялся, натыкаюсь на type mismatch или что-то подобное.

Если функция (ХП) без входного параметра - все Ок, но это малоинтересно.

Кто имеет опыт и может подсказать как правильно оформить параметры в TADOStoredProc для успеха затеи?
У меня последняя попытка выглядит так (взято из dfm формы)
========
object tsp: TADOStoredProc
Connection = dm.cn
ProcedureName = 'tst'
Parameters = <
item
DataType = ftString
Size = 5
Value = '84020'
end
item
DataType = ftString
Direction = pdReturnValue
Value = Null
end>
end
=======
Вызов tsp->ExecProc() приводит к 'Data type mismatch'

Спасибо

Sergey ChЕсли интересно, можете почитать пример на VB.NET передалаете под C# - там немного другой синтакс...
VB.NET конечно интересно, хотя в этом примере я его увидел изнутри впервые.
Не совсем понятно используется ли там тот же объект, что и ТADOStoredProc.
Не видно и возвращаемых параметров, что для меня важно.
Просто запустить ХП, задав ей параметры не составляет проблемы. Это можно сделать и без ТADOStoredProc.
Можно и результат выдать в курсор и потом его анализировать (что я сейчас и делаю и это не есть очень красиво)
Однако хотелось бы запустив процедуру, тут же получить "отчет" о ее работе.
Спасибо за участие.

2 piki_piki
Соединение через VFP OLEDB, строка соединения стандартная.
В TADOStoredProc нет запроса. Есть имя ХП и метод ExecProc(), да еще праметры.
Или с использованием TADOCommand то же будет при CommandType=cmdStoredProcedure.
Но методы типа Exec...() этих объектов возвращают рекордсет.
Я бы хотел получить единичную величину, которую возвращает ХП. В приведенном примере это должна быть просто строка "#84020#", которая должна лежать после отработки метода ExecProc() в одном из параметров, который определяем, как выходной.
Вот такого эффекта добиться пока не удается.
А передать запрос на выполнение ХП с параметрами и получить по возврату рекордсет - это NoProblems
Эсли кто-то делал что-то подобное, прошу поделиться опытом.

P.S. А по поводу COM сервера не хочется плодить посредников. Выбор схемы определен именно компактностью решения и возможностью локального использования. Иначе можно было бы использовать что-нибудь более существенное в качестве СУБД (MS SQL и т.п.)

2 Sergey_Ch

Очевидно, что в Вашем проекте объект StoredProc совсем другое, чем TADOStoredProc. По крайней мере метода ExecScalar() (Кажется так, пишу по памяти) в моем объекте нет.

piki_pikiТо Vales,я вот не уверен, что OLE DB VFP подерживает вызов VFP ХP. Что-то как-то даже не встерчал упоминания ни в Help по VFP ни в описании OLE DB VFP 9.0. Может запросом дернуть лучьше. И вообще зачем тебе ADO ?
Пользуйся TQuery для этих целей. И BDE настраивать не нужно на источник, сам задашь текущий каталог с таблицами в качестве параметра и запросы он отрабатывает, и множественные и скаларные.
По поводу возможностей OLE DB я тоже не совсем уверен, поэтому и спрашиваю.
А по поводу TQuery не пойму, чем это лучше например TADOQuery, да к тому же и BDE нужен. А возвращает TQuery все тот же рекордсет, как я понимаю.
Или я в чем-то неправ?

Hi Igor Korolyov

По поводу m. это вряд ли что-то изменит. Здесь нет никаких рабочих областей, да и при обращении к функции другими способами, она возвращает правильный результат (например внутри select tst('jfhgkj') as qqq ).

Далее, речь идет не об ADODB.Command , а об объекте живущем в BCBuilder++(Delphi) : TADOStoredProc. В нем нет типа команды (уже как бы по умолчанию adCmdStoredProc). Есть еще объект TADOCommand, но и с ним не получается.
Может с ADODB.Command в VB или в VBS оно и прокатит, но мне нужно другое - в С++ программе работать с FOX базой.

'tst(?)' не пробовал- обязательно попробую, правда пытался пробовать 'tst(: par)' - ругается. А 'tst' устанавливается путем выбора из всплывающего меню в свойствах объекта, если указано конкретное значение Connection и ничего кроме имени ХП там по идее быть не должно.

Спасибо за участие

qwertyqwertyА что мешает тебе создать объект ADO в Билдере ...
А в этом что-то есть :)
Надо правда сначала прверить работает ли то, чего я жду в ADODB

В общем забил я на TADOStoredProc.
Сделал промежуточную функцию, которая запускает ХП передав ей параметры через запрос. ХП возвращает курсор с одной записью и одним полем-ответом о результатах своей работы. А уж эта функция возвращает мне скалярный результат.
Думаю это не хуже, чем привлекать других посредников типа OleObject и т.п., которые тоже необходимо оснастить конектом и прочее. Т.е. накладные расходы будут не менее ощутимыми.

Похоже провайдер не совсем корректно возвращает информацию о ХП и ее параметрах. По крайней мере метод Refresh параметров ни к чему не приводит.

Если все же кто-то обуздает параметры TADOStoredProc в сязке с VFP OLEDB провайдером от 9-й лисы, буду признателен за информацию.

Удачи всем :)

Кому еще интересно!

Решил подвести некоторые итоги своих изысков.
Цивилизованным способом передать параметры так и не удалось.
Отладка в начале ХП показывала, что параметр не поступает в процедуру, тип параметра по Туре('C') выдает всегда L.
(Здесь я сохранил в качестве имени параметра С, чтобы сохранить описанную в начале ХП. В реальной я заменил название параметра на многобуквенное.)
Удалось вернуть значение с использованием ExeсScript
И увидел таки ожидаемое #84020# :)

Т.о. передал всю работу со входными параметрами фоксовской составляющей.
Еще "проходил" вариант с передачей параметров через dbf-ку, но это тоже неудобно.
С использованием ExecScript можно работать с любой процедурой, возвращающей скаляр без модификаций самих процедур.

Всем удачи!

luserНикогда не пользуйся TADOStoredProc - это великий глюк билдера.
Но и это ...
- не выход. Тебе подсказали. Есть TQuery.

Да, но как я понимаю TQuery не дружит с VFP OLEDB провайдером.
Или я заблуждаюсь?

В варианте CommandText = "tst(: tPar)" с использованием TADOCommand и с CommandType=cmdText действительно работает, если еще отключить возврат данных в рекордсет.
При CommandType=cmdStoredProc в CommandText должно быть только "tst", как и в TADOStoredProc. Вот это - не хочет работать.
Впрочем меня смущало, что метод ADOCommand->Execute() возвращает рекордсет, но похоже, что если он не формируется в ХП, то никаких проблем с этим нет. Хотя, как я понимаю, пустой объект все же создается и уходит в небытие по выходу из зоны видимости, а скалярная величина, возвращаемая ХР благополучно принимается параметром ADOCommand с типом Output или ReturnValue.
Думаю вопрос можно закрыть, но с TADOStoredProc так и остается непонятно.
То-ли этот объект глючный, то-ли провайдер с кривизной.

Всем спасибо :)

luser Ты "долбишься" к базе DBC. TQuery работает с ней так же легко как ты по утрам чистишь зубы. И ADO тебе не нужен. В данном случае - точно не нужен. Причем , я тебя уверяю, из OLE DB провайдера никуя не возвращается. Я проверял. Так, что за базар отвечаю.
Уж если хочешь ADO в С++ билдере, то посмотри в сторону TADOQuery.
Удачи.
Вот пристал со своим TQuery.
Да использую я TADOQuery там, где нужен именно он, и TADODataSet, и TADOCommand, и даже TADOStoredProc в урезанном варианте.
Что использовать я не спрашивал и решу сам. Вопрос заключался в другом и подразумевал участие тех, кто имеет опыт работы имено со связкой VFP OLEDB и TADOStoredProc.
На предмет того, что
luser я тебя уверяю, из OLE DB провайдера никуя не возвращается
так это ложное утверждение.
Все из него возвращается в лучшем виде, вот передать ему параметры именно через TADOStoredProc не удается.
Возможно все же ситуация когда-нибудь изменится к лучшему, ведь и у OLEDB и у ADO ноги растут из одного места - Microsoft.