08-11-18, 10:19 AM
السلام عليكم
اخواني الكرام
لما عندما اقوم بالضغط على زر حذف لايقوم بشيئ الا باظهار رسالة انه تم حذف السجل
ولم يتم حذف اي شيئ؟؟؟
شكراً
اخواني الكرام
لما عندما اقوم بالضغط على زر حذف لايقوم بشيئ الا باظهار رسالة انه تم حذف السجل
ولم يتم حذف اي شيئ؟؟؟
كود :
If rs.State = 1 Then rs.Close
sql = "DELETE * FROM tblTransactions WHERE TransacCode = '" & ListView1.SelectedItem.Text & "'"
cn.Execute (sql)
If rs.State = 1 Then rs.Close
MsgBox "User Account was successfully modified!", vbInformation + vbOKOnly, ""
If rs.State = 1 Then rs.Close
sql = "SELECT * FROM tblTransactions"
rs.Open sql, cn
ListView1.ListItems.clear
With rs
Do Until rs.EOF
Set li = ListView1.ListItems.Add(, , rs!ItemDesc)
li.SubItems(1) = rs!ItemQTY
li.SubItems(2) = Format(rs!UnitPrice, "###,###,###.00")
li.SubItems(3) = Format(rs!Amount, "###,###,###.00")
li.SubItems(4) = rs!TransacCust
li.SubItems(5) = rs!TransacCont
li.SubItems(6) = rs!DatePurchased
li.SubItems(7) = rs!TransacCode
li.SubItems(8) = rs!ItemProdCode
li.SubItems(9) = rs!ItemCategory
li.SubItems(10) = Format(rs!DatePurchased, Date)
rs.MoveNext
Loop
End With
شكراً