Liest das Dokument aus der DB und speichert dieses unter einem temporären Filenamen ab

[Visual Basic]
Public Function Get_Dokument( _ 
   ByVal DokumentNr As Integer _ 
) As String

Parameter

DokumentNr

Quellcode

[Visual Basic]
        Public Function Get_Dokument(ByVal DokumentNr As Integer) As String 
            Dim Filename As String = Globals.clsapplication.sTmp_filepath 
            If Right(Filename, 1) <> "\" Then Filename = Filename + "\" 
 
            Dim connection As New SqlConnection() 
            Dim da As New SqlDataAdapter("Select * From Dokument where DokumentNr=" + Str(DokumentNr), connection) 
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da) 
            Dim ds As New DataSet() 
            Try 
                connection.ConnectionString = Globals.sConnectionString 
                connection.Open() 
                da.Fill(ds, "Dokument") 
                Dim myRow As DataRow 
                myRow = ds.Tables(0).Rows(0) 
                Dim MyData() As Byte 
                MyData = myRow.Item(16) 
 
                Dim K As Long 
                K = UBound(MyData) 
                Filename = Filename + myRow.Item(6) 
                Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write) 
                fs.Write(MyData, 0, K) 
                fs.Close() 
                fs = Nothing 
            Catch ex As Exception 
                MsgBox(ex.Message, MsgBoxStyle.Critical) 
                Return "" 
            Finally 
                connection.Close() 
                connection = Nothing 
            End Try 
            CB = Nothing 
            ds = Nothing 
            da = Nothing 
            Return Filename 
        End Function

Forderungen

Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition

Siehe auch

MyDocMgmt