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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  هل من الممكن العمل على قاعدة بيانات اكسل على الفيجوال بيسك خالد كامل1 4 81 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة فى جمع عمود فى داتا جريد فيو احمد خطاب 3 152 06-03-24, 07:49 PM
آخر رد: احمد خطاب
  محتاج طريقة لتنسيق نص الرسالة المرسلة إلى الواتس اب new_programer 2 163 04-03-24, 07:15 AM
آخر رد: new_programer
  حذف الاسطر الفارغه من الداتا جريد فيو اليوم السابع 3 2,357 03-03-24, 12:57 AM
آخر رد: مصمم هاوي
  كيفية جمع أرقام عمود فى الداتا جريد فيو بناءاً على بيانات معينة heem1986 5 223 25-02-24, 11:26 PM
آخر رد: heem1986
  [VB.NET] حل مشكلة الاتصال بقواعد البيانات access loay775 2 158 25-02-24, 06:29 AM
آخر رد: loay775
  محتاج تشفير فيديو وتشغلية عن طريق البرنامج فقط new_programer 1 112 22-02-24, 12:09 PM
آخر رد: AHMED213
  كيفية تنفيذ امر عند التعليم على checkbox بالداتا جريد فيو heem1986 2 158 21-02-24, 01:37 AM
آخر رد: heem1986
  انشاء قاعدة بيانات من ملف سكربت strongriseman 5 500 17-02-24, 02:57 PM
آخر رد: strongriseman
  سؤال عن عملية حذف سجل من قاعدة البيانات assuhimi 3 249 11-02-24, 08:43 PM
آخر رد: assuhimi

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


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