а никто не пробовал работать только с хранимыми процедурами, передавая в качестве параметра смещение и сколько прочитать (записать)?

CREATE PROCEDURE Tst
@pk_id int,
@offset int,
@size int
AS
BEGIN
DECLARE @ptrval varbinary(16)

INSERT INTO tbl (img) VALUES('xxx')
SELECT @ptrval = TEXTPTR(img)
READTEXT tbl.pr_info @ptrval @offset @size
END

Но вот проблема, создаю ADODB.Command объект, заполняю параметры, все как обычно.
А как в VB получить adVarLongBinary данные? Мне нужна нек-я структура в памяти.
Что-то типа set rs = cmd.Execute? При этом rs.fields(0).value всегда выдает '??'. Похоже какой-то указатель, но почему одно и то же значение?

Попробовал идею из http://support.microsoft.com/default.aspx?scid=kb;RU;q258038
Вариант byteArray(i) = ado_stream.Read(1) не проходит, ругается на несоответствие типов

В QA все работает правильно (записывается в любое место, читается и правильно отображается).

PS: не хотелось бы работать с rs, поскольку заводить его ради одного (пускай большого)значения не правильно.

вот так оно на самом деле

CREATE PROCEDURE Tst
@pk_id int,
@offset int,
@size int
AS
BEGIN
DECLARE @ptrval varbinary(16)

SELECT @ptrval = TEXTPTR(img)
from tabl
where PKID = @pk_id
READTEXT tbl.pr_info @ptrval @offset @size

END

Я НАШЕЛ!
Надо обновить MDAC до 2.7, тогда появляется возможность возвращать результат запроса в поток.

делаем так
private function F... (PKID_value As Long, Offset_value As Long, Size_value As Long) as ADODB.Stream
Dim param_Return As ADODB.Parameter
Dim param_in_PKID As ADODB.Parameter
Dim param_in_OFFSET As ADODB.Parameter
Dim param_in_SIZE As ADODB.Parameter
Dim cmd As ADODB.Command
Dim AdoStream As ADODB.Stream

Set AdoStream = New ADODB.Stream
AdoStream.Open

Set cmd = New ADODB.Command
With cmd
.ActiveConnection = NBC
.CommandType = adCmdStoredProc
.CommandText = "sp_get_......"
.Properties("Output Stream") = AdoStream
End With

Set param_in_PKID = cmd.CreateParameter
With param_in_PKID
.Direction = adParamInput
.Name = "in_PKID"
.Type = adInteger
.Size = 1
.Value = PKID_value
End With

Set param_in_OFFSET = cmd.CreateParameter
With param_in_OFFSET
.Direction = adParamInput
.Name = "in_OFFSET"
.Type = adInteger
.Size = 1
.Value = Offset_value
End With

Set param_in_SIZE = cmd.CreateParameter
With param_in_SIZE
.Direction = adParamInput
.Name = "in_SIZE"
.Type = adInteger
.Size = 1
.Value = Size_value
End With

Set param_Return = cmd.CreateParameter
With param_Return
.Direction = adParamReturnValue
.Type = adInteger
.Name = "Return"
End With

With cmd
.Parameters.Append param_Return
.Parameters.Append param_in_PKID
.Parameters.Append param_in_OFFSET
.Parameters.Append param_in_SIZE
.Execute , , adExecuteStream
End With

F= AdoStream

на стороне сервера обычная процедура один в один из MSDN
SELECT @prt_val= TEXTPTR(tbl_.БЛОБ)
FROM tbl_
where tbl_.PKID =@pk_id
READTEXT tbl_.БЛОБ @prt_val @offset @size

Максимальный размер записываемого (считываемого) блока не проверял, поскольку мои данные - числа и 1024 байта на блок мне хватает с избытком.