Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Try Dim i, c As String Dim a, b, d As String i = ListView1.Items.Count - 1 While i >= 0 a = ListView1.Items.Item(i).Text b = ListView1.Items.Item(i).SubItems.Item(1).Text c = ListView1.Items.Item(i).SubItems.Item(2).Text d = ListView1.Items.Item(i).SubItems.Item(2).Text Dim QUERY As String QUERY = "INSERT INTO sales(id,item name,item description,price,quality,total price)VALUES ('" + a + "','" + b + "','" + c + "')" 'EXECUTEQUERY(QUERY) MsgBox("saved") End While Catch eEndEdit As System.Exception System.Windows.Forms.MessageBox.Show(eEndEdit.Message) End Try End Sub End Class
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)