ADO + Stored Procedure

[Scuder]

Такая фигня - если процедура возвращает рекордсет, всё понятно.
Но если она возвращает значение внутренней переменной (return @DocID), как это значение выдернуть оттуда?

[codemaster]

В MSDN вагон примеров

[Scuder]

Да я его терпеть не могу!

Ну, в общем нашёл то, что нужно, однако столкнулся с такой проблемой:
Входящий параметр в хранимой процедуре "@Param1 ntext".
Делаю следующее:

Код: Выделить всё

sParmName = "Param1"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adChar, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = "test"

Вылетает с ошибкой "Parameter object is improperly defined. Inconsistent or incomplete information was provided." на строке "

Код: Выделить всё

ADOCmd.Parameters.Append ADOPrm

"

И вроде бы понятно, что ругается на тип параметра, но я уже ВСЕ типы из списка перепробовал - ничего не получается..

P.S. все объявления правильные. другие процедуры с входящими параметрами int выполняются нормально. а как этой ntext скормить - that is the question..

[alibek]

Попробуй adBSTR или adVar(W)Char

[Scuder]

О! На adVarChar и adVarWChar так же ругается, а вот adBSTR я как-то и не заметил.. Thx.

[Scuder]

2 alibek

А если параметр такой: @Comment nvarchar(250) ??
Тут уже ничего не помогает.. В т.ч. adVarChar..

[alibek]

А кто СУБД? MS SQL?

[Scuder]

Он самый..

[alibek]

nchar and nvarchar (T-SQL)
Character data types that are either fixed-length (nchar) or variable-length (nvarchar) Unicode data and use the UNICODE UCS-2 character set.

nchar(n)
Fixed-length Unicode character data of n characters. n must be a value from 1 through 4,000. Storage size is two times n bytes. The SQL-92 synonyms for nchar are national char and national character.
nvarchar(n)
Variable-length Unicode character data of n characters. n must be a value from 1 through 4,000. Storage size, in bytes, is two times the number of characters entered. The data entered can be 0 characters in length. The SQL-92 synonyms for nvarchar are national char varying and national character varying.
Remarks
When n is not specified in a data definition or variable declaration statement, the default length is 1. When n is not specified with the CAST function, the default length is 30.

Use nchar when the data entries in a column are expected to be consistently close to the same size.

Use nvarchar when the data entries in a column are expected to vary considerably in size.

SET ANSI_PADDING OFF does not apply to nchar or nvarchar. SET ANSI_PADDING is always ON for nchar and nvarchar.

Из сказанного могу заключить, что должен быть либо adBSTR либо adWChar.
Попробуй, а если не подойдет, завтра еще подумаю.

[Scuder]

Хрень какая-то.. На adWChar он пишет то самое сообщение об ошибке..
А на adBSTR вместо слова "test" функция получает только "t"..

Код: Выделить всё

sParmName = "Comment"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adBSTR, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = "test"

И вообще прикол:

Код: Выделить всё

sParmName = "Comment"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = CStr(1234567890)

В этом случае функция реально получает строку "1234567890"! Обрати внимание на adInteger! И абсолютно не ругается!

Я, кажется, вообще перестаю что-либо понимать в связке VB-ADO-TSQL..

[codemaster]

Хрень какая-то..

И вообще прикол:

Код: Выделить всё

sParmName = "Comment"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Value = CStr(1234567890)

В этом случае функция реально получает строку "1234567890"! Обрати внимание на adInteger! И абсолютно не ругается!

Я, кажется, вообще перестаю что-либо понимать в связке VB-ADO-TSQL..

наверное всетаки так

Код: Выделить всё

sParmName = "Comment"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adInteger, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOPrm.Value = ......

[Scuder]

Те же яйца, вид сбоку..

[alibek]

Фиг его знает. Почему вместо "test" возвращает "t" у меня есть одна идея - unicode-строка "test" возвращается еще раз в unicode, т.е. t*e*s*t*, поэтому у режет. А вот почему оно возвращает так, непонятно. А какой ConnectionString? Может локаль указана неправильно?

[Scuder]

Код: Выделить всё

ATempDB.ConnectionString = "Provider=MSDATASHAPE; Data Provider=SQLOLEDB.1;Password=xxx;Persist Security Info=False;User ID=xxx;Initial Catalog=xxx;Data Source=xxx"
ATempDB.Open

ATempRS.CursorType = adOpenKeyset
ATempRS.LockType = adLockOptimistic
ATempRS.CursorLocation = adUseClient

Не знаю, я повторю: другие процедуры с входящими параметрами типа int, date работают нормально..

...unicode-строка "test" возвращается еще раз в unicode, т.е. t*e*s*t*, поэтому у режет. А вот почему оно возвращает так, непонятно.

Так может, ей в другом формате, отличном от unicode, передавать?

[Scuder]

Короче! Ну ладно я! Первый раз с этим столкнулся, но вы!!

Если @Comment nvarchar(250), то:

Код: Выделить всё

sParmName = "Comment"
Set ADOPrm = ADOCmd.CreateParameter(sParmName, adBSTR, adParamInput)
ADOCmd.Parameters.Append ADOPrm
ADOCmd.Parameters(sParmName).Size = 250
ADOCmd.Parameters(sParmName).Value = "test"

Но в любом случае спасибо 2 alibek за помощь и всем остальным за моральную поддержку.