Hoi,
ik probeer een PDF bestand vanuit een SQL 2000 SP4 te downloaden (tot zover lukt het) en daarna met acrobat te openen. Als ik hem probeer te openen krijg ik een foutmelding dat het document beschadigd of verkeerd gecodeerd is.
Kan iemand mij helpen?
Het script isgeschreven in VBA:
ik probeer een PDF bestand vanuit een SQL 2000 SP4 te downloaden (tot zover lukt het) en daarna met acrobat te openen. Als ik hem probeer te openen krijg ik een foutmelding dat het document beschadigd of verkeerd gecodeerd is.
Kan iemand mij helpen?
Het script isgeschreven in VBA:
Code:
Dim mstream As New Stream
Dim conn As New Connection
Dim rst As Recordset
If conn.State = adStateOpen Then conn.Close
Dim test As String
Dim Connect As String
test = USFSalaris.ListBox1.Column(4)
Connect = "Provider=sqloledb;Data Source=[server];Initial Catalog=[database;User Id=[user];Password=[password]
conn.ConnectionString = Connect
conn.Open
If conn.State = adStateOpen Then
Set rst = conn.Execute("SELECT * FROM Document Document WHERE (Document.Doc_ID='" + test + "')")
'Set strstream = New ADODB.Stream
mstream.Type = 1
mstream.Open
mstream.Write rst.Fields("doc_blob").Value
mstream.SaveToFile "c:\temp.pdf", adSaveCreateOverwrite
mstream.Flush
mstream.Close
Shell "c:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe c:\temp.pdf"