[aljzazy]

كود :

For Each item As Object In checkListBox1.CheckedItems
              Dim valueToInsert As String = item.ToString()

       Next
            

               Dim sqlq As String = "insert into Main_Table values(@Personal_Num,@Student_Name,@Job)"

                       Dim sqlcmd As New SqlCommand(sqlq, Sqlcon)
                       sqlcmd.Parameters.Add(New SqlParameter("@Personal_Num", SqlDbType.NVarChar, 15) With {.Value = TextBox1.Text})
                       sqlcmd.Parameters.Add(New SqlParameter("@Student_Name", SqlDbType.NVarChar, 80) With {.Value = TextBox2.Text})
               sqlcmd.Parameters.Add(New SqlParameter("@Job", SqlDbType.NVarChar, 50) With {.Value =valueToInsert})
                   

                       Sqlcon.Open()
                       sqlcmd.ExecuteNonQuery()
                       Sqlcon.Close()


                   End If