Word: Einfügen eines Bildes aus Oracle (Datentyp: BLOB) mittels Visual Basic

  • Word

    Word: Einfügen eines Bildes aus Oracle (Datentyp: BLOB) mittels Visual Basic

    Hi zusammen,
    ich verwende in einer Word-Vorlage Visual Basic Code.
    Mein Ziel ist es beim Aufruf der Word-Vorlage ein ActiveX-Steuerelement (Typ: Image) mit einem BLOB-File aus einer Oracle-DB zu befüllen.
    Das Word-File wird aus einer externen Applikation aufgerufen.
    Im Moment bekomm ich bereits eine Fehlermeldung bei der SQL-Query ("Der Datentyp wird nicht unterstützt.").
    Ich hab in einem Forum bereits gelesen, dass es am Treiber liegt. Ich habe aber leider keine Möglichkeit einen anderen Treiber zu verwenden.

    Ich bin sehr dankbar für jede Hilfe :) .
    DANKE schon mal im Voraus. LG


    Folglich noch mein Code-Schnipsel:

    Visual Basic-Quellcode

    1. 'DB-Connection
    2. cnOra.Open "Provider=MSDAORA;Data Source=" + db_name + ";User ID=" + UserName + ";Password=" _
    3. & Password + ";"
    4. 'Query
    5. SQLString = "SELECT Bild " & _
    6. "FROM TEST_BILD WHERE id = 1111 "
    7. RsData.Open SQLString, cnOra, adOpenForwardOnly
    8. Call BildAnzeigen(RsData!Bild)
    9. RsData.Close
    10. cnOra.Close
    11. 'Function zum Anzeigen des Bildes in der Word-Vorlage
    12. Public Sub BildAnzeigen(fldBildBLOB As ADODB.Field)
    13. Dim BilddateiID As Long
    14. Dim Buffer() As Byte
    15. Dim Dateigroesse As Long
    16. Dim outPath As String
    17. Dim dummydatei As String
    18. BilddateiID = FreeFile
    19. Dateigroesse = LenB(fldBildBLOB)
    20. ReDim Buffer(Dateigroesse)
    21. outPath = "C:\TEMP"
    22. Open outPath For Binary Access Write As BilddateiID
    23. Buffer = fldBildBLOB.GetChunk(Dateigroesse)
    24. Put BilddateiID, , Buffer
    25. Close BilddateiID
    26. ActiveDocument.Image1.Picture = LoadPicture(outPath)
    27. End Sub


    Verschoben. ~Trade

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()