30-10-18, 11:37 PM
السلام عليكم
استخدم الكود التالي لحذف صف محدد من قاعدة البيانات والكود يعمل جيدا
عملية الحذف تتطلب الوقوف وتحديد الصف المراد حذفة
وتتم العملية ايضا بصورة جيدا ويتم الحذف
المشكلة في حالة الضغط علي زر الحذف بدون تحديد اي صف يظهر خطا مع اني قمت بوضع شرط انة في حالة عدم تحديد اي صف يظهر رسالة بوجوب تحديد الصف ولكن الكود يتخطي الشرط وقمت بصياغة طريقة الشرط باكثر من طريقة وا شيء
الكود
استخدم الكود التالي لحذف صف محدد من قاعدة البيانات والكود يعمل جيدا
عملية الحذف تتطلب الوقوف وتحديد الصف المراد حذفة
وتتم العملية ايضا بصورة جيدا ويتم الحذف
المشكلة في حالة الضغط علي زر الحذف بدون تحديد اي صف يظهر خطا مع اني قمت بوضع شرط انة في حالة عدم تحديد اي صف يظهر رسالة بوجوب تحديد الصف ولكن الكود يتخطي الشرط وقمت بصياغة طريقة الشرط باكثر من طريقة وا شيء
الكود
كود :
Private Sub BT_DELETE_Click(sender As System.Object, e As System.EventArgs) Handles BT_DELETE.Click
Try
Dim indx As Integer = DATAG_CLIENONLIN.CurrentRow.Index
Dim result As Integer = MessageBox.Show(" هل تريد حذف العميل رقم" & vbNewLine & DATAG_CLIENONLIN(1, indx).Value.ToString(), "حذف", MessageBoxButtons.YesNo)
If (DATAG_CLIENONLIN.SelectedRows.Count > 0) Then
If result = DialogResult.Yes Then
Dim com As New OleDbCommand("UPDATE CUSTOMERDETAILS_TB SET CUSTOMERDETALIS_SHOW=@CUSTOMERDETALIS_SHOW WHERE CUSTOMERDETALIS_ID = @CUSTOMERDETALIS_ID", con) ',CUSTOMERDETALIS_DATE=@CUSTOMERDETALIS_DATE
Dim checkUPDAT As Boolean = False
con.Open()
com.Parameters.AddWithValue("@CUSTOMERDETALIS_SHOW", checkUPDAT)
com.Parameters.AddWithValue("@CUSTOMERDETALIS_ID", DATAG_CLIENONLIN(1, indx).Value.ToString())
com.ExecuteNonQuery()
conn()
MsgBox("delete succes")
con.Close()
ElseIf result = DialogResult.No Then
Exit Sub
End If
Else
MessageBox.Show("اختر عميل محدد", "خطا") : Exit Sub
End If
Catch ex As Exception
MessageBox.Show(ex.Message)
Finally
con.Close()
End Try
End Sub