الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

الحذف من قاعدة البيانات

مغلقمُجاب
بدأه djamel2020 في 15 سبتمبر 2014 · 3 رد · 617 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

رجاءا من يصحح لي هذا الكود
هو كود حذف من قاعدة البيانات
الكود هو:
Private Sub BtnSupprimer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSupprimer.Click
'Supprimer un enregistrement
Dim r As Integer
Dim stqlDel, deltext As String
deltext = txtSerch.Text
stqlDel = "Delete from Achats where N = " & deltext & ""
Dim cmdDel As New OleDbCommand(stqlDel, cnn)
cnn.Open()
r = cmdDel.ExecuteNonQuery()
cnn.Close()
End Sub
هذا الكود يشتغل والحمد لله
لكن ما أريده هو أنني أريد أن أحذف السطر بمجرد تحديده داخل القريد فيو وليس بكتابة رقم N داخل textSerch كما هو مبين أعلاه

القريد فغيو اسمها datagridView1 وهي تابعة لنفس الفورم

 

شكرا لكم

#2 أفضل إجابة

كود حذف السجل المحدد في DataGridView

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

certifiedj.jpg

 

 

Image Hosted by ImageShack.us
#3

ألف شكر أستاذي الكريم والله من دونك ما أعرف كيف راح أشتغل

#4

لاشكر علي واجب

بالتوفيق

certifiedj.jpg

 

 

Image Hosted by ImageShack.us

هذا الموضوع مغلق.

مواضيع مشابهة