Office: (Office 2010) BLOB

muku · 14. Januar 2013

Hallo zusammen,

Ich versuche gerade aus einer SQL-Datenbank BLOB-Daten auszulesen.
Diese Daten werden vom Microsoft Business Contact Manager (BCM) gespeichert und verwaltet.

Gespeichert sind keine Bilder sondern NUR Text und Zahlen.
Ich konnte einen Teil der Daten in den Spalten der Tabelle auslesen, bekomme allerdings dieses seltsame Zeichen bei einigen Spalten:
Code:

ጦĀ
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Woran könnte das liegen? Welche Maßnahmen sind hier zu ergreifen um dies zu verhindern / korrekt anzuzeigen.

Mein Anzatz aktuell:
Code:

Me!FirmenID = Liste_Firmen 'Übergabe der ID aus dem Listenfeld
Dim Buffer() As Byte
Dim Dateigroesse As Long

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Dim strOLEField As String
Dim strFieldID As String

strFieldID = Me!FirmenID
strOLEField = "UserField18" 'Spaltenname
spalte = strOLEField

Set rs = db.OpenRecordset("SELECT " & strOLEField & " FROM " _
& "dbo_UserFields WHERE ContactServiceID = " & strFieldID, dbReadOnly)

Dateigroesse = Nz(LenB(rs(strOLEField)))
If Dateigroesse > 0 Then
ReDim Preserve Buffer(Dateigroesse To 100)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
Me!feld1.Value = Buffer
Else
Me!feld1.Value = ""
End If

rs.Close
Set db = Nothing
Set rs = Nothing
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe ihr könnt mir helfen. Ich bin auch für Optimierungsvorschläge dankbar.

Viele Grüße
muku

:)

daolix · 16. Januar 2013

Du musst dein Bufferarray auch wieder in den richtigen Datentyp überführen. im moment wird es von acc als string angesehen.
Wenn der Ursprungsdatentyp in der Tabelle nicht gespeichert wurde, musst du wohl raten. Ein anhaltspukt könnte dann die Größe des OleFeld sein(4 = long, 8 = Double oder currency ...)

Die Größe des olefeldes könntest du auch per FieldSize ermitteln
lSize = rs.Fields(strOLEField).FieldSize
redim buffer(lsize-1)
Buffer = rs(strOLEField).GetChunk(0, lSize)

muku · 16. Januar 2013

Hallo daolix,
danke für deine Antwort.
Wenn ich in Access auf die Tabelle im Entwurfsansicht gehe, dann steht unter Felddatentyp nur "OLE-Objekt".
D.h. ich habe keine Ahnung was für ein Datentyp sich dahinter befindet. Größen die ich bisher immer festgestellt habe waren 8 oder 50. Was wären dann 50 für Typ?

Welchen Vorteil / Nutzen hätte das Ermitteln der Größe über "FieldSize"?
Ich habe verstanden, dass die beiden Funktionen die Größe unterschiedlich bestimmen, allerdings weiß ich nicht, ob die Ermittlung mit "FieldSize" nun besser wäre?!

Viele Grüße
muku

daolix · 16. Januar 2013

Ich habe verstanden, dass die beiden Funktionen die Größe unterschiedlich bestimmen, allerdings weiß ich nicht, ob die Ermittlung mit "FieldSize" nun besser wäre?!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich wollt jetzt nicht sagen, das diese jetzt besser wäre, ich hab einfach die Zeile Dateigroesse = Nz(LenB(rs(strOLEField))) übersehen.

Größen die ich bisher immer festgestellt habe waren 8 oder 50.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Und welche Spalte mit welcher Größe wird mit seltsame Zeichen beschrieben?

Was wären dann 50 für Typ?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Das könnte ein String fester länge sein. Oder ein Array mit 25 Integer elementen, oder was völlig anderes. ggf müsstest du herrausfinden was und wie, in welchen format BCM die Daten speichert.

Hätte Wäre Wenn, gehen wir davon aus das die 8er Größe ein Double ist: Code:

Private Declare Sub CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As Long, _
ByVal pSource As Long, _
ByVal cbLength As Long _
)

......
Dateigroesse = Nz(LenB(rs(strOLEField)))
If Dateigroesse =8 Then
dim d as double
ReDim Buffer(Dateigroesse -1)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
copymemory varptr(d), varptr(buffer(0)), 8
Me!feld1.Value = d
elseif Dateigroesse >8 Then 'dein urspünglicher code
ReDim Preserve Buffer(Dateigroesse To 100) 'dieses verstehe ich jetzt nicht
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
Me!feld1.Value = Buffer
Else
Me!feld1.Value = ""
End If
....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ist Luftcode, erhebt keinen Anspruch auf Richtigkeit oder Vollständigkeit, alles wie beim Lotto, ohne Gewähr.

Thomas Möller · 16. Januar 2013

Hallo!

von muku

Ich versuche gerade aus einer SQL-Datenbank BLOB-Daten auszulesen.
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Zusätzlich zum bereits geposteten Code hier noch ein Link auf eine Beispieldatenbank:
OLEtoDisk

CU

muku · 17. Januar 2013

Danke für die Antworten.

Aaaalllsoo, ein Feld kann verschiedene Textwerte enthalten, diese sind dann ensprechend unterschiedlich groß, z.B.:

Userfield16 --> Typ laut BCM "Dropdownliste"
mögliche Größen und der Wert(Text) aktuell:

Größe --> Wert
8 --> Lead
10 --> Kunde
4 --> VC
....

Diese Werte konnte ich auslesen!
Das seltsame Zeichen hat nach meiner Feststellung immer die Größe von 8.
Vermutung: Es gibt im BCM, Felder mit der Deklaration Datentyp "Nummer" , Format "Ohne Dezimalanteil 1.235 -1235" (siehe Anhang Bild) welche ich bisher nicht gefunden habe. Es könnte aber auch ein Checkbox-Feld sein. Möglicherweise ist es einer dieser Feldtypen. Allerdings kann ich dann nicht pauschal sagen wenn Größe = 8 DANN .... Gibt es dazu vorschläge wie ich das lösen könnte?

Zu dem PunkT:

ReDim Preserve Buffer(Dateigroesse To 100) 'dieses verstehe ich jetzt nicht
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dies hatte ich testweise mal ausprobiert. In dem Fall ist die max. mögliche Größe 100, wenn allerdings Dateigroesse größer 100 ist gibts nen Fehler ;-)

Ich habe die Zeile wie folgt getauscht: Code:

ReDim Buffer(Dateigroesse)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

daolix · 17. Januar 2013

Möglicherweise ist es einer dieser Feldtypen. Allerdings kann ich dann nicht pauschal sagen wenn Größe = 8 DANN .... Gibt es dazu vorschläge wie ich das lösen könnte?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

bekomme allerdings dieses seltsame Zeichen bei einigen Spalten
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Dann machs halt über den Spaltennamen
if strOLEField = DeineSpalteDieImstrOLEFieldDieKomischenZeichenHaben then... Copy in ein Double, oder currency, oder statt if schreibst du für diese Spalte einen eigene Sub/Funktion.

Dies hatte ich testweise mal ausprobiert. In dem Fall ist die max. mögliche Größe 100, wenn allerdings Dateigroesse größer 100 ist gibts nen Fehler ;-)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Nun ich glaube auch da gibt es Probleme wenn Dateigroesse > 50 ist z.B 75
das ergibt bei deinem Redim Preserve Buffer(75 To 100), was jetzt ein Array mit 26 Byte-Elementen ist, d.h. dein Array wird nur max. mit 26 Zeichen befüllt. Der rest wird nicht übernommen.

muku · 29. Januar 2013

Hallo daolix,
ich war ein paar Tage nicht im Büro und wollte mich heute weiter mit dem Thema beschäftigen und habe prompt auch schon die erste Fehlermeldung um die Ohren gehauen bekommen.

Code:

---------------------------
Microsoft Visual Basic for Applications
---------------------------
Fehler beim Kompilieren:

Der Code in diesem Projekt muss für die Verwendung auf 64-Bit-Systemen aktualisiert werden. Überarbeiten und aktualisieren Sie Declare-Anweisungen, und markieren Sie sie mit dem PtrSafe-Attribut.
---------------------------
OK Hilfe
---------------------------
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Code:

'Code zur Fehlermeldung

Private Declare Sub CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As Long, _
ByVal pSource As Long, _
ByVal cbLength As Long _
)
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe gelesen, dass hat mit der 64bit Version von Office zu tun?!
Hast du oder jemand anderes dazu einen Vorschlag wie man diesen Fehler bereinigt?!

Besten Dank und viele Grüße
muku

Thomas Möller · 29. Januar 2013

Hallo!

von muku

Ich habe gelesen, dass hat mit der 64bit Version von Office zu tun?!
Hast du oder jemand anderes dazu einen Vorschlag wie man diesen Fehler bereinigt?!
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Hier solltest Du die Deklaration für 64 Bit finden:
http://www.microsoft.com/en-us/downl...n.aspx?id=9970

Weitere Informationen zum Thema kannst Du hier nachlesen:
http://msdn.microsoft.com/de-de/libr...ffice.14).aspx

HTH

stendate · 29. Januar 2013

Hier gibts noch ein Beispiel mit PtrSafe wie man die 64bit und die 32bit Version mittels #If VBA7 Then gleichzeitig unterstützen kann:

http://source.access-codelib.net/fil...FFileTools.bas

muku · 29. Januar 2013

Hallo ihr beiden,
vielen Dank für eure Anmerkungen / Links.
@ leider habe ich nicht verstanden wofür der Download (Office2010Win32API_PtrSafe.exe) genau ist!?

Ich habe versucht den Code für 32 bit / 64 bit Office umzusetzen und hoffe das ich das richtig gemacht habe!

Code:

Option Compare Database
Option Explicit

#If VBA7 Then
Private Declare PtrSafe Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As Long, _
ByVal pSource As Long, _
ByVal cbLength As Long _
)
#Else
Private Declare Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As Long, _
ByVal pSource As Long, _
ByVal cbLength As Long _
)
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich bekomme aktuell noch die Fehlermeldung, dass VarPtr(dblVal) Typenunverträglich ist. Siehe Code unten

Code:

Private Sub Liste_Firmen_Click()
Me!FirmenID = Liste_Firmen

Dim Buffer() As Byte
Dim Dateigroesse As Long

Dim db As DAO.Database
Dim rs As DAO.Recordset
Set db = CurrentDb()
Dim strOLEField As String
Dim strFieldID As String

strFieldID = Me!FirmenID
strOLEField = "UserField19" 'aktuell manuell vorgeben 205
spalte = strOLEField

Set rs = db.OpenRecordset("SELECT " & strOLEField & " FROM " _
& "dbo_UserFields WHERE ContactServiceID = " & strFieldID, dbReadOnly)

Dateigroesse = Nz(LenB(rs(strOLEField)))

If Dateigroesse = 0 Then
Me!feld1.Value = ""
Else
If Dateigroesse = 8 Then
Dim dblVal As Double
ReDim Buffer(Dateigroesse - 1)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
CopyMemory VarPtr(dblVal), VarPtr(Buffer(0)), 8
Me!feld1.Value = dblVal
Else
ReDim Buffer(Dateigroesse)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
Me!feld1.Value = Buffer
End If
End If

rs.Close
Set db = Nothing
Set rs = Nothing

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich freue mich über weitere Unterstützung.

Viele Grüße
muku

daolix · 30. Januar 2013

Hallo

von 64 bit hab ich keinen Plan (weil ichs auch nicht hab), kann aber sein das der longtyp unter 64 nicht mitwächst und varptr eine 64bit-Addresse zurückgibt. Ändere mal wie folgt (ist aber ohne Gewähr)

Code:

#If VBA7 Then
Private Declare PtrSafe Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As LongPTR, _
ByVal pSource As LongPTR, _
ByVal cbLength As LongPTR _
)
#Else
Private Declare Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
ByVal pDestination As Long, _
ByVal pSource As Long, _
ByVal cbLength As Long _
)
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

ob das jetzt stimme weiss ich nicht.

muku · 30. Januar 2013

Hallo daolix,
ich hab die Deklaration wie von dir vorgeschlagen geändert und der Fehler ist verschwunden. *Smilie
Allerding gibts jetzt beim Ausführen der Sub in folgender Zeile wohl ein Problem, da mir Access immer an der Stelle abstürzt:

Code:

CopyMemory VarPtr(dblVal), VarPtr(Buffer(0)), 8
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

daolix · 30. Januar 2013

hallo

64 ist irgendwie die letze Sch..e.

probiers mal so:
Code:

#If VBA7 Then
Private Declare PtrSafe Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
byref pDestination As any, _
byref pSource As any, _
ByVal cbLength As Long _
)
#Else
Private Declare Function CopyMemory Lib "KERNEL32.DLL" Alias "RtlMoveMemory" _
( _
byref pDestination As any, _
byref pSource As any, _
byval cbLength As Long _
)
#End If
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und den Aufruf dann:
Code:

copymemory dblVal, Buffer(0), 8
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Aber schau mal hier, das ist evtl genauer erklärt.

Alternativ könntest du via VBA-Befehl LSet und 2 UDT's es versuchen und die RtlMoveMemory - Api rausschmeissen.
ist aber etwas unflexibler wenn andere Dateigrößen abgearbeitet werden müssesten. Code:

Private Type td8String
s as string *4
end type

Private Type tdDouble
d as double
end type

.....

Private Sub Liste_Firmen_Click()
....
If Dateigroesse = 8 Then
dim tdS as td8String
dim tdD as tdDouble
ReDim Buffer(Dateigroesse - 1)
Buffer = rs(strOLEField).GetChunk(0, Dateigroesse)
tds.s = Buffer()
lset tdD = tdS
Me!feld1.Value = tdD.d
else
....
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Thomas Möller · 30. Januar 2013

Hallo!

von muku

@ leider habe ich nicht verstanden wofür der Download (Office2010Win32API_PtrSafe.exe) genau ist!?
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Darin findest Du die für 64 Bit angepassten API-Deklarationen. Hast Du schon einmal reingeschaut?

CU