[محمد اسماعيل]

السلام عليكم

طلبت اكثر من مرة تعديل كود الحذف ولم يقم احد بالنظر بطلبي واكمالة الكود يتوقف علية برنامجي

حاولت كثير ولكن الكود يحذف ويعطي خطا لا ادري ما المشكلة 

الكود الذي يعطي خطاء

كود :

Try
           If DataGridView1.RowCount <= 0 Then
               Exit Sub
           End If
           con.Open()
           DataGridView1.ClearSelection()
           Dim a As Integer
           DataGridView1.Rows(DataGridView1.CurrentRow.Index).Selected = True
           a = DataGridView1.Rows.GetLastRow(DataGridViewElementStates.Selected).ToString + 1
           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           Validate()
           DataGridView1.Refresh()
           DataAdapter1.Update(DataSet1, "tb1,tb2")
           DataSet1.AcceptChanges()
           conn()
           count()
           con.Close()
           MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try

ارفقت المشروع واريد التعديل علي كود الحذف

[محمود صالح]

ضعه هذا الكود مكان كود الحذف الي عندك

كود :

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       Try
           If DataGridView1.RowCount <= 0 Then
               Exit Sub
           End If
           Dim I As Integer = DataGridView1.CurrentCell.RowIndex
           con.Open()
           cmd = New OleDbCommand("DELETE FROM tb1 where ID_mail like " & DataGridView1.Rows(I).Cells(0).Value & " and clien_mail like '" & DataGridView1.Rows(I).Cells(1).Value.ToString & "'", con)
           cmd.ExecuteNonQuery()
           con.Close()
           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub

انا جربته شغال كويس
يارب يكون هو ده الى انت عاوزه

[وائل القطاوي]

Try
Select Case MsgBox("هل تريد الحذف بالفعل لـ" &"" & TextBox1.Text & "" , vbInformation + vbMsgBoxRight + vbYesNo, "عزيزي المستخدم")
Case vbYes
Dim str As String = String.Format(" delete from users where id = {0} ", DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())
Dim cmd As New OleDbCommand(str, CONN)
CONN.Open()
cmd.ExecuteNonQuery()
CONN.Close()
MsgBox(" تم الحذف بنجاح ", vbMsgBoxRight + vbInformation,"عزيزي المستخدم")
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
Case vbNo
End Select
Catch ex As Exception
MsgBox(" عذرا لم يتم الحذف يرجى اعادة المحاولة ", vbMsgBoxRight + vbDirectory,"عزيزي المستخدم")
CONN.Close()
End Try

[محمد اسماعيل]

(06-01-18, 08:31 AM)محمود صالح كتب : ضعه هذا الكود مكان كود الحذف الي عندك

كود :

   Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
       Try
           If DataGridView1.RowCount <= 0 Then
               Exit Sub
           End If
           Dim I As Integer = DataGridView1.CurrentCell.RowIndex
           con.Open()
           cmd = New OleDbCommand("DELETE FROM tb1 where ID_mail like " & DataGridView1.Rows(I).Cells(0).Value & " and clien_mail like '" & DataGridView1.Rows(I).Cells(1).Value.ToString & "'", con)
           cmd.ExecuteNonQuery()
           con.Close()
           DataGridView1.Rows.RemoveAt(DataGridView1.CurrentRow.Index)
           MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح", 64 + 524288, "حذف سجل من كلا الجدولين")
       Catch ex As Exception
           MessageBox.Show(ex.Message, "Error", MessageBoxButtons.OK, MessageBoxIcon.Error)
       End Try
   End Sub

انا جربته شغال كويس
يارب يكون هو ده الى انت عاوزه

شغال 100 %   الف شكر وفقك الله

---

(06-01-18, 01:31 PM)وائل القطاوي كتب : Try
Select Case MsgBox("هل تريد الحذف بالفعل لـ" &"" & TextBox1.Text & ""  , vbInformation + vbMsgBoxRight + vbYesNo, "عزيزي المستخدم")
Case vbYes
Dim str As String = String.Format(" delete from users where id = {0} ", DataGridView1(0, DataGridView1.SelectedRows(0).Index).Value.ToString())
Dim cmd As New OleDbCommand(str, CONN)
CONN.Open()
cmd.ExecuteNonQuery()
CONN.Close()
MsgBox(" تم الحذف بنجاح ", vbMsgBoxRight + vbInformation,"عزيزي المستخدم")
dt.Clear()
da.Fill(dt)
DataGridView1.DataSource = dt
Case vbNo
End Select
Catch ex As Exception
MsgBox(" عذرا لم يتم الحذف يرجى اعادة المحاولة ", vbMsgBoxRight + vbDirectory,"عزيزي المستخدم")
CONN.Close()
End Try

الكود احتاج لتعديلات بسيطة جزاك الله خيرا ولكن اشتغل بالنهاية