Update 20190329

DMSTest/clsDok.vb

@@ -0,0 +1,129 @@
+Imports System.Data.Sql
+Imports System.Data.SqlClient
+Imports System.Data.SqlTypes
+Imports System.IO
+
+Public Class clsDok
+
+    Dim m_stream As MemoryStream
+    Property Documentstream As MemoryStream
+        Get
+            Return m_stream
+
+        End Get
+        Set(value As MemoryStream)
+            m_stream = value
+        End Set
+    End Property
+    Public Function Save_Document(ByVal Dokumentnr As Integer, ByVal Filename As String) As Boolean
+        Dim Connection As New SqlConnection()
+        Dim DA As New SqlDataAdapter("select * from dms_dokument where nreintrag =" + Str(Dokumentnr), Connection)
+        Dim cb As SqlCommandBuilder = New SqlCommandBuilder(DA)
+        Dim ds As New DataSet()
+        Dim fs As New FileStream(Filename, FileMode.OpenOrCreate, FileAccess.Read)
+        Dim mydata(fs.Length) As Byte
+        fs.Read(mydata, 0, fs.Length)
+        fs.Close()
+        Try
+            Connection.ConnectionString = My.Settings.ConnectionString
+            Connection.Open()
+            DA.Fill(ds, "Dokument")
+            Dim myRow As DataRow
+            If ds.Tables(0).Rows.Count = 0 Then
+                Return False
+            Else
+                myRow = ds.Tables(0).Rows(0)
+                myRow.Item(14) = mydata
+                DA.Update(ds, "Dokument")
+            End If
+        Catch ex As Exception
+            MsgBox(ex.Message)
+            Return False
+        End Try
+        fs = Nothing
+        cb = Nothing
+        ds = Nothing
+        DA = Nothing
+        Connection.Close()
+        Connection = Nothing
+        Return True
+    End Function
+
+    Public Function Get_Dokument(ByVal DokumentNr As Integer) As String
+        Dim Filename As String = My.Settings.TempPath
+        If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
+
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
+        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+        Dim ds As New DataSet()
+        Try
+            connection.ConnectionString = My.Settings.ConnectionString
+            connection.Open()
+            da.Fill(ds, "Dokument")
+            Dim myRow As DataRow
+            myRow = ds.Tables(0).Rows(0)
+            Dim MyData() As Byte
+            MyData = myRow.Item(14)
+
+            Dim K As Long
+            K = UBound(MyData)
+            Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
+            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
+
+    Public Function Get_Dokument_stram(ByVal DokumentNr As Integer) As MemoryStream
+        Dim Filename As String = My.Settings.TempPath
+        If Right(Filename, 1) <> "\" Then Filename = Filename + "\"
+
+        Dim connection As New SqlConnection()
+        Dim da As New SqlDataAdapter("Select * From dms_Dokument where nreintrag=" + Str(DokumentNr), connection)
+        Dim CB As SqlCommandBuilder = New SqlCommandBuilder(da)
+        Dim ds As New DataSet()
+        Try
+            connection.ConnectionString = My.Settings.ConnectionString
+            connection.Open()
+            da.Fill(ds, "Dokument")
+            Dim myRow As DataRow
+            myRow = ds.Tables(0).Rows(0)
+            Dim MyData() As Byte
+            MyData = myRow.Item(14)
+
+            Dim K As Long
+            K = UBound(MyData)
+            Dim ms As New MemoryStream(MyData)
+
+            Return ms
+
+            Filename = Filename + System.IO.Path.GetFileName(myRow.Item(4))
+            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 Nothing
+        Finally
+            connection.Close()
+            connection = Nothing
+        End Try
+        CB = Nothing
+        ds = Nothing
+        da = Nothing
+        Return Nothing
+    End Function
+End Class