ADO и BLOB нехватка памяти

sand61
Дата: 15.02.2010 09:58:37
День добрый.
Помогите разобраться

Пытаюсь загрузить файл размером в 300mb в базу система выдает ошибку (файлы меньшего размера загружаются нормально)
недостаточно памяти run-time error '2147024882(8007000e0'
MS SQL 2008 standart

Вот мой код

Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim mstream As ADODB.Stream

Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB;data Source=SRV-SQL;Integrated Security=SSPI;Persist Security Info=False"

Set rs = New ADODB.Recordset
rs.Open "SELECT [timestamp]" + _
",[Type] ,[Project No_] ,[Order No_],[Line Material] ,[Line No_]" + _
",[Vid]" + _
",[code]" + _
",[Name]" + _
",[Size]" + _
",[Expansion]" + _
",[Date Load]" + _
",[FileBlob]" + _
" FROM [nav5-testmain].[dbo].[CRONUS Россия ЗАО$NTT Files]" + _
" WHERE [Line No_]=10000 ", cn, adOpenKeyset, adLockOptimistic

Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile "C:\091204.jpg"

rs.Fields("FileBlob").Value = mstream.Read
rs.Update

rs.Close
cn.Close

Если есть другой способ загрузки файлов в базу подскажите пжл
Crimean
Дата: 15.02.2010 10:09:19
ИМХО кусками надо такое грузить через writetext. к сожалению, стандартного API, которое бы это делало нет - самому писать надо