Question

Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
  Dim conn As OleDbConnection = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\Sammet\Documents\ChillOut.accdb")


  Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("Insert into Chillfoodin (item,price,No) values (@item,@price,@No)")
  cmd.Connection = conn
  cmd.Parameters.Add("@item", OleDbType.VarChar)
  cmd.Parameters.AddWithValue("@price", OleDbType.Integer)
  cmd.Parameters.AddWithValue("@No", OleDbType.Integer)
  conn.Open()
  For Each sum As listitem In Me.ListBox2.Items

  Next

  cmd.ExecuteNonQuery()
  MsgBox("Item added")
  TextBox1.Clear()
  TextBox2.Clear()
  End Sub

这是一个计费软件我从多个文本框中取出条目并将其作为字符串传递到列表框中，现在我想将列表框中的列表添加到MS Access数据库中，分为3个不同的字段

Answer 1

您需要从每个列表框项中拆分文本，然后使用该字符串数组在sql查询中传递值。

如何通过VB.NET将数据从列表框插入到MS Access中

1 个答案: