منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
زر الحذف لايعمل - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : زر الحذف لايعمل (/showthread.php?tid=27348)

زر الحذف لايعمل - hannileo - 08-11-18

السلام عليكم 
اخواني الكرام 


لما عندما اقوم بالضغط على زر حذف  لايقوم بشيئ الا باظهار رسالة انه تم حذف السجل 

ولم يتم حذف اي شيئ؟؟؟
كود :
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


شكراً

RE: زر الحذف لايعمل - elgokr - 08-11-18

وعليكم السلام ورحمة الله وبركاته

القى نظهر هنا على هذا الجزء
كود :
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


انت فى بداية الكود قمت باغلاق الاتصال وليس العكس
فهنا السؤال اذا كان الاتصال مغلق كيف سيتم تنفيذ المطلوب

وسبب ظهور الرسالة دون اى تنفيذ
لان كود الرسالة مستقل بدون اى تحقق بشرط

تحياتى لك
وتمنياتى لك التوفيق


RE: زر الحذف لايعمل - hannileo - 11-11-18

(08-11-18, 03:06 PM)elgokr كتب :
وعليكم السلام ورحمة الله وبركاته

القى نظهر هنا على هذا الجزء
كود :
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


انت فى بداية الكود قمت باغلاق الاتصال وليس العكس
فهنا السؤال اذا كان الاتصال مغلق كيف سيتم تنفيذ المطلوب

وسبب ظخور الرسالة دون اى تنفيذ
لان كود الرسالة مستقل بدون اى تحقق بشرط

تحياتى لك
وتمنياتى لك التوفيق


صحيح استاذ الجوكر لقد لقد كان نسخته بالخطأ ولكن المشكلة لم تحل حتى قمت بازالة مفاح اساسي عن السجل في قاعدة البيانات 

وقد تمك حل المشكلة 
شكرا لك ولجهودك

RE: زر الحذف لايعمل - elgokr - 12-11-18

احسنت عملاً فى توضيح لما توصلت اليه
والشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق