45 lines
1.5 KiB
VB.net
45 lines
1.5 KiB
VB.net
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
|
|
|