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:
418
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 genau und ausführlich
  • 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
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

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

     

nmd runner pk adidas nmd gold adidas stan smith gold adidas stan smith billig adidas superstar