คือ ทำระบบซื้อขาย ใน VB 2008 เชื่อมต่อกับฐานข้อมูล MS SQL 2005
พอถึงหน้าขายสินค้าแล้ว ต้องการให้ดึงข้อมูลจากListBox ในListBoxมี เลขที่การขาย รหัสสินค้า ราคาขาย จำนวนที่ขาย เก็บลงในฐานข้อมูลของเรานะคะ
ลองทำดูแล้วมัน Error รบกวนช่วยดูโค้ด แล้วก็แก้ให้ด้วยนะคะ ขอบคุณมากคะ ><


Private Sub Save_Btn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Save_Btn.Click
        If Sale_ListView.Items.Count > 0 Then
            If MessageBox.Show("คุณต้องการยืนยันการขายสินค้า ใช่หรือไม่?", "คำยืนยัน", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = Windows.Forms.DialogResult.Yes Then
                Dim i As Integer
                Dim SqlSave As String = sb.ToString()
                Dim com = Conn.CreateCommand()
                For i = 0 To Sale_ListView.Items.Count - 1
                    sb.Remove(0, sb.Length)
                    sb.Append("Insert Into [sale_detail] (sale_no, pro_no, amount, sale_price)")
                    sb.Append(" VALUES (" & Sale_ListView.Items(i).SubItems(0).Text & "',")
                    sb.Append("'" & Sale_ListView.Items(i).SubItems(3).Text & "',")
                    sb.Append("'" & Sale_ListView.Items(i).SubItems(5).Text & ",0)")
                    sb.Append("'" & Sale_ListView.Items(i).SubItems(6).Text & ",")
                    SqlSave = sb.ToString()
                    With com
                        .CommandText = SqlSave
                        .ExecuteNonQuery()        'ตรงส่วนนี้มันฟ้อง Error ว่า Incorrect syntax near ','. Unclosed quotation mark after the character string '40,'.   40 คือราคาที่พิมลงไปใน Listview ค่ะ
                   End With
                   
                Next
                tr.Commit()
                MessageBox.Show("บันทึกรายการขายสินค้า เรียบร้อยแล้ว", "ผลการทำงาน", MessageBoxButtons.OK, MessageBoxIcon.Information)
                Sale_ListView.Clear()
                ClearCustomerData()
                ClearProductData()
                Sale_noTextBox.Text = ""
                Alltotal_Label.Text = "0"

                Sale_noTextBox.Focus()
            End If
        End If
    End Sub


ถ้าแก้ Error ไม่ได้ ก็รบกวนขอโค้ดใหม่เลยนะคะ ขอบคุณคะ