将 CheckedListBox 中的 >1 个选定复选框值插入 SQL Server

Question

我是使用 vb.net 2008 和 SQL Server 2005 的新手。我想通过单击 vb.net 中的插入按钮从 checkedlistbox 插入多个选定的复选框值。

谁能告诉我如何做到这一点？

我的代码是：

Dim Checkeditems As Integer

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    cmd.CommandText = ("Insert into Modules where Module_Name=@Module_Name")
    cmd.Connection = cn
    cn.Open()
    For Each Checkeditem In CheckedListBox1.SelectedValue.ToString
        cmd.Parameters.AddWithValue("@Module_Name", Checkeditem)
    Next
    MsgBox("inserted", MsgBoxStyle.OkOnly)
    cn.Close()
End Sub

这就是我填充 CheckedListBox 的方式

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 = ""

Answer 1

您必须纠正的第一件事是Insert 命令允许使用它们的 is no where 条件。

如果您想在单个查询中插入多行意味着您可以使用refer this link 或尝试以下操作，

Dim sql as String="Insert into Modules (Module_Nam) VALUES "
For Each itemChecked In CheckedListBox1.CheckedItems
    sql & = "('" &  itemChecked.ToString & "'),"
Next
cmd.CommandText = sql.SubString(0,Len(sql)-1) '<-- avoid an additional comma
cmd.Connection = cn
cn.Open()
cmd.ExecuteNonQuery()
MsgBox("inserted", MsgBoxStyle.OkOnly)
cn.Close()

Answer 2

Neethu Soman 的答案正在引导您朝着正确的方向前进，但其中包含一些错误和一些低效率。

第一点：如果清单中有很多元素，最好使用StringBuilder 类以避免过多的字符串连接。
第二点：您应该遍历 CheckedIndices 属性以检索要插入的 Item 文本，避免对所有项目进行不必要的循环。

Dim sql = new StringBuilder("Insert into Modules (Module_Nam) VALUES ")
For Each c In CheckedListBox1.CheckedIndices
    Dim value = CheckedListBox1.Items(c).ToString
    sql.Append("('" &  value & "'),"
Next
sql.Length -= 1 ' Remove the last comma '
cmd.CommandText = sql.ToString()
cmd.Connection = cn
cn.Open()
Dim rowsInserted = cmd.ExecuteNonQuery()
MsgBox("inserted " & rowsInserted & " rows", MsgBoxStyle.OkOnly)
cn.Close()

编辑

根据您在下面的评论，CheckedListBox 中的每个项目都是DataRowView，当您想要取回检查的值时，您需要使用 DataRowView 对象

Dim sql = 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 & "'),"
Next
sql.Length -= 1 ' Remove the last comma '
cmd.CommandText = sql.ToString()
cmd.Connection = cn
cn.Open()
Dim rowsInserted = cmd.ExecuteNonQuery()
MsgBox("inserted " & rowsInserted & " rows", MsgBoxStyle.OkOnly)
cn.Close()

这将修复读取检查值时的错误，但我对您的代码有点困惑。您有一个名为 Modules 的表，您可以从中读取模块的 ID 和名称。然后你写代码在同一个表中再次插入模块名称？您最终会在该表中得到重复的模块名称（如果 Module_Name 不是该表中的唯一索引）。这真的是你想要做的吗？