Novo

Forum kao aplikacija na telefonu

Dodajte forum na početni ekran i koristite ga kao aplikaciju, sa menijem na dnu ekrana.

  • 8 odgovora
  • 6.786 pregleda

Najnovija ↓

slike i access - pomoc 17.11.2005. u 20:53 · pre 255 meseci #1

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?
Re: slike i access - pomoc 18.11.2005. u 00:57 · pre 255 meseci #2
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).
Potpis
Pozdrav,
Branislav
Re: slike i access - pomoc 27.02.2006. u 12:07 · pre 251 mesec #3


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
Re: slike i access - pomoc 15.05.2007. u 21:35 · pre 236 meseci #5
Samo linkove, poslušaj banema. Slike drži u nekom folderu uz bazu.
Re: slike i access - pomoc 16.05.2007. u 00:59 · pre 236 meseci #6
Kako se na najlaksi nacin radi linkovanje slika u JPEG formatu iz nekog foldera?

Poz!
Potpis
Bez muke nema nauke!!!
Re: slike i access - pomoc 16.05.2007. u 11:06 · pre 236 meseci #7
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....
Potpis
ZagorecForEver
Re: slike i access - pomoc 05.01.2013. u 17:30 · pre 168 meseci #8
skinu sam tvoju bazu za uvlacenje slike i baza radi kada to sve prebacim u moju onda ne radi neprepozanje Dim fd As FileDialog jednostavno prijavljuje greška, pojasnite mi molim vas. unapred hvala IKA
Re: slike i access - pomoc 05.01.2013. u 21:30 · pre 168 meseci #9
Sreća pa je tema sveža,pre "samo" 6 godina je postavljena. Da ne bi čekao zagorca da se javi evo da ti ja odgovorim.Nedostaje ti referenca:Microsoft Office 11.0 Object Library. ili 12.0 ili 14.0,u zavisnosti koji Access koristiš. Odeš u VBA editor (desni klik na formu,pa DesignView-Tools-Visual Basic),pa tools-References pa nađeš gore navedenu referencu.Pozdrav.
Potpis
Jednog dana...
Prijavite se da biste odgovorili u ovoj temi.PrijavaRegistracija

Premeštanje teme