Καλησπέρα σε όλους
θελω να φτιαξω μια σελίδα η οποία θα περιεχει μια λιστα με checkboxes...από αυτή τη λίστα θα διαλεγω καποιες τιμες και θα καταχωρω.
Εχω φτιαξει το Checkbox list...αλλα κατα τη καταχωρηση μου βγαζει λαθος τιμες..
Private
Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Put user code to initialize the page here
If Not Page.IsPostBack Then
Me.ckboxlist1.DataBind()
Dim Command1 As SqlClient.SqlCommand
Command1 = GetCommand("web_TestEnv")
Command1.Connection.Open()
ckboxlist1.DataValueField = "TESTENV_ID"
ckboxlist1.DataTextField = "TESTENV_DESCR"
ckboxlist1.DataSource = Command1.ExecuteReader
ckboxlist1.DataBind()
Command1.Dispose()
End If
και ο κώδικας για το Submit Button είναι:
Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click
Dim Cmd As SqlClient.SqlCommand = Database.GetCommand("web_CkboxInsert")
Cmd.Parameters.Add("@ckbxid1", SqlDbType.Int).Value =
Me.ckboxlist1.Items(0).Selected
Cmd.Parameters.Add("@ckbxid2", SqlDbType.Int).Value =
Me.ckboxlist1.Items(1).Selected
Cmd.Parameters.Add("@ckbxid3", SqlDbType.Int).Value =
Me.ckboxlist1.Items(2).Selected
Cmd.Parameters.Add("@ErrorMsg", SqlDbType.NVarChar, 250)
Cmd.Parameters("@ErrorMsg").Direction = ParameterDirection.Output
Database.CommandExecuteNonQuery(Cmd,
True)
ErrorMsg.Text = Cmd.Parameters("@ErrorMsg").Value
End Sub
---- τι φταιει;;; τι λαθος εχω κανει και μου βγαζει στο πίνακα οπου τσεκαρω στις κολώνες την πρώτη τιμη απο το checkboxlist
Thanks in advance,
S