13-10-20, 09:11 PM
ما الغلط في كود التعديل التالي بحيث عند تعديل الاسم يعطينا رسالة ان هذا الاسم الاسم موجود من قبل رغم انة غير موجود باقي الحقول يعدلها ؟ ارجو المساعدة
هذا الصاب
Public Sub update_Federations_indirect()
'كود تعديل جدول الاقاليم
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("Select * FROM Federations where (Federationid = " & Federations.FederationId.Text & ") and (FederationNameA = N'" & Federations.FederationNameA.Text & "')", con)
da.Fill(dt)
' if Column present give msgbox to alert & Dont save
If dt.Rows.Count = 0 Then
MsgBox("هذا الإقليم موجود من قبل ", MsgBoxStyle.Critical, "بيانات غير مسجلة ")
Else
Dim pos As Integer = Federations.BindingContext(dt).Position
dt.Rows(pos).Item("FederationNameA") = Federations.FederationNameA.Text
dt.Rows(pos).Item("Federationphone") = Federations.FederationPhone.Text
dt.Rows(pos).Item("FederationPhone1") = Federations.FederationPhone1.Text
dt.Rows(pos).Item("FederationTell") = Federations.FederationTell.Text
dt.Rows(pos).Item("Federationtelefax") = Federations.Federationtelefax.Text
Dim Save As New SqlCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
'give msgbox to sure save
MsgBox("تم التعديل بنجاح ", MsgBoxStyle.Information, "تاكيد التعديل")
' load table to refresh data
LoadAllTable_Federations_InDirect(Federations.dgv)
End If
End Sub
وهذا الكود الموجود في زر التعديل
Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
If MsgBox(" هل تريد تعديل بيانات الإقليم ؟", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Try
If FederationNameA.Text = Nothing Then
MsgBox("يرجى تسجيل إسم صالح للإقليم ")
End If
cls.update_Federations_indirect()
cls.clearcontrols_Federations()
Catch ex As Exception
End Try
End If
End Sub
هذا الصاب
Public Sub update_Federations_indirect()
'كود تعديل جدول الاقاليم
Dim dt As New DataTable
Dim da As New SqlDataAdapter
dt.Clear()
da = New SqlDataAdapter("Select * FROM Federations where (Federationid = " & Federations.FederationId.Text & ") and (FederationNameA = N'" & Federations.FederationNameA.Text & "')", con)
da.Fill(dt)
' if Column present give msgbox to alert & Dont save
If dt.Rows.Count = 0 Then
MsgBox("هذا الإقليم موجود من قبل ", MsgBoxStyle.Critical, "بيانات غير مسجلة ")
Else
Dim pos As Integer = Federations.BindingContext(dt).Position
dt.Rows(pos).Item("FederationNameA") = Federations.FederationNameA.Text
dt.Rows(pos).Item("Federationphone") = Federations.FederationPhone.Text
dt.Rows(pos).Item("FederationPhone1") = Federations.FederationPhone1.Text
dt.Rows(pos).Item("FederationTell") = Federations.FederationTell.Text
dt.Rows(pos).Item("Federationtelefax") = Federations.Federationtelefax.Text
Dim Save As New SqlCommandBuilder(da)
da.Update(dt)
dt.AcceptChanges()
'give msgbox to sure save
MsgBox("تم التعديل بنجاح ", MsgBoxStyle.Information, "تاكيد التعديل")
' load table to refresh data
LoadAllTable_Federations_InDirect(Federations.dgv)
End If
End Sub
وهذا الكود الموجود في زر التعديل
Private Sub btn_update_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btn_update.Click
If MsgBox(" هل تريد تعديل بيانات الإقليم ؟", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Try
If FederationNameA.Text = Nothing Then
MsgBox("يرجى تسجيل إسم صالح للإقليم ")
End If
cls.update_Federations_indirect()
cls.clearcontrols_Federations()
Catch ex As Exception
End Try
End If
End Sub