|
Hallo Leute,
ich möchte ein Bild als Binärdatei in einer SQL Datenbank speichern
Dazu habe ich folgende Methode definiert :
Private Sub BildEinlesen(bildPfad As String, fldBildBLOB As Field) <-----hier tritt das Problem auf
Dim lngDateigroesse As Long
Dim Buffer() As Byte
Dim BilddateiID As Integer
' Einlesen
BilddateiID = FreeFile
Open bildPfad For Binary Access Read Lock Read Write As BilddateiID
lngDateigroesse = FileLen(bildPfad)
ReDim Buffer(lngDateigroesse)
fldBildBLOB = Null
Get BilddateiID, , Buffer
Close BilddateiID
fldBildBLOB.AppendChunk Buffer
' SUXXEED Fehlerprotokoll
Exit Sub
Um das Bild zu speichern muss ich der Methode ein Feld geben (fldBildBlob)
Leider meldet Access dass eine Typenunverträglichkeit auftritt (siehe Code)
'Bilder in Image speichern
Dim adoCon As New ADODB.Connection
Dim adoRs As New ADODB.Recordset
Dim bildPfad As String
adoCon.ConnectionString = "DRIVER={SQL Server};SERVER=192.168.1.35\SQLSuxxeed2;UID=SUXXEEDRepository;PWD=VogelRauk;DATABASE=SUXXEEDRepository"
adoCon.Provider = "SQLOLEDB"
adoCon.Open
adoRs.Open "Select * From tbl_Mailerdaemon_Mails_Images", adoCon, adOpenForwardOnly, adLockPessimistic
For k = 0 To UBound(imagePath)
bildPfad = path & "\img\" & imagePath(k)
adoRs.AddNew
BildEinlesen bildPfad, adoRs("Image") <--------- bei Ausführung Meldung: Typenunverträglich
adoRs.Update
Next
was kann ich tun bitte hleft
|