تقييم الموضوع :
  • 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
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  البحث في قاعدة بيانات اكسس hatem555 6 86 أمس, 02:53 AM
آخر رد: hatem555
  سؤال فى الداتا جريد salah mansour 1 83 21-05-17, 12:09 AM
آخر رد: boudyonline
  باستخراج من قاعدة البيانات بشرط listbox items rabeh.ram 0 65 19-05-17, 01:56 PM
آخر رد: rabeh.ram
  استيراد البيانات من الاكسيل salah mansour 1 52 18-05-17, 06:28 AM
آخر رد: khaled12345
  تخزين مباشر بالداتا جريد alma_fandi 2 56 18-05-17, 03:03 AM
آخر رد: alma_fandi
  حساب عدد الصفوف في الداتا جريد فيو khaled12345 7 117 16-05-17, 09:17 PM
آخر رد: محمود بكرى
  قاعدة البيانات تاكل التحديثات rabeh.ram 7 102 14-05-17, 11:01 AM
آخر رد: rabeh.ram
  [سؤال] كيفية حفظ صورة بصيغة pdf الى قاعدة البيانات مصطفى_ظيمة 17 240 13-05-17, 01:06 PM
آخر رد: مصطفى_ظيمة
  استراد وزتصدير الداتا الي الاكسيل khaled12345 2 111 12-05-17, 06:58 PM
آخر رد: khaled12345
  مساعده في قاعدة بيانات بالفيجوال a_abdullah 9 281 11-05-17, 11:54 AM
آخر رد: khaled12345

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


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