Kod za dugme za uvoz slike u OLE

Da li neko može da mi pomogne da napravi kod za dugme za uvoz slike u OLE object (isključivo za OLE), jer bih hteo da izbegnem korišćenje desnog tastera za uvoz slike.
Hvala unapred

Ja sam imao slican problem pa sam ga rijesio tako sto slike nisam ubacivao kao ole nego sam u tabeli samo cuvao link do slike a ne sliku. I to mi super radi.

Napravio sam jedno tekstualno polje koje sam nazvao Put (visable=No, control source=*naziv polja u tabeli koje je rezervisano za slike*polje u tabeli mora biti text 255 karaktera, promjeni ako je ole object)

I jednu sliku koju sam nazvao Slika (Picture=(none), Picture type=Linked)

I dugme Ubaci

Na formi:

Private Sub Form_Open(Cancel As Integer)
On Error GoTo Err_Form_Open

If IsNull(Me!Put) Or Me!Put = "" Then
' do nothing
Else
Me!Slika.Picture = Me!Put
End If
Exit_Form_Open:
Exit Sub

Err_Form_Open:
MsgBox Err.Description
Resume Exit_Form_Open

End Sub

Na dugmetu "Ubaci"

Private Sub Ubaci_Click()
On Error GoTo err_cmdBrowse

Me![Put] = GetOpenFile_CLT("C:\", "Select the File")
Me![Put] = LCase(Me![Put])
Me!Slika.Picture = Me!Put

exit_cmdBrowse:
Exit Sub

err_cmdBrowse:
MsgBox Error$
Resume exit_cmdBrowse

End Sub


I u modules importuj prikaceni fajl

Ovo sam nasao negdje na netu i radi super

Svakako hvala Vam na trudu i zelji da mi pomognete. Ja vec imam slicne kodove za uvoz slike kada je u tabeli polje definisano kao text, i to mi nije problem.
Meni iskljucivo treba resenje za uvoz slike u OLE object preko dugmeta, odnosno kod za dugme pomocu koga cu ubaciti sliku u OLE.

To nije problem ali zapamti baza sve vise i vise raste i raste,a u 100mb vec koci i pravisranja. Da tebi treba da slike ako se obrisu iz foldera ostaju u acces-u.

Evo cod :[On Error GoTo Err_CmdLoad_Click


Dim jpg_scale As Long
Dim strfName As String
strfName = m_cDib.FileDialog(True)
If Len(strfName) & vbNullString = 0 Then Exit Sub


jpg_scale = 1

If LoadJPG(m_cDib, strfName, jpg_scale) Then
Call m_cDib.DIBtoPictureData(Me.Image0)
Else
MsgBox "Unable to Load Jpeg Image", vbCritical
Exit Sub

End If

Me.cmdSaveBlob.Enabled = True

Me.FrameSize.Enabled = True

Exit_CmdLoad_Click:
Exit Sub

Err_CmdLoad_Click:
MsgBox Err.Description
Resume Exit_CmdLoad_Click
]

U stvari evo ti primer jer cisto sumnjam da ces se snaci sa ovim kodom.

Uzivaj :

Hvala na primeru i ukapirao sam kako radi i primenio sam u mojoj bazi, ali sad imam drugi problem kada se slika snimi u tabeli ona je u polju OLE Long binary data što meni ne odgovra, da sad ne davim zašto. Meni treba da se slika zapisuje tabelu u polje OLE kao Bitmap Image
Nadam se da možda imate rešenje
Hvala još jednom

Ti taj long binary file po istom principu možeš iskopirati u temp folder i ubaciti je kao controlsource za neki imagebox, a možeš koristiti i bound object frame koji će ti prikazati sliku direktno iz tabele

Potpis

Ozbiljan i odgovoran mladić

Evo ti sad pa probaj !

Samo pazi : Ovo nije najbolje rjesenje zbog rasta baze podataka ! A baza sve dobro radi do 100 MB.

Ali za tebe je ovo rjesenje, pa izvoli !


Enjoy !