Imports System.Data.SqlClient
Imports System.Data.SqlTypes

Public Class Demo_Assessmentgenerierung
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        GetData()
    End Sub

    Private Sub GetData()
        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_Assessment_Generierung"
            sqlcmd.Parameters.Add(New SqlParameter("@datum", SqlDbType.Date, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, Me.DateTimePicker1.Value))
            sqlcmd.Parameters.Add(New SqlParameter("@demo", SqlDbType.Int, 4, ParameterDirection.Input, True, 10, 0, "", DataRowVersion.Proposed, 1))

            sqlcmd.CommandType = CommandType.StoredProcedure
            sqlcmd.Connection = connection
            connection.ConnectionString = Globals.sConnectionString
            connection.Open()
            da.SelectCommand = sqlcmd
            da.Fill(ds, "Datatable1")
            Try
                c1daten.DataSource = Nothing
            Catch
            End Try

            C1Daten.DataSource = ds.Tables(0)
            C1Daten.DataMember = ds.Tables(0).TableName
            For i = 0 To C1Daten.Splits(0).DisplayColumns.Count - 1
                C1Daten.Splits(0).DisplayColumns(i).AutoSize()

            Next
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try


    End Sub
End Class