Вообщето это тема уже заезженная, но вот нигде в форуме я так и не увидел, как записать binary object в базу..-(( Кому нибудь это удавалось через ХП делать, а не через рекорсеты (тут то без проблем)
Вот как я пытался сделать, может что ни так делаю..:
Dim c As ADODB.Command
Dim cn As ADODB.Connection
Dim p As ADODB.Parameter
Set cn = New ADODB.Connection
Dim st As ADODB.Stream
Set st = New ADODB.Stream
st.Type = adTypeBinary
st.Open
st.LoadFromFile "C:\tt.jpg"
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=GIS;Data Source=xxxxx"
Set c = New ADODB.Command
c.CommandType = adCmdStoredProc
c.CommandText = "p_save_image"
Set p = c.CreateParameter("@i", adBinary, adParamInput)
p.AppendChunk st.Read
c.Parameters.Append p
c.Execute
---------
ХП:
CREATE PROCEDURE [dbo].[p_save_image]
@i image
AS
insert into t_OLE (OLE) values(@i)
go

Чувствую придется на Delphi предется писать...
там это делается без малейших проблем (но парралельно возникает много новых проблем -)) )
st:=TFileStream.Create('C:\tt.jpg', fmOpenRead or fmShareDenyWrite);
p1.Parameters.ParamByName('@i').LoadFromStream(st,ftBlob);
p1.ExecProc;

Иногда мне этот блин VB задвинуть хочется, но все разработки ведуться на нем.. -(( Как упрешься в какую-нибудь фигню, которой никогда в нормальном языке не возникнет, так пол дня тратишь на это..