مشكلة بسيطة في الصلاحيات - نسخة قابلة للطباعة

PHP كود :

Try

            Dim x As String = ComboBox1.SelectedValue.ToString
            Dim sql1 As String = "select ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 from zarswu where alaism='" & x & "'"
            Dim dss As New DataSet
            Dim daa As New SqlDataAdapter(sql1, co)
            daa.Fill(dss, "zarswu")
            c1.DataBindings.Add(New Binding("checked", dss, "zarswu.ch1"))
            c2.DataBindings.Add(New Binding("checked", dss, "zarswu.ch2"))
            c3.DataBindings.Add(New Binding("checked", dss, "zarswu.ch3"))
            c4.DataBindings.Add(New Binding("checked", dss, "zarswu.ch4"))
            c5.DataBindings.Add(New Binding("checked", dss, "zarswu.ch5"))
            c6.DataBindings.Add(New Binding("checked", dss, "zarswu.ch6"))
            c7.DataBindings.Add(New Binding("checked", dss, "zarswu.ch7"))
            c8.DataBindings.Add(New Binding("checked", dss, "zarswu.ch8"))
            c9.DataBindings.Add(New Binding("checked", dss, "zarswu.ch9"))
            c10.DataBindings.Add(New Binding("checked", dss, "zarswu.ch10"))
            c11.DataBindings.Add(New Binding("checked", dss, "zarswu.ch11"))
            c12.DataBindings.Add(New Binding("checked", dss, "zarswu.ch12"))
            c13.DataBindings.Add(New Binding("checked", dss, "zarswu.ch13"))
            c14.DataBindings.Add(New Binding("checked", dss, "zarswu.ch14"))
            C15.DataBindings.Add(New Binding("checked", dss, "zarswu.ch15"))
            C16.DataBindings.Add(New Binding("checked", dss, "zarswu.ch16"))
            C17.DataBindings.Add(New Binding("checked", dss, "zarswu.ch17"))
            c1.DataBindings.Clear()
            c2.DataBindings.Clear()
            c3.DataBindings.Clear()
            c4.DataBindings.Clear()
            c5.DataBindings.Clear()
            c6.DataBindings.Clear()
            c7.DataBindings.Clear()
            c8.DataBindings.Clear()
            c9.DataBindings.Clear()
            c10.DataBindings.Clear()
            c11.DataBindings.Clear()
            c12.DataBindings.Clear()
            c13.DataBindings.Clear()
            c14.DataBindings.Clear()
            C15.DataBindings.Clear()
            C16.DataBindings.Clear()
            C17.DataBindings.Clear()
        Catch ex As Exception
            MsgBox(Err.Description)
        End Try
        co.Close()

PHP كود :

Try
            Dim SavInto As New SqlCommand("update zarswu set ch1=" & c1.Checked & ",ch2=" & c2.Checked & ",ch3=" & c3.Checked & ",ch4=" & c4.Checked & ",ch5=" & c5.Checked & ",ch6=" & c6.Checked & ",ch7=" & c7.Checked & ",ch8=" & c8.Checked & ",ch9=" & c9.Checked & ",ch10=" & c10.Checked & ",ch11=" & c11.Checked & ",ch12=" & c12.Checked & ",ch13=" & c13.Checked & ",ch14=" & c14.Checked & ",ch15=" & C15.Checked & ",ch16=" & C16.Checked & ",ch17=" & C17.Checked & " where alaism='" & ComboBox1.SelectedValue.ToString & "'", con)
            If con.State = ConnectionState.Closed Then
                con.Open()
            End If
            SavInto.ExecuteNonQuery()
            con.Close()
            MsgBox("تم الحفظ", MsgBoxStyle.Information, "")
            dazarsw = New SqlDataAdapter("SELECT id,alaism,alrraqm,pas,ch1,ch2,ch3,ch4,ch5,ch6,ch7,ch8,ch9,ch10,ch11,ch12,ch13,ch14,ch15,ch16,ch17 FROM zarswu", co)
            dazarsw.Fill(zarsw)
            Form9.DataGridView1.DataSource = zarsw
            Me.Close()
        Catch ex As Exception
            con.Close()
            MsgBox(Err.Description)
        End Try