Prikazi cijelu temu 20.06.2017 22:00
Gjoreski Van mreze
Administrator
Registrovan od:02.02.2009
Lokacija:Ohrid Makedonija


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):
  1.  Dim mystream As ADODB.Stream
  2.  Set mystream = New ADODB.Stream
  3.         mystream.Type = adTypeBinary
  4.         mystream.Open
  5.         mystream.Write rs.Fields("Slika")
  6.         mystream.SaveToFile App.Path & "\TMP.jpg", adSaveCreateOverWrite
  7.         Image1 = LoadPicture(App.Path & "\TMP.jpg")

Ovo je za uvoz slike u databazi.

PreuzmiIzvorni kôd (Visual Basic):
  1.  rs.AddNew
  2.         Set mystream = New ADODB.Stream
  3.             mystream.Type = adTypeBinary
  4.             mystream.Open
  5.             mystream.LoadFromFile "C:\\" & File '"c:\\myimage.gif"
  6.        rs.Fields("Naziv") = File
  7.         rs.Fields("Sifra") = mystream.Size
  8.         rs.Fields("Slika") = mystream.Read
  9.     '   rs.Update
  10.            mystream.Close
  11.         Text1.Text = File
  12.         DoEvents

a moze i ovako

PreuzmiIzvorni kôd (Visual Basic):
  1.  Set rs = New ADODB.Recordset
  2.       rs.CursorLocation = adUseClient
  3.       rs.Open "INSERT INTO tblArtikli(Slika) VALUES(LOAD_FILE('" & "C:/Sliki/" & File & "'))", cn, adOpenStatic, adLockOptimistic