 | Expert | | Join Date: Jun 2006 Location: Seremban, Malaysia
Posts: 1,630
# 1
Dec 4 '06
| |
BLOB - Retieve image stored in database -
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
-
Last edited by debasisdas; Nov 20 '07 at 07:25 AM.
Reason: Formatted using code=vb tags.
|
