Predmet:Re: Uvoz Slika ...
Sat vremena trazim ovo gje sam stavio i uspeo sam da nadzem gde je.
Ja sam iskoristio za ovo ADO comande evo cod za izvoz slike iz databaze.
PreuzmiIzvorni kôd (Visual Basic): Dim mystream As ADODB.Stream
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
mystream.Open
mystream.Write rs.Fields("Slika")
mystream.SaveToFile App.Path & "\TMP.jpg", adSaveCreateOverWrite
Image1 = LoadPicture(App.Path & "\TMP.jpg")
Ovo je za uvoz slike u databazi.
PreuzmiIzvorni kôd (Visual Basic): rs.AddNew
Set mystream = New ADODB.Stream
mystream.Type = adTypeBinary
mystream.Open
mystream.LoadFromFile "C:\\" & File '"c:\\myimage.gif"
rs.Fields("Naziv") = File
rs.Fields("Sifra") = mystream.Size
rs.Fields("Slika") = mystream.Read
' rs.Update
mystream.Close
Text1.Text = File
DoEvents
a moze i ovako
PreuzmiIzvorni kôd (Visual Basic): Set rs = New ADODB.Recordset
rs.CursorLocation = adUseClient
rs.Open "INSERT INTO tblArtikli(Slika) VALUES(LOAD_FILE('" & "C:/Sliki/" & File & "'))", cn, adOpenStatic, adLockOptimistic