تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] برنامجي يتوقف علي كود الحذف رجاء من الخبراء
#1
السلام عليكم

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

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

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


كود :
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


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


الملفات المرفقة
.rar   salling.rar (الحجم : 639.46 ك ب / التحميلات : 36)
الرد
تم الشكر بواسطة:
#2
ضعه هذا الكود مكان كود الحذف الي عندك
كود :
   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
انا جربته شغال كويس
يارب يكون هو ده الى انت عاوزه
صلى الله على نبينا محمد
اخيكم / محمود صالح
  قال الزهري رحمه الله  
 مــا عُـــبـِد الله بشئ أفضل من العلم 
الرد
تم الشكر بواسطة: محمد اسماعيل
#3
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
الرد
تم الشكر بواسطة: محمد اسماعيل , محمد اسماعيل
#4
(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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكل برنامجي مع مضاد الفيروس paveldida 10 145 23-05-20, 01:45 PM
آخر رد: alshandodi
  مساعده في الكيبورد في برنامجي alshandodi 5 83 21-05-20, 05:04 AM
آخر رد: DR.YASER
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 38 35,190 14-02-20, 11:54 AM
آخر رد: Mohamed371
  اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده اليوم السابع 6 406 30-01-20, 04:28 PM
آخر رد: ابو روضة
  كيفية الحذف من Treeview من خلال chekbox al9atl 12 560 21-01-20, 02:06 AM
آخر رد: al9atl
Question [سؤال] كود لمنع المستخدم من التعديل او الحذف و السماح له بالاضافه Mahmoud moaaz 4 350 17-01-20, 04:52 AM
آخر رد: Mahmoud moaaz
  [VB.NET] استفسار عن كود الاستعلام التعديل واستعلام الحذف Hassan.syria 0 177 27-12-19, 08:27 PM
آخر رد: Hassan.syria
  سؤال فى الحذف احمد خطاب 4 297 27-12-19, 03:52 PM
آخر رد: احمد خطاب
  سؤال فى الحذف احمد خطاب 4 209 26-12-19, 02:30 PM
آخر رد: mmali127
  كيف اتجنب يتكرر خطاء الحذف في الداتا جريد فيو هذه دالة حذف بيانات من الداتاجريد فيو م بسام محمدغانم 2 280 12-12-19, 07:49 AM
آخر رد: بسام محمدغانم

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


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