ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / execscript передача параметра
7 сообщений из 7, страница 1 из 1
execscript передача параметра
    #37450557
Valli377
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valli377
Гость
Здравствуйте, помогите, пожалуйста, разобраться с следующим вопросом

Delphi + ADOCommand + VFPOleDB provider.
Имеется DBF таблица ~ 700 тыс. записей и индексом по ключевому полю.
Подключаюсь к таблице. В Delphi через ADOCommand пытаюсь выполнить следующий скрипт:

Код: plaintext
1.
2.
3.
ADOCommand.CommandType := cmdText;
ADOCommand.CommandText := 'execscript("parameter nod"+chr(13)+"SELECT _mdt"+chr(13)+"SET ORDER TO REF_IDX"+chr(13)+"retval=SEEK(nod)"+chr(13)+"RETURN retval", nod)';
ADOCommand.Execute;

Параметр retval возвращает необходимое значение, но при использовании параметра nod, команда выполняется с ошибкой "Variable 'NOD' is not found".

Вопрос: как правильно передать параметр в execscript?
Заранее спасибо за ответы!
...
Рейтинг: 0 / 0
21.09.2011, 19:33
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37450689
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
Напрямую подставить значение в символьную строку.

Код: plaintext
ADOCommand.CommandText := 'execscript("...",' + '123' + ')';

Не знаю, как корректно в Delphi сложить символьные строки.

Ругань идет на последний параметр. Тот, значение которого, должно быть вставлено в ExecScript(). Т.е. вместо последнего nod надо подставить его значение. Ну, должно получиться что-то вроде такого

Код: plaintext
execScript("parameter nod ... RETURN retval",  123 )
...
Рейтинг: 0 / 0
21.09.2011, 21:31
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37450690
Sergey Sizov
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Sergey Sizov
Участник
Valli377Здравствуйте, помогите, пожалуйста, разобраться с следующим вопросом

Delphi + ADOCommand + VFPOleDB provider.
Имеется DBF таблица ~ 700 тыс. записей и индексом по ключевому полю.
Подключаюсь к таблице. В Delphi через ADOCommand пытаюсь выполнить следующий скрипт:

Код: plaintext
1.
2.
3.
ADOCommand.CommandType := cmdText;
ADOCommand.CommandText := 'execscript("parameter nod"+chr(13)+"SELECT _mdt"+chr(13)+"SET ORDER TO REF_IDX"+chr(13)+"retval=SEEK(nod)"+chr(13)+"RETURN retval", nod)';
ADOCommand.Execute;

Параметр retval возвращает необходимое значение, но при использовании параметра nod, команда выполняется с ошибкой "Variable 'NOD' is not found".

Вопрос: как правильно передать параметр в execscript?
Заранее спасибо за ответы!И где тут передача параметра? И с чего взяли, что 'execscript создает функцию с параметром?
...
Рейтинг: 0 / 0
21.09.2011, 21:31
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37450992
Valli377
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valli377
Гость
ВладимирМНапрямую подставить значение в символьную строку.

Код: plaintext
ADOCommand.CommandText := 'execscript("...",' + '123' + ')';

Не знаю, как корректно в Delphi сложить символьные строки.


Да, строчку скомпоновать не сложно, все работает. Но все дело в том, что при изменении свойства CommandText уничтожаются параметры и параметр "retval" приходится создавать заново. Параметр создать не сложно, но при этом страдает производительность (по таблице динамически строится дерево).

Параметр retval (тип параметра pdReturnValue) успешно возвращает результат, но вот как передать параметр??? Синтаксис функции execscript должен позволять это:

ExecScript(cExpression [, eParameter1, eParameter2, ...])

eParameter1, eParameter2, ...
Optional. Specify parameters passed to a script that has a parameter statement in first line
...
Рейтинг: 0 / 0
22.09.2011, 08:07
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37451236
Фотография ВладимирМ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ВладимирМ
Участник
А как бы Вы передали параметр в команду Select-SQL?

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

Код: plaintext
1.
2.
3.
4.
ADOCommand.CommandText := 'execscript("parameter nod"+chr(13)' + 
                                      '+"SELECT _mdt"+chr(13)' + 
                                      '+"SET ORDER TO REF_IDX"+chr(13)' + 
                                      '+"retval=SEEK(nod)"+chr(13)' + 
                                      '+"RETURN retval", ?)';

Обозначение места параметра в команде - это вопросительный знак. Само значение параметра формируется через ADODB.PARAMETER и наполняется конкретным значением непосредственно перед выполнением

=================

А зачем Вы вообще используете "навигационные" команды поиска? Насколько я вижу, то, что Вам надо, можно получить запросом вида

Код: plaintext
select count(*) from _mdt where ... = nod

Если запрос вернул 0, то нет ни одной записи. Если значение отличное от 0, то что-то есть.
...
Рейтинг: 0 / 0
22.09.2011, 11:11
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37451474
Valli377
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Valli377
Гость
ВладимирМА как бы Вы передали параметр в команду Select-SQL?

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

Код: plaintext
1.
2.
3.
4.
ADOCommand.CommandText := 'execscript("parameter nod"+chr(13)' + 
                                      '+"SELECT _mdt"+chr(13)' + 
                                      '+"SET ORDER TO REF_IDX"+chr(13)' + 
                                      '+"retval=SEEK(nod)"+chr(13)' + 
                                      '+"RETURN retval", ?)';

Огромное Вам спасибо! Все работает!
А по поводу SELECT'а - как ни странно, но работает медленней чем скрипт. При большом количестве узлов дерево открывается с небольшой, но задержкой

Спасибо еще раз за помощь!
...
Рейтинг: 0 / 0
22.09.2011, 12:44
| Ответить | Цитировать | Написать  
execscript передача параметра
    #37454375
SSn888
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
SSn888
Участник
Valli377,

так и не октрывайте все сразу :)
загоняйте dummy, а при прямом обращениии "доподгружайте" что надо
...
Рейтинг: 0 / 0
23.09.2011, 20:46
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / execscript передача параметра
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=37450557&tid=1584120]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 37ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 42ms
get tp. blocked users:
 1ms
others: 286ms
total:  406ms
созд. / загр.: 406ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]