ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CreateParameter. Упростить синтаксис
12 сообщений из 12, страница 1 из 1
CreateParameter. Упростить синтаксис
    #32342751
igor603
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor603
Участник
Очень все здравствуйте!
Неспеша переползаю на ADP+SQL. По Гетцу передать параметры в ХР правильно так
Set prm = cmd.CreateParameter("@Fam", adVarWChar, adParamInput, 30, Me![Familu].Column(1))
cmd.Parameters.Append prm

Set prm = cmd.CreateParameter("@Nam", adVarWChar, adParamInput, 15, Me![Name].Column(1))
cmd.Parameters.Append prm

Вопрос. А можно как-нибудь упростить синтаксис, типа все параметры передать в одной строке?
...
Рейтинг: 0 / 0
04.12.2003, 00:56
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32342762
AlexeyU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexeyU
Гость
вроде так

Код: plaintext
cmd.Parameters.Append cmd.CreateParameter( "@Fam" , adVarWChar, adParamInput,  30 , Me![Familu].Column( 1 ))


будет одна строка :)

--
---
Alexey
...
Рейтинг: 0 / 0
04.12.2003, 01:30
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32342765
igor603
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor603
Участник
Прошу прощения, наверно криво сформулировал вопрос (не хотел телепатов тестировать, честно). Есть порядка 20 параметров, которые нужно передать в ХР. Как бы их все вышеприведенным способом не расписывать?
...
Рейтинг: 0 / 0
04.12.2003, 01:40
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32342773
AlexeyU
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexeyU
Гость
вот этого не знаю, скорее всего так нельзя, все равно ведь для каждого параметра придется указать его имя, тип, [inout], длину...

разве что только написать функцию которая принимает только валуе для всех параметорв а внутри себя уже устанавливает все остальные параметры, и вызывать эту функцию.

--
---
Alexey
...
Рейтинг: 0 / 0
04.12.2003, 02:25
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32342798
Фотография Pavel
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Pavel
Участник
cmd.Parameters.Refresh
Тогда вобще не придется прорисывать параметры, ADO самостоятельно заполнит коллекцию. Но эта операция требует времени, и увеличивает наерузку на сервер, так что злоупотреблять ей не стоит.
...
Рейтинг: 0 / 0
04.12.2003, 06:09
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32342934
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
Вот так:

Код: plaintext
CurrentProject.Connection.Execute  "MyProc "  & MyParam1 &  ", "  & MyParam2
ну и так далее, почти до бесконечности ;)
...
Рейтинг: 0 / 0
04.12.2003, 09:59
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32343085
Фотография АлексейК
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
АлексейК
Участник
бывает такая конструкция:

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
sub addprm
Dim cmd As New ADODB.Command

prmvalue = Me![Familu].Column( 1 ): prmname =  "@Fam"  : GOSUB prm
prmvalue = Me![Familu].Column( 2 ): prmname =  "@NAM"  : GOSUB prm
....


exit sub
prm:
cmd.Parameters.Append cmd.CreateParameter(prmname, adVarWChar, adParamInput,  30 , prmvalue)
return

end sub
...
Рейтинг: 0 / 0
04.12.2003, 11:25
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32344205
igor603
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
igor603
Участник
Идеи понятны, спасибо.
...
Рейтинг: 0 / 0
04.12.2003, 22:55
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32344396
Odess
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Odess
Участник
Я чаще пользуюсь методом from Pavel

Код: plaintext
1.
2.
3.
4.
5.
6.
    cmd.Parameters.Refresh
    cmd.Parameters( "@p1" ) = [Forms]![Старт]![Поле41]
    cmd.Parameters( "@p2" ) = DateValue(Me![СДаты]) + TimeValue([Forms]![Старт]![ВЧ])
    cmd.Parameters( "@p3" ) = DateValue(Me![На_дату]) + TimeValue([Forms]![Старт]![ВЧ])
    cmd.Parameters( "@p4" ) = DateValue(Me![СДаты])
    cmd.Parameters( "@p5" ) = DateValue(Me![На_дату])


нечто вроде этого.
И наглядно и нет так длинно.
...
Рейтинг: 0 / 0
05.12.2003, 10:14
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32345287
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 Odess:
А не лучше ли в таком случае запомнить "нужные вещи" в переменные?
...
Рейтинг: 0 / 0
05.12.2003, 17:31
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32345439
Odess
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Odess
Участник
2 AlexJuice
А не лучше ли в таком случае запомнить "нужные вещи" в переменные?

Может и проще - но мне так нагляднее - визуально. Хотя, конечно переменные тоже можно со смыслом назвать ;-)
Ну и если, естественно, в цикле выполняется много раз. А так - я уже давно перестал оптимизировать коды в местах, где выигрыш составит 0,00000012 секунд ;-)
...
Рейтинг: 0 / 0
05.12.2003, 20:06
| Ответить | Цитировать | Написать  
CreateParameter. Упростить синтаксис
    #32345592
Фотография AlexJuice
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AlexJuice
Участник
2 Odess
Но ведь чтобы знать, что выигрыш будет именно таким, нужно сначала проверить... и желательно на разных компах :-)
...
Рейтинг: 0 / 0
06.12.2003, 15:05
| Ответить | Цитировать | Написать  
12 сообщений из 12, страница 1 из 1
Форумы / Microsoft Access [игнор отключен] [закрыт для гостей] / CreateParameter. Упростить синтаксис
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=45&msg=32342762&tid=1677797]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 151ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 53ms
get tp. blocked users:
 2ms
others: 255ms
total:  499ms
созд. / загр.: 499ms
x
x
Закрыть


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