Re: Storing Images In A Table

[Scott Downey]

load picture using ADO this works for both MSSQL and MySQL
rsPatron is the recordset, PatronPicture is the field

Databse definition for the field for MySQL then MSSQL is:
PatronPicture MEDIUMBLOB
PatronPicture IMAGE NULL


Loading the picture on my form using an image control:
Set imgPatronPicture.DataSource = rsPatron
imgPatronPicture.DataField = "PatronPicture"


' update the picture to database
'the commondialog1.filename is the loacation of the picture

Dim RS As New ADODB.Recordset
RS.CursorLocation = adUseClient
SQLQuery = "Select Id, patronfile_name, patronfile_size, patronpicture from Patrondata where Id = '" & frmLogon.PWhereIdn & "'"

RS.Open SQLQuery, frmLogon.cnConnection, adOpenStatic, adLockOptimistic

Dim mystream As New ADODB.Stream

mystream.Type = adTypeBinary
mystream.Open
mystream.LoadFromFile CommonDialog1.FileName

'Once we have a file loaded into the stream, we can populate the recordset
'and update it back to MySQL:

RS!patronfile_name = CommonDialog1.FileName
RS!patronfile_size = mystream.Size
RS!Patronpicture = mystream.Read
RS.Update
RS.Close
mystream.Close

'set the picture in image control!
Set imgPatronPicture = LoadPicture(CommonDialog1.FileName)