Imports System.Data.SqlClient
Imports System.Data.SqlDbType
Public Class frmMailInfo
    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
        Me.Close()
    End Sub

    Private Sub frmMailInfo_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        get_data()
    End Sub


    Sub get_data()
        Try
            Dim ds As New DataSet
            Dim connection As New SqlConnection()
            Dim da As New SqlDataAdapter("", connection)
            Dim sqlcmd As New SqlCommand

            sqlcmd.CommandText = "SP_Erinnerungsmail"
            sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))
            sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))

            sqlcmd.CommandType = CommandType.StoredProcedure
            sqlcmd.Connection = connection
            connection.ConnectionString = Globals.sConnectionString
            connection.Open()
            da.SelectCommand = sqlcmd
            da.Fill(ds, "Datatable1")
            Me.cbboxmailtyp1.Text = ds.Tables(0).Rows(0).Item("Mailtyp1")
            Me.cbboxmailtyp2.Text = ds.Tables(0).Rows(0).Item("Mailtyp2")
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub

    Sub Save_Data()
        Dim ds As New DataSet
        Dim connection As New SqlConnection()
        Dim da As New SqlDataAdapter("", connection)
        Dim sqlcmd As New SqlCommand

        sqlcmd.CommandText = "SP_Erinnerungsmail"
        sqlcmd.Parameters.Add(New SqlParameter("@fnkt", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 2))
        sqlcmd.Parameters.Add(New SqlParameter("@param1", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Globals.clsmitarbeiter.iMitarbeiternr.Value))
        sqlcmd.Parameters.Add(New SqlParameter("@param2", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp1.Text))
        sqlcmd.Parameters.Add(New SqlParameter("@param3", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.cbboxmailtyp2.Text))
        sqlcmd.CommandType = CommandType.StoredProcedure
        sqlcmd.Connection = connection
        connection.ConnectionString = Globals.sConnectionString
        connection.Open()
        sqlcmd.ExecuteNonQuery()
        connection.Close
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Save_Data()
    End Sub

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click

    End Sub
End Class