@Kilin

Каким образом из VB с помощью ADO занести в БД (SQL Server2000)
картинки в таблицу с полем image,как считать оттуда данные
в PictureBox или Image ?

0

@RedPank

Мелко-Мягкий предлогает:
- Загрузить картинку через операции чтения файла и AppendChunk
- Перед отображением картинки выгрузить ее из БД в файл (GetChunk + операции записи)
- считать картинку с помощью LoadPicture

0

@Kilin

Все работает
!!!!!!!!!!!!!Нашел в TechNet
Запись:
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=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>'
Set rs = New ADODB.Recordset
rs.Open 'Select * from pub_info', cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.Write rs.Fields('logo').Value
mstream.SaveToFile 'cublogo.gif', adSaveCreateOverWrite
rs.Close
cn.Close
Чтение:
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=<name of your SQL Server>;
Initial Catalog=pubs;User Id=<Your Userid>;Password=<Your Password>'
Set rs = New ADODB.Recordset
rs.Open 'Select * from pub_info', cn, adOpenKeyset, adLockOptimistic
Set mstream = New ADODB.Stream
mstream.Type = adTypeBinary
mstream.Open
mstream.LoadFromFile '<path to .gif file>'
rs.Fields('logo').Value = mstream.Read
rs.Update
rs.Close
cn.Close

0