[Visual Basic]
Public Function Get_RptDatei( _ 
   ByVal Auswertungnr As String, _ 
   Optional ByVal fname As String = "" _ 
) As String

Parameter

Auswertungnr

Erforderlich.

fname

Optional. Der Standardwert ist "".

Quellcode

[Visual Basic]
        Public Function Get_RptDatei(ByVal Auswertungnr As String, Optional ByVal fname As String = "") As String 
            Dim connection As New SqlConnection() 
            Dim DA As New SqlDataAdapter("select * from AuswertungRptDatei where AuswertungDateiNr = " & Str(Auswertungnr), connection) 
            Dim CB As SqlCommandBuilder = New SqlCommandBuilder(DA) 
            Dim ds As New DataSet() 
            Dim Filename As String = "" 
            Try 
                connection.ConnectionString = Globals.sConnectionString 
                connection.Open() 
                DA.Fill(ds, "RptFile") 
                Dim myRow As DataRow 
                myRow = ds.Tables(0).Rows(0) 
                Dim MyData() As Byte 
                Filename = Globals.clsapplication.sTmp_filepath + "\" + myRow.Item(2).ToString 
                If fname <> "" Then 
                    Filename = fname 
                End If 
                MyData = myRow.Item(3) 
                Dim K As Long 
                K = UBound(MyData) 
                Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Write) 
                fs.Write(MyData, 0, K) 
                fs.Close() 
                fs = Nothing 
            Catch ex As Exception 
                Return "" 
            End Try 
            CB = Nothing 
            ds = Nothing 
            DA = Nothing 
            connection.Close() 
            connection = 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