Thank u so much for sending this code,and i appreciate it so much.But i need to be able to move foward by getting thesame code that will save into the database,Others conversion i used were'nt working.Pls help me with the code that will save in to the database(SQL server) with VB6 this is the one that is loading from the DB

Dim CN As New ADODB.Connection
Dim RS As ADODB.Recordset
Dim DataFile As Integer, Fl As Long, Chunks As Integer
Dim Fragment As Integer, Chunk() As Byte, i As Integer, FileName As String

Private Const ChunkSize As Integer = 16384
Private Const conChunkSize = 100

Private Sub Form_Load()
CN.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Pubs;Data Source=Test"
Dim strsql As String

strsql = "SELECT * FROM pub_info where pub_id = '9999'"
RS.Open strsql, CN, adOpenForwardOnly, adLockReadOnly
ShowPic
Set RS = Nothing
Set RS = New Recordset
End Sub

Private Sub ShowPic()
DataFile = 1
Open "pictemp" For Binary Access Write As DataFile
Fl = RS!logo.ActualSize ' Length of data in file
If Fl = 0 Then Close DataFile: Exit Sub
Chunks = Fl \ ChunkSize
Fragment = Fl Mod ChunkSize
ReDim Chunk(Fragment)
Chunk() = RS!logo.GetChunk(Fragment)
Put DataFile, , Chunk()
For i = 1 To Chunks
ReDim Buffer(ChunkSize)
Chunk() = RS!logo.GetChunk(ChunkSize)
Put DataFile, , Chunk()
Next i
Close DataFile
FileName = "pictemp"
Picture1.Picture = LoadPicture(FileName)
End Sub

I need exact of this that will save into DB

Thanks.Pls treat urgently

The one i tried were bringing different binary conversion different from the one u sent to me and from there i could not compare the one in the backend to the picture in the front end.unless i get thesame binary conversion that is when i would be able to compare and from there trap the duplicate of that binary
Thanks

if there is any primay key in your table then
1.when you movenext retrive the value of the PK field
2.pass the same in a query to database
3.fetch the blob field.
4.convert the code to an image file.

This article has been dead for over six months. Start a new discussion instead.