How to get selected items from checkedlistbox and save it to SQL database table ?

See more:

VB

SQL-Server

VB12

Hi guys i am making an application where i want to fill my checkedlistbox from my SQL database table and then save back the checked items in the same database and i am able to fill it from the database but i am getting an error while trying to get the checked items from the checkedlistbox and saving them in the same database.





What I have tried:

Here is my code:-

Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
    Private pre As DataTable


    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        CheckedListBox1.DataSource = getdata()
        CheckedListBox1.DisplayMember = "sem1"

    End Sub

    Private Function getdata() As DataTable
        pre = New DataTable
        Dim str As String = "select sem1 from sem"
        Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
        Using conn As New SqlConnection(connectionString)
            Using adapter As New SqlDataAdapter(str, conn)
                conn.Open()
                adapter.Fill(pre)
                conn.Close()
            End Using
        End Using

        Return pre

    End Function

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        Dim SqL As String = "INSERT INTO sem (sem2) " & "VALUES (sem2)"

        Dim connectionString As String = "Server=DESKTOP-V12PTAV ;Database=test ;User Id=sa ;Password=wills8877"
        Using conn As New SqlConnection(connectionString)
            conn.Open()
            Try
                Using cmd As New SqlCommand(SqL, conn)

                    For i As Integer = 0 To CheckedListBox1.Items.Count - 1

                        Dim chkstate As CheckState

                        chkstate = CheckedListBox1.GetItemCheckState(i)

                        If (chkstate = CheckState.Checked) Then

                            cmd.Parameters.AddWithValue("sem2", CheckedListBox1.Items(i))
                            cmd.ExecuteNonQuery()
                            cmd.Parameters.Clear()

                        End If
                    Next
                End Using

                MessageBox.Show("Students saved")

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            conn.Close()
        End Using

    End Sub
End Class

I am getting this error when i select any item and press the button:-
No mapping exists from object type system.data.datarowview to a known managed provider native type.