Visual Basic

Copy Code

 Public Function Save_To_DB(ByVal sDokumentID As String, ByVal sDokumentName As String) As Boolean
    If Param.DebugMode Then
        DivFnkt.InsertJournale("EDKB12: Start Save_To_DB", clsDivFnkt.Enum_InfoTyp.Information)
    End If
 
    Try
 
        Dim Connection As New SqlConnection()
        Dim DA As New SqlDataAdapter("select * from doks where dokumentid='" + Dokumentid + "'", Connection)
        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
        Dim ds As New DataSet()
        Dim fs As New FileStream(DokumentFilename, FileMode.Open, FileAccess.Read)
        Dim mydata(fs.Length) As Byte
        Try
            fs.Read(mydata, 0, fs.Length)
            fs.Close()
            Connection.ConnectionString = Param.connectionstring
            Connection.Open()
            DA.Fill(ds, "docs")
            Dim myRow As DataRow
            If ds.Tables(0).Rows.Count = 0 Then
                ' Neues Dokument speichern
                myRow = ds.Tables(0).NewRow
                myRow.Item(0) = Dokumentid
                myRow.Item(1) = mydata
                ds.Tables(0).Rows.Add(myRow)
                DA.Update(ds, "docs")
            Else
                'Bestehendes Dokument sichenr
                myRow = ds.Tables(0).Rows(0)
                myRow.Item(1) = mydata
                DA.Update(ds, "docs")
            End If
        Catch ex As Exception
            Return False
        End Try
        fs = Nothing
        cb = Nothing
        ds = Nothing
        DA = Nothing
 
        Connection.Close()
        Connection = Nothing
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Save_To_DB (True)", clsDivFnkt.Enum_InfoTyp.Information)
        End If
 
        Return True
    Catch EX As Exception
        DivFnkt.InsertJournale("EDKB12::Fehler:: Save_To_DB::" & EX.Message, clsDivFnkt.Enum_InfoTyp.Fehler)
        If Param.DebugMode Then
            DivFnkt.InsertJournale("EDKB12: Ende Save_To_DB (False)::" & EX.Message, clsDivFnkt.Enum_InfoTyp.Information)
        End If
        Return False
    End Try
 End Function