[RESOLVED] Picture in databsase

[matrik02]

I use microsoft access.. How to store the picture in database and view the picture in Visual Basic? How to start?

[vksingh24]

there is two way

1) Store the path of the image in access file and store all your images in a directroy

2) Store all the images in a column of type OLE Object. You need to access it through ADO Stream Object

[Mark Gambo]

I use microsoft access.. How to store the picture in database and view the picture in Visual Basic? How to start?

RhinoBull has two links in signature:

Save File To Database
Extract File From Database

But IMHO, you would be better of storing the path to the picture file instead.

Here are a few other Links:
http://www.vbforums.com/showthread.php?t=475765
http://www.vbforums.com/showthread.php?t=482636

[matrik02]

there is two way

1) Store the path of the image in access file and store all your images in a directroy

2) Store all the images in a column of type OLE Object. You need to access it through ADO Stream Object

I have picture box and I named it as Picture1. How to access the path file of the image through ADO and view the image in Picture box? Have a sample to start?

[vksingh24]

Here is a very basic example

Private Sub Command1_Click()
'Reading from Database into PictureBox
 
If DE.CON.State = adStateClosed Then
    DE.CON.Open
End If
 
Dim adors As ADODB.Recordset
Set adors = DE.CON.Execute("SELECT * from mypicTable")
Picture1.Picture = LoadPicture(adors.Fields(0))
 
End Sub
 
Private Sub Command2_Click()
 
'Saving Image Path into Directory
 
Dim myDirectory As String
myDirectory = "C:\"
cd1.Action = 1
If Len(cd1.FileName) > 0 Then
    Text1.Text = cd1.FileName
End If
If DE.CON.State = adStateClosed Then
    DE.CON.Open
End If
 
Dim adors As ADODB.Recordset
Set adors = DE.CON.Execute("INSERT INTO myPicTable values('" & myDirectory & Right(cd1.FileName, (InStr(1, StrReverse(cd1.FileName), "\") - 1)) & "')")
Picture1.Picture = LoadPicture(Text1.Text)
SavePicture Picture1.Picture, "C:\" & Right(cd1.FileName, (InStr(1, StrReverse(cd1.FileName), "\") - 1))
 
 
End Sub

[matrik02]

I am interest with this code. I have field name and path name of the image store in this field name.My field name is "Picture". How I can access this field name? From the code,I don't see the column name to access the picture path location

Private Sub Command1_Click()'Reading from Database into PictureBox 
If DE.CON.State = adStateClosed Then    
DE.CON.Open End 
If Dim adors As ADODB.Recordset
Set adors = DE.CON.Execute("SELECT * from mypicTable")
Picture1.Picture = LoadPicture(adors.Fields(0)) 
End Sub

[vksingh24]

You can use the column name

Private Sub Command1_Click()'Reading from Database into PictureBox 
If DE.CON.State = adStateClosed Then    
DE.CON.Open End 
If Dim adors As ADODB.Recordset
Set adors = DE.CON.Execute("SELECT Picture from mypicTable")
Picture1.Picture = LoadPicture(adors.Fields(0)) 
End Sub

[matrik02]

Store all the images in a column of type OLE Object. You need to access it through ADO Stream Object

I forgot to mention.. I try to familiar it by using OLE object . I set the field name data type as OLE Object. How to put the image on this field name?

[vksingh24]

isn't the first method solved your problem?

[matrik02]

Thank you so much.. I work. But I have two path location store in the column name. It work for one picture. How to go to the next picture and view it?

[vksingh24]

To go to next picuture you can use

adors.MoveNext

Are you showing it into two picturebox or one picture box

[matrik02]

Why It only work for first record?I have path location in first and second record. I want to show the image into one picture box when I click next button. I would like to know what the number used for in this line LoadPicture(adors.Fields(0))?

Dim adors As ADODB.Recordset
Private Sub Command1_Click()
'Reading from Database into PictureBox

If con.State = adStateClosed Then
    con.Open
End If

'Dim adors As ADODB.Recordset
Set adors = con.Execute("SELECT Gambar from Penyakit_padi")
Picture1.Picture = LoadPicture(adors.Fields(0))

End Sub

[vksingh24]

Write the following code for the next button

Private Sub CommandNEXT_Click()
'Reading from Database into PictureBox
adors.movenext
Picture1.Picture = LoadPicture(adors.Fields(0))
End Sub

LoadPicture(adors.Fields(0))

The no here is just the indicating the first column of the recodset, you can also write it

LoadPicture(adors.Fields("Gambar"))

[a-a06]

hi.. considering this post as resolved... but i would like to ask how to start this codes?