تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ما الغلط في كود التعديل التالي
#1
ما الغلط في كود التعديل التالي بحيث عند تعديل الاسم يعطينا رسالة ان هذا الاسم الاسم موجود من قبل رغم انة غير موجود باقي الحقول يعدلها ؟ ارجو المساعدة 

هذا الصاب 

 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
الرد
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ممكن حل لمشكلة التعديل داخل DGv Ofealas 11 233 27-07-21, 09:32 PM
آخر رد: Ofealas
  اريد زر الحفظ هو نفس زر التعديل سمير جمال 6 1,452 06-07-21, 09:39 AM
آخر رد: strongriseman
  ارجو تفعيل الازرار الاضافة و التعديل والبحث والحذف عمور2016 4 1,008 05-07-21, 05:19 PM
آخر رد: naserflaha71
  [سؤال] الحفظ و التعديل و الحذف داخل datagridview and databases Sql server mo.fathi 2 788 05-07-21, 04:28 PM
آخر رد: naserflaha71
  ارجو منكم المساعده و التعديل علي الكود اليوم السابع 5 300 14-06-21, 09:58 PM
آخر رد: trakktour
  كيف استثني يوم الجمعة في الكود التالي abomo3ath 1 187 07-06-21, 11:51 PM
آخر رد: Fareed2
  [VB.NET] التعديل على كود لقرائة باقي المعلومات من قاعدة البيانات khairallah 2 977 05-06-21, 11:21 PM
آخر رد: samirmondy2@gmail.com
  [VB.NET] كود الاضافه و الحذف و التعديل في VB.NET Ahmed Ihsan 1 438 12-04-21, 05:46 AM
آخر رد: alims
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 536 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [سؤال] حول التعديل على عرض صف في داتا جريد فيو ابو انس 0 286 10-04-21, 06:25 PM
آخر رد: ابو انس

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


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