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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] عمل تشك على خانة واحد فقط ابو روضة 4 56 منذ 3 ساعة مضت
آخر رد: wale90
  [VB.NET] ظهور رسالة خطأ: نوع البيانات غير متطابق في تعبير المعايير. Waleed Al-Khamesy 13 155 23-09-17, 10:22 PM
آخر رد: wale90
  سبب ظهور خطأ في حفظ البيانات مصمم هاوي 2 64 19-09-17, 12:33 PM
آخر رد: مصمم هاوي
  [VB.NET] لخبراء قواعد البيانات create table dubai.eig 4 85 19-09-17, 10:39 AM
آخر رد: dubai.eig
  [VB.NET] شباب الفزعة من فضلكم الكود سابقا شغال من يومين والحين مايشتغل 0theghost0 9 198 15-09-17, 04:38 PM
آخر رد: 0theghost0
  [VB.NET] محتاج كود يقوم بإعادة الترقيم 0theghost0 0 38 15-09-17, 02:15 PM
آخر رد: 0theghost0
  [VB.NET] محتاج مساعدة من فضلكم asadtaif 2 84 15-09-17, 01:01 PM
آخر رد: asadtaif
Big Grin [كود] شباب طريقة لإظهار الادوات بشكل شبه مخفى وليس الفورم badr.kamel 3 135 14-09-17, 05:07 AM
آخر رد: Mohamad Anan
  [VB.NET] هل هناك كود افضل من هذا الكود ضغط القاعدة البيانات 0theghost0 0 57 11-09-17, 12:58 PM
آخر رد: 0theghost0
  [سؤال] أريد قاعدة بيانات بها تفسير القرآن الكريم tarek 0 56 09-09-17, 02:44 PM
آخر رد: tarek

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


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