F
fjdhgudgjdhgudfgjkshfuigh
Guest
Hello i am new to working on vb.net 2008, want to know how to insert multiple selected checkboxes value from checkedlistbox in vb.net 2008 to sql server 2005 database. so i have two table in whiche fields name are same such as (Module_ID,Module_Name) and Tables name are 1st one(Modules), 2nd (ruff_Module)... so in First table add some subjects name with number like (1,Math and so on) and second table is empty ... now my question is that i want to add these selected modules from table one which are load into checkedlistbox control , when i select multiple checkboxes they insert to 2nd table just one click on insert button.... please help me out.... MY CODE IS :
Imports System.Data.SqlClient
Imports System.Text
Public Class Form1
Dim cn As New SqlConnection("Data Source=NIDA-PC\SQLEXPRESS;Initial Catalog=Exam_Data;Integrated Security=True")
Dim da As New SqlDataAdapter()
Dim ds As New DataSet
Dim dr As SqlDataReader
Dim qry As String
Dim cmd As New SqlCommand
Dim qry1 As String
Dim qry2 As String
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
qry = "Select Module_ID,Module_Name from Modules"
da = New SqlDataAdapter(qry, cn)
ds = New DataSet()
da.Fill(ds, "tab")
CheckedListBox1.DataSource = ds.Tables("tab")
CheckedListBox1.DisplayMember = "Module_Name"
CheckedListBox1.ValueMember = "Module_ID"
CheckedListBox1.Text = ""
End Sub
Public Sub Stringbuilder()
Try
Dim sql As New StringBuilder("Insert into Modules (Module_Name) VALUES ")
For Each c In CheckedListBox1.CheckedIndices
Dim rowView As DataRowView = CheckedListBox1.Items(c)
Dim value = rowView("Module_Name").ToString()
sql.Append("(" & value & ")")
sql.Length -= 1
cmd.CommandText = sql.ToString()
cmd.Connection = cn
cn.Open()
Dim rowsInserted = cmd.ExecuteNonQuery()
MsgBox("inserted " & rowsInserted & "rows", MsgBoxStyle.OkOnly)
Next
Catch ex As Exception
MsgBox("Error", MsgBoxStyle.Critical)
End Try
cn.Close()
End Sub
Stringbuilder()
End Sub
End Class
and there is showing one error and the error is : Incorrect syntax near Math.
Math is the module name which is load from ist table into checkedlistbox.....
Continue reading...
Imports System.Data.SqlClient
Imports System.Text
Public Class Form1
Dim cn As New SqlConnection("Data Source=NIDA-PC\SQLEXPRESS;Initial Catalog=Exam_Data;Integrated Security=True")
Dim da As New SqlDataAdapter()
Dim ds As New DataSet
Dim dr As SqlDataReader
Dim qry As String
Dim cmd As New SqlCommand
Dim qry1 As String
Dim qry2 As String
Dim dt As New DataTable
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
qry = "Select Module_ID,Module_Name from Modules"
da = New SqlDataAdapter(qry, cn)
ds = New DataSet()
da.Fill(ds, "tab")
CheckedListBox1.DataSource = ds.Tables("tab")
CheckedListBox1.DisplayMember = "Module_Name"
CheckedListBox1.ValueMember = "Module_ID"
CheckedListBox1.Text = ""
End Sub
Public Sub Stringbuilder()
Try
Dim sql As New StringBuilder("Insert into Modules (Module_Name) VALUES ")
For Each c In CheckedListBox1.CheckedIndices
Dim rowView As DataRowView = CheckedListBox1.Items(c)
Dim value = rowView("Module_Name").ToString()
sql.Append("(" & value & ")")
sql.Length -= 1
cmd.CommandText = sql.ToString()
cmd.Connection = cn
cn.Open()
Dim rowsInserted = cmd.ExecuteNonQuery()
MsgBox("inserted " & rowsInserted & "rows", MsgBoxStyle.OkOnly)
Next
Catch ex As Exception
MsgBox("Error", MsgBoxStyle.Critical)
End Try
cn.Close()
End Sub
Stringbuilder()
End Sub
End Class
and there is showing one error and the error is : Incorrect syntax near Math.
Math is the module name which is load from ist table into checkedlistbox.....
Continue reading...