Initial commit

SW/AssessmentMgmt/Diverse Formulare/Demo_Assessmentgenerierung.vb

@@ -0,0 +1,44 @@
+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
+