+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تعديل كود الحذف (/showthread.php?tid=50910)
تعديل كود الحذف - مصمم هاوي - 10-01-25
الرجاء تعديل كود حذف البيانات بحيث إذا كان الجدول فارغ تظهر رسالة بأنه لا توجد بيانات في الجدول
وهذا كود الحذف
كود :
Dim Position As Integer = DataGridView1.CurrentRow.Index
Dim ID_Position As Integer = DataGridView1.Rows(Position).Cells("BID").Value
Dim CmdDelete As New SqlCommand
With CmdDelete
.Connection = Conn
.CommandType = CommandType.Text
.CommandText = "Delete From Tab_Books Where BID = @BID"
.Parameters.Clear()
.Parameters.AddWithValue("@BID", SqlDbType.Int).Value = ID_Position
End With
Try
If Conn.State = 1 Then Conn.Close()
Conn.Open()
CmdDelete.ExecuteNonQuery()
Conn.Close()
MsgBox("تم حذف اســم الكتـاب المحـدد.", MsgBoxStyle.Information, "إجـراء الحـذف")
CmdDelete = Nothing
Catch ex As Exception
Conn.Close()
MsgBox(Err.Description, MsgBoxStyle.Information)
Finally
If Conn.State = ConnectionState.Open Then Conn.Close()
End TryRE: تعديل كود الحذف - أبو خالد الشكري - 10-01-25
بإمكانك إضافة الكود التالي في البداية ، قبل كود الحذف :
كود :
If DataGridView1.Rows.Count = 0 Then
MsgBox("لا توجد بيانات في الجدول", MsgBoxStyle.Critical, "حذف البيانات")
Exit Sub
End IfRE: تعديل كود الحذف - عبد العزيز البسكري - 10-01-25
إضافة لما قدمه أخي الكريم ابو خالد الشكري بارك الله فيه و له
يمكن وضعه في بداية كود الحذف
كود :
Using Cmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("SELECT MAX(STUDENT_Id) From TBL_STUDENT", Conne)
If Conne.State = ConnectionState.Closed Then
Conne.Open()
End If
If Cmd.ExecuteScalar Is DBNull.Value Then
MessageBox.Show("جدول التلاميذ فارغَا .. لا توجد بيانات لتنفيذ الأمر", "تنبيه", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
Conne.Close()
Return
End If
End Usingتحياتي