|
|
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Я раньше не пользовался для запуска ХП из ADODB.Command (лень было слишком длинный код писать), вызывал через adodb.connection, но жизнь заставила... надо написать приложение, которое абсолютно корректно будет передовать параметры на сервер, не зависимо от локальных настроек. Написал, все работает (с российскими настройками), а с американскими не хочет.. Говорит-Type name is invalid (в строке cm.execute). Почему так происходит, не пойму..Может кто-нибудь сталкивался? Вот такой код: Dim CM As ADODB.Command Dim pr1 As ADODB.Parameter Dim pr2 As ADODB.Parameter Set CM = New ADODB.Command Set CM.ActiveConnection = dbs CM.CommandType = adCmdStoredProc CM.CommandText = "p_set_sales_price" Set pr1 = CM.CreateParameter("@id", adBigInt, adParamInput) Set pr2 = CM.CreateParameter("@price", adDouble, adParamInput) pr1.value = REST_ID pr2.value = CDbl(tPrice.Text) CM.Parameters.Append pr1 CM.Parameters.Append pr2 CM.Execute ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 16:26:09 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Dim CM As ADODB.Command Dim pr1 As ADODB.Parameter Dim i as iNteger Dim s as Double 1=REST_ID s = val(tPrice.Text) Set CM = New ADODB.Command Set CM.ActiveConnection = dbs CM.CommandType = adCmdStoredProc CM.CommandText = "p_set_sales_price" Set pr1 = CM.CreateParameter("id", adBigInt, adParamInput,,i) CM.Parameters.Append pr1 Set pr1= CM.CreateParameter("price", adDouble, adParamInput,,s) CM.Parameters.Append pr1 CM.Execute А втаком варианте попробуй ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 16:49:01 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Аналогичная фигня.. Мда, как говорится, лучшее - враг хорошего, всегда работал через connection.execute и бед не знал.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 16:55:58 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Не усложняйте себе жизнь Dim CM As ADODB.Command Set CM = New ADODB.Command Set CM.ActiveConnection = dbs CM.CommandType = adCmdStoredProc CM.CommandText = "p_set_sales_price" CM(1) = REST_ID CM(2) = CDbl(tPrice.Text) CM.Execute ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 17:24:16 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
А сама ХП работает, REST_ID точно INteger CDbl(tPrice.Text) точно вернет DOuble О сорри понял - разделитель между дробной и челой частью разный,попробуй пропарсить значения tPrice.Text как строку,поменяй значение разделителя и попробуй впихнуть ето значение в процедуру как число,или передавай как строку и в самой ХП поменять уже на нужное ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 17:50:11 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Дело в том, что я дробные части и не вводил... До запуска ХП дело не доходит - трэйсером смотрел... Проблема где-то на уровне ADODB... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 18:15:57 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
а если попробовать dbo.p_set_sales_price ... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 18:26:35 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Блин нет барахлит:(( Я вот думаю может у тебя гдето в ХП параметры имеют тип совсем не флоат,а каккой нибудь нумерик ? Ну уж очень похожее сообщение на то когда пытаешся не тот тип передать,или не тот порядок следования аргументов при вызове ХП,у тебя какой MDAC стоит? ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 18:38:56 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Не помогает... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 18:43:44 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
да и @ убери.... Dim CM As ADODB.Command Set CM = New ADODB.Command Set CM.ActiveConnection = dbs CM.CommandType = adCmdStoredProc CM.CommandText = "dbo.p_set_sales_price" CM.Parameters.Append CM.CreateParameter("id", adBigInt, adParamInput,,REST_ID ) CM.Parameters.Append CM.CreateParameter("price", adDouble, adParamInput,,CDbl(tPrice.Text)) CM.Execute ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 19:14:09 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Попробую, но сам факт, что на одном компе моя конструкция отлично работает, а на другом какой то бред.. ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 12.09.2002, 19:32:24 |
|
||
|
Ошибка при вызове ХП через ADODB.Command
|
|||
|---|---|---|---|
|
#18+
Если кому интересно, то эта фигня вылечилась установкой mdac 2.7... ... |
|||
|
:
Нравится:
Не нравится:
|
|||
| 13.09.2002, 13:19:36 |
|
||
|
|

start [/forum/topic.php?fid=46&msg=32050217&tid=1820367]: |
0ms |
get settings: |
5ms |
get forum list: |
8ms |
check forum access: |
2ms |
check topic access: |
2ms |
track hit: |
36ms |
get topic data: |
6ms |
get forum data: |
1ms |
get page messages: |
30ms |
get tp. blocked users: |
1ms |
| others: | 198ms |
| total: | 289ms |

| 0 / 0 |
