Pomoc VB - slike

[ BRATISLAV @ 22.05.2003. 10:01 ] @

Zdravo svima!
Pocetnik sam u VB, pa mi treba mala pomoc. Hocu da napravim tabelu u Access- u sa dve kolone. U jednoj da budu imena i prezimena, a u drugoj slike tih ljudi. Iz VB bih pravio upite. Ne znam kako da smestim slike u Access, ako to uopste moze i, kako da ih prikazem u VB. Problem mi je i kako da kada izvrsim upit za nek osobu, da mi se pojavi i slika uz tu osobu. Mozda moze nekako drugacije da se to odradi.
Hvala unapred.

[ Krsta @ 23.05.2003. 12:43 ] @

U toj drugoj koloni gde bi slike, stavi samo putanju (path) do slike gde se nalazi slika. To ti je, po meni, najbolje resenje.

[ mladenovicz @ 23.05.2003. 16:06 ] @

Mozes sliku u bazi da cuvas kao OLE object, ali ako si pocetnik bolje je da koristis prethodno resenje sa pathom.

[ BRATISLAV @ 02.06.2003. 09:47 ] @

Hvala na pomoci, radi. Pozdrav!

[ byTer @ 03.06.2003. 01:33 ] @

Jesi probao da upises u OLE Container polje u Accessu iz aplikacije?

[ BRATISLAV @ 06.06.2003. 08:49 ] @

Probao sam sa putanjom, i to radi. Probao sam i drugi nacin.Ubacim slike u bazu kao ole object, a u vb postavim ole kontrolu i data kontrolu, kojoj odredim putanju za slike. I to radi, ali mi se ne svidja, jer kad aktiviram sliku ona se otvara u acd see,a ja bih hteo da se prikaze u okviru ole kontrole. Verovatno moze, ali ja ne znam kako. Ako mozes objasni mi ukratko sta si ti mislio. Da li mogu da izostavi data kontrolu i da preko upita prikazem sliku u ole kontroli i kako.

[ BeastMaster @ 15.12.2003. 22:34 ] @

Citat:

mladenovicz:
Mozes sliku u bazi da cuvas kao OLE object, ali ako si pocetnik bolje je da koristis prethodno resenje sa pathom.

Možeš li da pastuješ kod koji čita sliku pomoću patha (slika se nalazi u odvojenom folderu a ne u access bazi) i prikazuje je u VB6 bazi?
Pozdrav

[ mladenovicz @ 16.12.2003. 10:28 ] @

Citat:

BeastMaster:
Možeš li da pastuješ kod koji čita sliku pomoću patha (slika se nalazi u odvojenom folderu a ne u access bazi) i prikazuje je u VB6 bazi?
Pozdrav

Nije mi jasno sta hoces. Slika treba da se cita pomocu patha i da se prikaze u VB6 bazi? Ajde pojasni sta hoces.

Ovaj kod cita sliku koja je zadata preko svog patha i prikazuje je u PictureBoxu

Code:

Set Picture1.Picture = LoadPicture("C:\c1.gif")

[ BeastMaster @ 16.12.2003. 14:42 ] @

Pazi baza je zasnovana na access bazi, i u polju slika u tabeli baze mi stoji samo putanja do slika koje se nalaze u zasebnom direktorijumu. Svaki record ima svoju sliku. E ono što meni treba je da kad iz baze pozovem podatke za recimo Peru Perića meni pored ostalih podataka u toj istoj formi prikaže i njegovu sliku (koja se ne nalazi u tabeli baze već van) i tako za sve ostale osobe iz te baze. Nadam se da sam bio jasniji :)

[ mladenovicz @ 16.12.2003. 15:08 ] @

to polje u kom se cuva path do slike, na formi predstavi jednim text boxom koji je Visible=False. Na formi treba da imas i jednu PictureBox kontrolu u kojoj ce se prikazivati slika. Onda na Change eventu za textbox stavis ovaj kod:

Code:

Private FSO As New Scripting.FileSystemObject

Private Sub Text1_Change()
    If FSO.FileExists(Text1.Text) Then
        'ako fajl postoji prikazi sliku
        Set Picture1.Picture = LoadPicture(Text1.Text)
    Else
        ' fajl ne postoji prikazi neku default sliku
        Set Picture1.Picture = LoadPicture(DefaultImagePath)
    End If
End Sub

ako su ti polja boundovana ovo bi trebalo da radi.

Ako polja na formi nisu boundovana onda tamo gde citas podtake iz baze i popunjavas text boxove na formi mozes da stavis

Code:

Text1.Text= adoRecordset("ImePoljaKojeSadrziPath")

i sa onim Change eventom ce raditi, a mozes umesto ove linije da stavis i ovo:

Code:

    If FSO.FileExists(adoRecordset("ImePoljaKojeSadrziPath")) Then
        'ako fajl postoji prikazi sliku
        Set Picture1.Picture = LoadPicture(adoRecordset("ImePoljaKojeSadrziPath"))
    Else
        ' fajl ne postoji prikazi neku default sliku
        Set Picture1.Picture = LoadPicture(DefaultImagePath)
    End If

s tim sto ti onda ne treba onaj kod na Change eventu

[ BeastMaster @ 16.12.2003. 22:52 ] @

Hvala ti, ovo je rešilo moj problem:

Code:
Set Image1.Picture = LoadPicture(txtPic.Text)

Umesto Picture box-a sam koristio Image samo zbog stretch funkcije.
Pozdrav