تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] شباب محتاج كود حذف سطر واحد من الداتا جريد محفوظ فى قاعدة البيانات
#1
بسم الله الرحمن الرحيم
السلام عليكم شباب
محتاج كود حذف سطر واحد بالداتا جريد محفوظ بقاعدة البيانات
الكود الى عندى يقوم بحذف جميع البيانات
مع العلم ان هذا جدول فرعى ليس به رقم تسلسلى لاكن رقم يحفظ من الرقم التستلى الرئيسى
يارب اذا اعطيتني علما...اعطني معه حكمه...واذا اعطيتني مالا....اعطيني معها كرما...واذا اعطيتني قوه...اعطني معها رحمه...واذا اعطيتني سلطه...اعطني معها عدلا...واذا اعطيتني مسئوليه...اعطيني معها امانه...واذا اعطيتني نجاحا...اعطني معها تواضعا...اللهم امين
الرد
تم الشكر بواسطة:
#2
يظهر لي و الله اعلم انه لابد لكل جدول مفتاح رئيسي فريد
الرد
تم الشكر بواسطة:
#3
وعليكم السلام ورحمه الله وبركاته
لم افهم بالضبط ايش تقصد بان ليس له رقم تسلسلي

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

وهذا مثال توضيحي واتمنى وصلت الفكرة
كود :
Private Sub btnDell_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnDell.Click
        Dim deletOk As String = MsgBox("هل تريد حدف البيانات المحددة ", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "تاكيد عملية الحدف")
        If deletOk = vbYes Then
            Dim deletConfirm As Boolean = WinClass.SQLExicute(" Delete From jop Where JopID =" & txtID.Text)
            If deletConfirm = True Then
                MsgBox("تم عملية الحدف بنجاح", MsgBoxStyle.Exclamation, "تم الحدف")
                txtname.Text = ""
                FillDataGraid()
            Else
                MsgBox("خطا في عملية حذف البيانات", MsgBoxStyle.Critical, "خطا")

            End If

        End If
    End Sub
الرد
تم الشكر بواسطة:
#4
سلام عليكم انا مش محترف بس جرب الكود ده والله المستعان 
منقول للامانه طبعا

كود الحذف


If MsgBox("هل أنت متأكد من عملية الحذف  ? ", MsgBoxStyle.OkCancel, "تأكيد حذف") = MsgBoxResult.Cancel Then

                        Exit Sub
                End If
                Try
                        CreateConn()
                        Dim SavInto As New OleDb.OleDbCommand
                        SavInto.Connection = getConn()
                        SavInto.CommandType = CommandType.Text
                        '-----------------
                        'حذف قيمة السجل الذي يتم تحديده
                        'DGview.Item(0, DGview.CurrentCellAddress.Y).Value
                        SavInto.CommandText = "DELETE FROM tb1  WHERE ID =" & CType(DGview.Item(0, DGview.CurrentCellAddress.Y).Value, Integer) & ""
                        '---------------
                        OpenConn()
                        If SavInto.ExecuteNonQuery() Then
                                t1.Text = "تمت علمية حذف البيانات بنجاح"
                                'إذا تم حذف السجل بنجاخ من قاعدة البيانات 
                                'يتم ايضا حذفه من الداتاقريد مباشرة
                                If Not DGview.CurrentRow.IsNewRow Then
                                        DGview.Rows.Remove(DGview.CurrentRow)
                                End If
                        Else
                                MsgBox("فشلت عملية الحذف  حاول مرة أخرى ", MsgBoxStyle.MsgBoxRight, "فشل العملية")
                        End If
                        CloseConn()

                Catch ex As Exception
                        MsgBox("لا يوجد أي سجلات للحذف  ", MsgBoxStyle.MsgBoxRight, "فشل العملية")

                End Try
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيف يُمكن حماية قاعدة بيانات الأكسس؟ Hazem1 0 4 منذ 18 دقيقة مضت
آخر رد: Hazem1
  استفسار عن طريقة نقل البيانات من Datagridview إلى الكريستال ريبورت جيولوجي مبتدئ 1 23 أمس, 08:35 PM
آخر رد: عبد العزيز البسكري
  محتاج مساعدة فى عمل تحديث لى البرنامج عن بعد Mohamed Magdy 0 26 أمس, 10:23 AM
آخر رد: Mohamed Magdy
  طريقة تعبئة الداتا جريد فيو من اكثر من جدول سمير جمال 1 57 19-10-18, 08:56 PM
آخر رد: سمير جمال
  تحديث قاعدة البيانات علي جهاز العميل makky 1 47 19-10-18, 04:13 PM
آخر رد: ahmedmansour
  سؤال بخصوص الداتا جريد فيو احمد خطاب 2 51 19-10-18, 12:42 PM
آخر رد: احمد خطاب
  مشكلة عند رفع قاعدة البينات فى الفيجول بيسك Mohamed Magdy 2 72 19-10-18, 10:38 AM
آخر رد: Mohamed Magdy
  [SQL] كيفية استيراد قاعدة بيانات من mysql الي sqlserver2014 alipro 1 52 19-10-18, 08:21 AM
آخر رد: rnmr
  مشكلة فى اضافة حقول جديدة فى قاعدة البيانات و ربطها بالفيجوال استوديو nabil.1710 1 65 18-10-18, 01:09 PM
آخر رد: nabil.1710
  مشكله فى الداتا جريد فيو خالد كامل1 2 68 18-10-18, 02:56 AM
آخر رد: خالد كامل1

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


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