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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  كيفية عرض البيانات فى DataGridView فى وضع CrossTab noway 0 7 منذ 4 ساعة مضت
آخر رد: noway
  كمبو بوكس داخل الداتا جريد فارس احمد السيد 2 22 منذ 9 ساعة مضت
آخر رد: yousef
  [VB.NET] داتا جريد فيو فارس احمد السيد 2 50 منذ 11 ساعة مضت
آخر رد: فارس احمد السيد
  ازاى اصمم جدول فى قاعدة بيانات 2D noway 5 87 أمس, 04:27 AM
آخر رد: khodor1985
  استفسار عن تعبئة combobox من قاعدة البيانات المتألق9 2 55 16-02-17, 11:57 AM
آخر رد: المتألق9
  ما الفرق بين اضافة قاعدة البيانات عن طريق الكود و اضافى قاعدة البيانات عن طريق add ne noway 1 47 12-02-17, 08:06 PM
آخر رد: مساعدة
  [VB.NET] قاعدة بيانات SQL 2008R2 محمد بوقزاحة 5 89 09-02-17, 03:31 PM
آخر رد: مساعدة
  [سؤال] مشكلة في قاعدة البيانات عبدالرحمن المكاوي 2 57 08-02-17, 05:43 PM
آخر رد: عبدالرحمن المكاوي
  [VB.NET] خطأ في كود الاتصال بقاعدة البيانات ،، مرفق مشروع أبووسم 5 97 08-02-17, 04:56 PM
آخر رد: atefkhalf2004
  قاعدة بيانات صيدلية amrdipo 7 4,438 07-02-17, 05:49 PM
آخر رد: Amir_alzubidy

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


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