تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
زر الحذف لايعمل
#1
السلام عليكم 
اخواني الكرام 


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

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


شكراً
الرد }}}
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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


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

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

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: hannileo , hannileo , asemshahen5
#3
(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


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

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

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


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

وقد تمك حل المشكلة 
شكرا لك ولجهودك
الرد }}}
تم الشكر بواسطة: elgokr , asemshahen5
#4
احسنت عملاً فى توضيح لما توصلت اليه
والشكر لله والحمد لله
والحمد لله على كل حال

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى    لكل من يقوم بالمساهمة
فى حل المشكلة او الاستفسار لديك فالجميع هنا يعمل 
على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله


 شرح كيفية عمل قاعدة بيانات تعمل على اكثر من جهاز على الشبكة الداخلية
الرد }}}
تم الشكر بواسطة: hannileo , hannileo , asemshahen5


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يمكن الحفاظ على تسلسل ارقام حقول الجدول حتى بعد الحذف؟ gonm64 12 3,404 18-01-20, 12:52 AM
آخر رد: gonm64
  تعديل كود إعادة الترقيم بعد الحذف مصمم هاوي 2 2,021 03-07-17, 12:29 PM
آخر رد: أبوبكر سويدان
  [ تمّ الحل ] :الحذف مع التّأكيد بواسطة التشيك بوكس عبد العزيز البسكري 4 2,384 27-01-17, 02:59 PM
آخر رد: عبد العزيز البسكري
  [ تمّ الحل ] : الحذف من الجدول مع الحفظ بجدول آخر معيّن عبد العزيز البسكري 12 3,649 02-01-17, 04:27 AM
آخر رد: عبد العزيز البسكري
  كود البحث بين تاريخين لايعمل بشكل صحيح فاضل الحمود 8 7,452 12-08-16, 07:57 PM
آخر رد: Ahmed tantawy
  [مشروع] كود النسخ لايعمل عندما احول المشروع إلى ملف تنفيذي فاضل الحمود 7 2,823 26-06-16, 12:55 AM
آخر رد: فاضل الحمود
  [كود] كود الحذف لايحذف السجل الأول من الجدول فاضل الحمود 28 7,846 24-10-14, 12:50 AM
آخر رد: السيد الغالي
  كود حذف الصنف في الفاتورة لايعمل الرجاء التعديل فاضل الحمود 6 2,676 22-09-14, 01:53 PM
آخر رد: فاضل الحمود

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم