تقييم الموضوع :
  • 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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Question [VB.NET] ازرار التنقل و الاضافة و الحفظ و الحذف و التعديل في entity framework باستخدام visual vb 2010 + sql server 2008 2 55 , 11:31 AM
آخر رد: vb 2010 + sql server 2008
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 3 1,436 07-10-20, 05:53 AM
آخر رد: alipro
  الحذف من جدولين khaled Mohammed 3 155 16-09-20, 06:31 PM
آخر رد: khaled Mohammed
  منع الوصول الى ملفات برنامجي alshandodi 4 424 30-06-20, 05:25 PM
آخر رد: alshandodi
  [VB.NET] التحكم في برنامج اخر من برنامجي Mustafa Shaker 0 326 19-06-20, 01:43 PM
آخر رد: Mustafa Shaker
  [VB.NET] ساعدوني رجاء في تعديل مشروعي tahaayyoub 0 248 09-06-20, 02:09 AM
آخر رد: tahaayyoub
  مشكل برنامجي مع مضاد الفيروس paveldida 10 657 23-05-20, 01:45 PM
آخر رد: alshandodi
  مساعده في الكيبورد في برنامجي alshandodi 5 420 21-05-20, 05:04 AM
آخر رد: DR.YASER
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 38 36,945 14-02-20, 11:54 AM
آخر رد: Mohamed371
  اكتب الكود بشكل صحيح ولكن يظهر خطاء رجاء المساعده اليوم السابع 6 778 30-01-20, 04:28 PM
آخر رد: ابو روضة

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


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