title image


Smiley Re: VB6 / Access 2K: Bild aus OLE-Datenbankfeld in Picture Box übertragen
Hi,



hier ein Beispiel. Es verzichtet auf OLE: Die Bilder sollen nicht nur nach Titel, sondern auch nach Byte-Strukturen recherchierbar sein.



Vereinfachte Ausführung: Benötigt auf der Form 2 Pictureboxen und 2 Buttons:



Titel = String

Len = Zahl

Bild = MEMO !'<---------







      

Private DB As Database



Private Sub Form_Load()

   Set DB = DBEngine.OpenDatabase("D:\db3.mdb", False, False)

End Sub



Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)

   DB.Close

   Set DB = Nothing

End Sub



Private Sub Loader_click()

   Dim rs As Recordset

   Dim s As String

   Dim sql As String

   

   sql = "SELECT * From TT Where Titel = 'Test1'"

   Set rs = DB.OpenRecordset(sql, dbOpenDynaset)

   If rs.EOF Or rs.BOF Then Exit Sub

   Open "D:\Test.bmp" For Output As #1

   s = rs.Fields("Bild").GetChunk(0, rs!Len)

   Print #1, s

   Close #1

   Picture2.Picture = LoadPicture("D:\test.bmp")

   

   rs.Close

   Set rs = Nothing

End Sub



Private Sub saver_Click()

   Dim rs As Recordset

   Dim s As String

   Static n As Long

   n = n + 1

   

   Set rs = DB.OpenRecordset("TT")

   

   If Dir("D:\Test.bmp") <> "" Then Kill "D:\Test.bmp"

   SavePicture Picture1.Picture, "D:\Test.bmp"

   Open "D:\Test.bmp" For Binary As #1

   s = Space(LOF(1))

   Get #1, , s

   Close #1

   

   rs.AddNew

   rs!Titel = "Test" & CStr(n)

   rs!Len = Len(s)

   rs.Fields("Bild").AppendChunk (s)

   rs.Update

   rs.Close

   Set rs = Nothing

End Sub

 



Code eingefügt mit Syntaxhighlighter 3.0




Programmierst Du noch frei oder wirst Du schon von Microsoft verwaltet ( .NET)?



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: