|
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
|
|