• 0
djamel2020

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

سؤال

رجاءا من يصحح لي هذا الكود
هو كود حذف من قاعدة البيانات
الكود هو:
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 وهي تابعة لنفس الفورم

 

شكرا لكم

 

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

3 إجابة على هذا السؤال .

  • 0

كود حذف السجل المحدد في 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
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
  • 0

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

بالتوفيق

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه
زوار
This topic is now closed to further replies.

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .