如何将列表框的全部内容发送到SQL数据库？

-2

对于列表框加载txt文件，现在我想把内容发送到sql数据库，其中有两个表m.in用户，通信 http://obrazki.elektroda.pl/8069892000_1409841532.png 如何添加所有项目同时记录在表中用id用户？ ex。 http://obrazki.elektroda.pl/5048367700_1409841766.png 如何将列表框的全部内容发送到SQL数据库？

以下方法仅在选择一个项目时起作用。

Dim con As New MySqlConnection 
     Dim cmd As New MySqlCommand 
     Try 
      con.ConnectionString = "Server = x; User ID = x; Password = x; Database = x;" 
      con.Open() 
      cmd.Connection = con 
      cmd.CommandText = "insert into ycomm (user, comm) values ('" & ListView2.Items (0) .SubItems (0) .Text & "', '" & ListBox1.SelectedItem & "')" 
      cmd.ExecuteNonQuery() 

     Catch ex As Exception 

     Finally 
      con.Close() 
     End Try 
     Call showData()

来源

2014-09-04 Martin Garsson

当你选择的项目，因为你指定'ListBox1.SelectedItem'，毫不奇怪它仅适用。 – Plutonix 2014-09-04 15:01:45

我知道，但如何插入所有项目？ – 2014-09-04 15:28:46

是一个诡计问题吗？通过所有的ListBox1.Items并插入它们 - 你回答了你自己的问题 – Plutonix 2014-09-04 15:31:17

我发现这个，但是现在dees工作，哪里有问题？

替换：

cmd.CommandText = "insert into ycomm (user, comm) values ('" _ 
& ListView2.Items(0).SubItems(0).Text & "', '" & ListBox1.SelectedItem & "')"

随着

cmd.CommandText = "INSERT INTO ycomm (user, comm) VALUES(@user, @comm)" 

    cmd.Parameters.AddWithValue("@user", ListView2.Items(0).SubItems(0).Text) 
    cmd.Parameters.Add("@comm", SqlDbType.VarChar) 

    For i As Integer = 0 To lst.Items.Count 
     cmd.Parameters("@comm").Value = lst.Items(i).Text 
     cmd.ExecuteNonQuery() 
    Next

来源

2014-09-04 16:45:20

如何将列表框的全部内容发送到SQL数据库？

回答

相关问题