Store an images or documents in the SQL database 1

[ayh8disjob]

Does anyone know how to store an images or documents in the SQL database and retreiving it back?

any tutorial or a sample code would be much appreciated.

Thanks in Advance!!!

 

[harmmeijer]

http://www.experts-exchange.com/Programming/Programming_Languages/Visual_Basic/Q_20123549.html

Private Sub SaveToDatabase()
Dim objCnn As ADODB.Connection
Dim objRst As ADODB.Recordset
Dim objStm As ADODB.Stream

Set objCnn = CreateObject("ADODB.Connection&quot
Set objRst = CreateObject("ADODB.Recordset&quot
Set objStm = CreateObject("ADODB.Stream&quot

objCnn.Open "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=mssql2;DATABASE=PUBS;UID=sa;PWD="

objStm.Type = adTypeBinary
objStm.Open
objStm.LoadFromFile "d:\test.gif"

strSQ = "SELECT logo FROM pub_info WHERE pub_id = '0736'"
objRst.Open strSQ, objCnn, 3, 3

objRst("logo&quot = objStm.Read
objRst.Update
End Sub

Private Sub SaveToFile()
Dim objCnn As ADODB.Connection
Dim objRst As ADODB.Recordset
Dim objStm As ADODB.Stream

Set objCnn = CreateObject("ADODB.Connection&quot
Set objRst = CreateObject("ADODB.Recordset&quot
Set objStm = CreateObject("ADODB.Stream&quot

objCnn.Open "PROVIDER=MSDASQL;DRIVER={SQL Server};SERVER=mssql2;DATABASE=PUBS;UID=sa;PWD="

strSQ = "SELECT logo FROM pub_info WHERE pub_id = '0736'"
objRst.Open strSQ, objCnn, 3, 1

objStm.Type = 1
objStm.Open

objStm.Write objRst("logo&quot

objStm.SaveToFile "d:\test.gif", adSaveCreateOverWrite
End Sub

 

[harmmeijer]

Thanx