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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اخوانى رجاء من فضلكم ان تنظروا الى هذا الاستعلام خالد كامل1 5 157 05-11-19, 09:00 PM
آخر رد: خالد كامل1
  [سؤال] كود الحذف من قاعدة بيانات muad 2 139 14-10-19, 10:11 PM
آخر رد: muad
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 37 30,976 21-09-19, 09:45 PM
آخر رد: khairallah
  [VB.NET] كيف اتحكم ببرنامج الواتس اب عن طريق برنامجي ؟ Alhootti1 0 101 16-09-19, 10:23 AM
آخر رد: Alhootti1
  [VB.NET] كود الحذف اسامه الهرماوي 4 150 31-07-19, 04:33 AM
آخر رد: اللورد محمود
Exclamation [سؤال] مشكلة في تشغيل برنامجي عند العميل بسبب الكريستال ريبورت solyH 2 297 25-07-19, 11:58 PM
آخر رد: solyH
  [VB.NET] مشكلة في استرجاع كود برنامجي solyH 6 334 30-06-19, 05:05 PM
آخر رد: solyH
  مشكلة في ربط إدخالات جهاز البصمة مع برنامجي فراس صلاح 1 325 22-06-19, 05:11 PM
آخر رد: elgokr
Sad [VB.NET] تجربة برنامجي فيجوال و sql اسامه الهرماوي 7 509 28-05-19, 12:30 AM
آخر رد: اسامه الهرماوي
  مشكلة في كود الحذف والحفظ في نفس الوقت ahmedfa71 9 439 14-05-19, 11:48 AM
آخر رد: ahmedfa71

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


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