如何插入从列表框中的数据到的MS Access throught VB.NET

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查询中传递值。