Insert muliple checkedListBox values to database in vb.net

Insert muliple checkedListBox values to database in vb.net

Berikut ini caranya melakukan insert dari checkboxtlist ke database sql server di vb.net.

dalam Code C#:

using System;

using System.Collections.Generic;

using System.ComponentModel;

using System.Data;

using System.Drawing;

using System.Linq;

using System.Text;

using System.Windows.Forms;

using System.Data.OleDb;

namespace InsertmultipleValueCheckBoxList

{

    public partial class Form1 : Form

    {

        string ConnectionString = System.Configuration.ConfigurationSettings.AppSettings["dsn"];

        OleDbCommand com;

        public Form1()

        {

            InitializeComponent();

        }

        private void Form1_Load(object sender, EventArgs e)

        {

            checkedListBox1.Items.Add("yohan");

            checkedListBox1.Items.Add("regi");

            checkedListBox1.Items.Add("nurul");

        }

        private void btn_insert_Click(object sender, EventArgs e)

        {

            OleDbConnection con = new OleDbConnection(ConnectionString);

            foreach (var checkedItem in this.checkedListBox1.CheckedItems)

            {

                com = new OleDbCommand("Insert into test values('" + checkedItem +"')", con);

                con.Open();

                com.ExecuteNonQuery();

                con.Close();

            }

            MessageBox.Show("Inserted Successfully");

        }

    }

}

Berikut ini Kode VB.NET :

Imports System.ComponentModel
Imports System.Data
Imports System.Drawing
Imports System.Linq
Imports System.Text
Imports System.Windows.Forms
Imports System.Data.OleDb
Namespace InsertmultipleValueCheckBoxList
    Public Partial Class Form1
        Inherits Form
        Private ConnectionString As String = System.Configuration.ConfigurationSettings.AppSettings("dsn")
        Private com As OleDbCommand

        Public Sub New()
            InitializeComponent()
        End Sub

        Private Sub Form1_Load(sender As Object, e As EventArgs)
            checkedListBox1.Items.Add("Raj")
            checkedListBox1.Items.Add("Ravi")
            checkedListBox1.Items.Add("Rahul ")
        End Sub

        Private Sub btn_insert_Click(sender As Object, e As EventArgs)
            Dim con As New OleDbConnection(ConnectionString)
            For Each checkedItem As var In Me.checkedListBox1.CheckedItems
                com = New OleDbCommand("Insert into test values('" + checkedItem + "')", con)
                con.Open()
                com.ExecuteNonQuery()
                con.Close()
            Next
            MessageBox.Show("Inserted Successfully")
        End Sub
    End Class
End Namespace