title image


Smiley Re: OLE-Objekt aus DB in Image darstellen ?????
Hallo Shortstuff,



da du jetzt nicht gesagt hast ob du mit ADO oder DAO arbeitest setzte ich einfach mal ADO voraus...



Du kannst die Bilder nicht direkt in die ImageBox laden, aber du kannst die Daten auslesen, temporär speichern und dann von da laden:



Option Explicit ' ADO-Objekte definierenDim Cn As ADODB.ConnectionDim Rs As ADODB.RecordsetDim adStr As ADODB.Stream Private Sub Command1_Click()' OLE-Objekct in Datenbank ' Neuen Datensatz anlegen Rs.AddNew ' FeldInt mit Zahlenwert füllen (Beispiel) Rs!FeldInt = 2 ' ADO-Stream aus Datei einlesen adStr.LoadFromFile "e:\temp\test.jpg" ' ADO-Stream an DB übergeben Rs.Fields("FeldO").Value = adStr.Read ' Änderungen übernehmen Rs.Update End Sub Private Sub Command2_Click() ' Zum ersten DS Rs.MoveFirst ' Stream aus DB-Feld einlesen adStr.Write Rs!FeldO ' Stream als Datei speichern adStr.SaveToFile "e:\temp\test.jpg" End Sub Private Sub Form_Load() ' ADO-Connection definieren und öffnenSet Cn = New ADODB.ConnectionWith Cn .CursorLocation = adUseClient .Mode = adModeShareDenyNone .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = "E:\temp\db3.mdb" .OpenEnd With ' ADO-Recordset definieren und öffnenSet Rs = New ADODB.RecordsetWith Rs .ActiveConnection = Cn .CursorLocation = adUseClient .LockType = adLockOptimistic .CursorType = adOpenDynamic .Source = "tblMyOle" .OpenEnd With ' ADO-Stream definierenSet adStr = New ADODB.StreamWith adStr .Mode = adModeShareDenyNone ' Festlegen, daß ein Binäres Format gelesen wird .Type = adTypeBinary ' Öffnen .OpenEnd With End Sub





Grüße

Flo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: