Visual Basic

Copy Code

 Private Function Get_EDK_Data()
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Get_EDK_Data", clsDivFnkt.Enum_InfoTyp.Information)
    End If
    Try
        Dim Connection As New SqlConnection()
        Dim DA As New SqlDataAdapter("select * from edk_data where rowid = " & Str(RowId), Connection)
        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
        Connection.ConnectionString = Globals.Param.connectionstring
        Connection.Open()
        EDK_Data.Tables.Clear()
        DA.Fill(EDK_Data, "EDK_Data")
 
        Dim myRow As DataRow
        myRow = EDK_Data.Tables(0).Rows(0)
        Dim MyData() As Byte
        MyData = myRow.Item(5)
        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
        DA = Nothing
        cb = Nothing
        Connection = Nothing
 
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Get_EDK_Data (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return True
    Catch ex As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Get_EDK_Data::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Get_EDK_Data (False)::" & ex.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 End Function