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:
Verschoben. ~Trade
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
- 'DB-Connection
- cnOra.Open "Provider=MSDAORA;Data Source=" + db_name + ";User ID=" + UserName + ";Password=" _
- & Password + ";"
- 'Query
- SQLString = "SELECT Bild " & _
- "FROM TEST_BILD WHERE id = 1111 "
- RsData.Open SQLString, cnOra, adOpenForwardOnly
- Call BildAnzeigen(RsData!Bild)
- RsData.Close
- cnOra.Close
- 'Function zum Anzeigen des Bildes in der Word-Vorlage
- Public Sub BildAnzeigen(fldBildBLOB As ADODB.Field)
- Dim BilddateiID As Long
- Dim Buffer() As Byte
- Dim Dateigroesse As Long
- Dim outPath As String
- Dim dummydatei As String
- BilddateiID = FreeFile
- Dateigroesse = LenB(fldBildBLOB)
- ReDim Buffer(Dateigroesse)
- outPath = "C:\TEMP"
- Open outPath For Binary Access Write As BilddateiID
- Buffer = fldBildBLOB.GetChunk(Dateigroesse)
- Put BilddateiID, , Buffer
- Close BilddateiID
- ActiveDocument.Image1.Picture = LoadPicture(outPath)
- End Sub
Verschoben. ~Trade
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Trade“ ()