how to connect access picture(OLE) with vb6

[ashishkhawale]

i m doing Student Info program in VB6 using Access2000 for database
i have connected the file using ADO and Microsoft jet oledb 4.0
the data is connected with vb form but i have sotred student picture(Ole object) in Access file. the picture is not diplaying in vb form. Pls help me for the code.

[9815402440]

hi

the easy way is to save the picture path in access in a text field. when you want to display the image then use loadPicture(<File path>)

i found following code from somewhere on the web (perhaps theScripts.com)

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

regards
manpreet singh dhillon hoshiarpur

[debasisdas]

Please find the details of storing of images and retrival of images in the articles section of VB.