[es] - slike i access

karlos13

Član broj: 73069
Poruke: 31
*.cmu.carnet.hr.

Profil

^{17.11.2005. u 19:53}

radim bazu koja medju ostalim treba sadrzavati i oko 200 slika.. slike su jpeg, velicine cca 300kb i linkom su ubacivane u bazu. baza ce biti koristena na mrezi izmedju vise korisnika...
dosad sam ubacio 10-tak slika. zastao sam se kad sam vidio da mi je baza kad je otvorim s drugog racunala troma ili da mi zauzima oko 150MB! a nisam ni na trecini puta...
sto da napravim?
da li da kreiram posebnu bazu samo za slike koju cu onda linkat na "pravu" bazu ili da podijelim bazu (front end i back end) pa da tako razdvojim podatke...
koje rjesenje je bolje i brze za mrezni rad?

^{17.11.2005. u 19:53}

banem
Branislav Mihaljev
Administrator mreže
Kikinda

Član broj: 16619
Poruke: 173
*.smin.sezampro.yu.

Sajt: www.praktikum.co.yu

Profil

Re: slike i access - pomoc

^{17.11.2005. u 23:57}

Najbolje je da slike držiš van baze u JPG formatu, a u bazi samo linkove do njih. Unošenjem slika u bazu one se pretvaraju u "običan" format tipa BMP (probaj prebaci sliku iz JPG u BMP pa ćeš videti veličinu).

Pozdrav,
Branislav

^{17.11.2005. u 23:57}

DSavic

Član broj: 83445
Poruke: 30
*.telekom.yu.

Profil

Re: slike i access - pomoc

^{27.02.2006. u 11:07}

Option Compare Database
Dim dbPath As String
Private Sub Command6_Click()
getFileName
End Sub
Private Sub Form_Current()
Dim res As Boolean
Dim fName As String

On Error Resume Next
errormsg.Visible = False
fName = dbPath & Me![SLIKA]

Me![ImageFrame].Picture = fName
showImageFrame
Me.PaintPalette = Me![ImageFrame].ObjectPalette
End Sub
Sub showImageFrame()
Me![ImageFrame].Visible = True
End Sub
Sub getFileName()

Dim fileName As String
Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Izaberite sliku"
.Filters.Add "Svi fajlovi", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Bitmaps", "*.bmp"
.FilterIndex = 2
.AllowMultiSelect = False
.InitialFileName = dbPath
result = .Show
If (result <> 0) Then
fileName = right(Trim(.SelectedItems.Item(1)), InStr(StrReverse(Trim(.SelectedItems.Item(1))), "\") - 1)
Me![SLIKA].Visible = True
Me![SLIKA].SetFocus
Me![SLIKA].Text = fileName
Me![SLIKA].SetFocus
End If
End With
End Sub
Private Sub Form_Open(Cancel As Integer)
dbPath = CurrentProject.Path & "\Slike\"

End Sub

^{27.02.2006. u 11:07}

SAFF
Computer Art

Član broj: 49147
Poruke: 140
77.46.199.*

Jabber: eco@graphic-designer.com
Sajt: www.esad.tk

Profil

Re: slike i access - pomoc

^{15.05.2007. u 13:33}

Kako uopste da ubacim sliku u bazu podataka (access) ili da linkam slike!

SAFF
Alles ist in ordnung...
http://www.esad.tk

^{15.05.2007. u 13:33}

Fanta
Fanta Genije

Član broj: 119794
Poruke: 94
*.cmu.carnet.hr.

Profil

Re: slike i access - pomoc

^{15.05.2007. u 20:35}

Samo linkove, poslušaj banema. Slike drži u nekom folderu uz bazu.

^{15.05.2007. u 20:35}

Pike79

Član broj: 52785
Poruke: 199
*.beobug.com.

Profil

Re: slike i access - pomoc

^{15.05.2007. u 23:59}

Kako se na najlaksi nacin radi linkovanje slika u JPEG formatu iz nekog foldera?

Poz!

Bez muke nema nauke!!!

^{15.05.2007. u 23:59}

zagorecForEver
Krapina

Član broj: 63062
Poruke: 36
195.29.173.*

Profil

Re: slike i access - pomoc

^{16.05.2007. u 10:06}

Pozdrav. i ja sam imao slicno pitanje na ovom forumi o dobio sam odgovre.
pogledaj pod http://www.elitesecurity.org/t159933-0 mozda ti pomogne.
Ja imam gotov primjer, ali eto trazim na koji nacin da ga zakacim za poruku.. ali nemogu naci...:-((
....
zapravo sam pronasao.
Ovaj primjer je napravljen uz pomoc clanova ovogo foruma i zapravo su oni AUTORI ja sam samo "poslozio slikice" :-))
Raspakiraj na neki direktorij i isprobaj da li je to to....

ZagorecForEver

Prikačeni fajlovi

filmoteka.rar - 520.41k

^{16.05.2007. u 10:06}