Export von pdf aus SQL Server

14/08/2009 - 10:47 von Reiner Hoehnke | Report spam
Hallo,

ich habe eine .NET Datenbank Anwendung geschrieben, die für verschiedene
Kunden PDF's in eine SQL Server 2005 Datenbank schreibt.

Ist es möglich, mit einem SQL Script die PDF's aus der Datenbank zu holen,
und in einen Windows Ordner zu kopieren.

Das heißt, kann man in SQL auch Windows Ordner ansprechen?

Danke für die Hilfe im Voraus.

Gruss

Reiner
 

Lesen sie die antworten

#1 Lutz Uhlmann
14/08/2009 - 11:32 | Warnen spam
"Reiner Hoehnke" schrieb im Newsbeitrag
news:
Hallo,

ich habe eine .NET Datenbank Anwendung geschrieben, die für verschiedene
Kunden PDF's in eine SQL Server 2005 Datenbank schreibt.

Ist es möglich, mit einem SQL Script die PDF's aus der Datenbank zu holen,
und in einen Windows Ordner zu kopieren.

Das heißt, kann man in SQL auch Windows Ordner ansprechen?



Wie sind die PDF's denn abgespeichert??? Varbinary??

Für solche Fàlle solltest du dir das ADO-Stream-Objekt mal anschauen ...

Public Function LoadFilesFromSqlServer() As Boolean
On Error GoTo Err_
Dim sql As String
Dim filStream As ADODB.Stream
Dim cnn As ADODB.Connection
Dim rsado As ADODB.Recordset
Dim StrFileName As String
Dim strFilePath As String

LoadFileFromSqlServer = False

strFilePath = GetYourPath()

sql = "SELECT FileName,FileContent FROM dbo.tabFiles WHERE FileID=1"

Set cnn = GetDBMS.dbConnection.CurrentAdoConnBe
Set rsado = New ADODB.Recordset
rsado.Open sql, cnn, adOpenKeyset, adLockOptimistic

If rsado.EOF Then
GoTo Exit_
End If

StrFileName = rsado!FileName
strFilePath = strFilePath & StrFileName

Set filStream = New ADODB.Stream
filStream.Type = adTypeBinary
filStream.Open
filStream.Write rsado!FileContent
filStream.SaveToFile strFilePath, adSaveCreateOverWrite

LoadFileFromSqlServer = True

Exit_:
On Error Resume Next
filStream.Close
Set filStream = Nothing
rsado.Close
Set rsado = Nothing
Set cnn = Nothing
Exit Function
Err_:
MsgBox Err.Number & " " & Err.Description
Resume Exit_
End Function

Ähnliche fragen