[ Air Live @ 08.11.2007. 17:01 ] @
Dali neko moze da mi pomogne s kojim kodom snimam svoje nove unesene rekorde u bazu podataka i s kojim ih brisem. A tu mi je potreban COD za ucitavanje i slike preko putanje iz baze podataka. Ovako sam to ja radio nekada u VB. Private Sub Ucitaj_Click() On Error GoTo Err_Ucitaj_Click Dim strFilter As String Dim lngFlags As Long strFilter = ahtAddFilterItem(strFilter, "Picture Formats (*.jpg *.jpeg, *.bmp, *.gif)", "*.jpg; *.jpeg; *.bmp; *.gif") Filename = ahtCommonFileOpenSave(InitialDir:=pathname, _ Filter:=strFilter, FilterIndex:=3, flags:=lngFlags, _ DialogTitle:="Select Picture File") Me.Putanja = Filename Me.slika.Picture = Filename Exit_Ucitaj_Click: Exit Sub Err_Ucitaj_Click: MsgBox "Dati format slike nije moguće učitati ?", vbExclamation, "Poruka" Resume Exit_Ucitaj_Click End Sub [code] Evo i primer ! |