Thema Datum  Von Nutzer Rating
Antwort
Rot Mit VBA aus Datenbank BLOBS exportieren
 18.05.2016 16:45:43 Gast58717
NotSolved

Ansicht des Beitrags:
Von:
Gast58717		 Datum:
18.05.2016 16:45:43		 Views:
1383		 Rating:
     
Antwort:
  Ja
Thema:
Mit VBA aus Datenbank BLOBS exportieren

Hi, bin absolut neu in der VBA Programmierung vieles ist mir noch fremd...

Ich möchte ein Programm schreiben welches ausgehend von einem Select Statement BLOB-Daten von einer DB ausliest und in einem vorgegebenen Ordnerpfad ablegt. Wäre toll wenn jemand helfen kann. 

Folgendes Code ist vorhanden : 

Sub bildload()
    Dim cn As ADODB.Connection
    Dim rs As ADODB.Recordset
    Dim mstream As ADODB.Stream
    
    Set cn = New ADODB.Connection
    cn.Open "User ID=x1;Password=x2;Provider=msdaora;Data Source=x.x.de;"
    

    Set rs = New ADODB.Recordset
    With rs
    .Source = "Select daten from blobspeicher where bildnummer between 298 and 300"
    End With
    
    rs.Open "Select daten from blobspeicher where bildnummer between 298 and 300", cn, adOpenKeyset, adLockOptimistic

    Set mstream = New ADODB.Stream
    mstream.Type = adTypeBinary
    mstream.Open
    mstream.Write rs.Fields("").Value
    mstream.SaveToFile "C:\Users\x\Desktop\testbildablage\bildnummer.jpg", adSaveCreateOverWrite

    rs.Close
    cn.Close
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Mit VBA aus Datenbank BLOBS exportieren
 18.05.2016 16:45:43 Gast58717
NotSolved