Imports System.IO
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class DB



    Public dsDaten As New DataSet
    Public dsdaten1 As New DataSet
    Public dadaten1 As New SqlDataAdapter
    Public dadaten As SqlDataAdapter
    Dim sql As String

    Public Sub Get_Funktionsgruppe()
        Try
            dsDaten.Clear()
            sql = " SELECT funktionsgruppenr, bezeichnung from funktionsgruppe"
            dadaten = New SqlDataAdapter(sql, Globals.sConnectionstring)
            dadaten.Fill(dsDaten, "Funktionsgruppe")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub

    Sub Get_Dokumenttyp_Funktionsgruppe(dokumenttypnr As Integer)
        dsdaten1.Clear()
        sql = " SELECT * from dokumentaufhebung where aktiv=1 and dokumenttypnr=" + dokumenttypnr.ToString
        dadaten1 = New SqlDataAdapter(sql, Globals.sConnectionstring)
        dadaten1.Fill(dsdaten1, "DokumenttypFunktionsgruppe")

    End Sub

   

    Sub Update_Daten()
        'Try
        '    Dim cb As New SqlCommandBuilder(dadatendocm)
        '    dadatendocm.Update(dsdatendocm, dsdatendocm.Tables(0).TableName)
        '    MsgBox("Änderungen wurden gespeichert")
        'Catch ex As Exception
        '    MsgBox("Felher: " + ex.Message)
        'End Try
    End Sub

End Class


Public Class DB_Connection

    ''' <summary>
    ''' Liest sämtlcihe CFG-Dateien mit dem Namen "Vertragsverwaltung...". Sind meherere Dateien vorhanden,
    ''' wird ein Auswahldialog zur Datenbank-Selektion angezeigt.
    ''' Standardmässig wird Vertragsverwaltung.cfg als CFG-Datei benutzt.
    ''' 
    ''' Die CFG-Datei ist verschlüsselt und wird über die Crypto-Funktionen entschlüsselt.
    ''' </summary>
    ''' <remarks></remarks>
    Shared Sub New()
        Dim fc As Integer = 0
        If fc < 2 Then Globals.ConnectionFilename = "edokaconn.cfg"
        Dim ofile As System.IO.File
        Dim oread As System.IO.StreamReader
        oread = ofile.OpenText(ApplicationPath() + "\" + Globals.ConnectionFilename)
        sConnectionString = oread.ReadLine
        sConnectionString = Crypto.DecryptText(sConnectionString, "HutterundMueller")
        sConnectionstring = Left(sConnectionstring, Len(sConnectionstring) - 1)
        Globals.conn.sConnectionString = sConnectionstring
        Globals.sConnectionString = sConnectionString
        oread.Close()
    End Sub

End Class