مشكلة عند حذف عنصر - نسخة قابلة للطباعة

مشكلة عند حذف عنصر - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (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=42390)

مشكلة عند حذف عنصر - hannileo - 06-09-22

كود :

Private Sub cmdDelete_Click()

Timer1.Enabled = False

If TxtName.Text = "" Then

MsgBox "íÑÌì ÊÍÏíÏ ÇáÑÍáÉ ÇáÊí ÊÑíÏ ÅáÛÇÁåÇ", vbExclamation, "ÊäÈíå!"

Exit Sub

Else

  If TxtNO.Text = vbNullString Then

            MsgBox "íÑÌì ÊÍÏíÏ ÇáÑÍáÉ ÇáÊí ÊÑíÏ ÅáÛÇÁåÇ", vbExclamation, "ÊäÈíå!"

        Else

        If RS.State = 1 Then RS.Close

        sql = "SELECT * FROM tblTrip WHERE Tno "

        RS.Open sql, CN, adOpenKeyset, adLockPessimistic

        With RS

                .Delete

            End With

            Set RS = Nothing

            Timer1.Enabled = True

            MsgBox "Êã ÅáÛÇÁ ÇáÑÍáÉ", vbInformation, "ÅÇáÛÇÁ"

        End If

        End If

        End Sub

السلام عليكم
اخواني عندي الجدول عندما اقومبحذف عنصر ما فانه يحذف العنصر الاول بالجدول بقائمة ليست فيو ولا يحذف العنصر المحدد
مع العلم ان Tno يملك مفتاح اساسي بقاعدة البيانات

ارجو المساعدة

RE: مشكلة عند حذف عنصر - Taha Okla - 07-09-22

وعليكم السلام

لازم تحدد في جكلة الاستعلام على أي أساس بدك تحذف
يعني Tino شو بتساوي حتى يحذف السجل التابع لها...
مثلاً :
اذا كان حقل رقمي وتريد تحذف السجل الذي فيه يكون هذا الحقل مساوي لـ 555

كود :

sql = "SELECT * FROM tblTrip WHERE Tno=555 "

أو كان نوع الحقل نصي ولكن تسجل فيه أرقام :

كود :

sql = "SELECT * FROM tblTrip WHERE Tno='555' "

بعد هذا تكون قد حددت بدقة ماذا تريد أن تحذف
فعندما تعطي أمر الحذف فلن يحذف الا هذا السجل ان وجده..