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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] كود الاضافه و الحذف و التعديل في VB.NET Ahmed Ihsan 1 204 12-04-21, 05:46 AM
آخر رد: alims
  [VB.NET] أرجو التعديل في الكود المرفق معتز حسن 3 250 10-04-21, 06:33 PM
آخر رد: معتز حسن
  [سؤال] حول التعديل على عرض صف في داتا جريد فيو ابو انس 0 117 10-04-21, 06:25 PM
آخر رد: ابو انس
  ممكن التعديل في كود البحث المرفق أبووسم 1 323 08-04-21, 10:32 PM
آخر رد: messry
  سؤال في التعديل في الجدول اليوم السابع 1 160 08-04-21, 03:22 PM
آخر رد: asemshahen5
  [سؤال] طريقة ترتيب كود الاضافة و التعديل مع try alims 0 245 21-03-21, 03:08 AM
آخر رد: alims
  ارجو التعديل علىى هذا الكود من فضلكم على زهران 2 285 19-03-21, 11:31 PM
آخر رد: على زهران
  محتاج التعديل علي الكود اليوم السابع 2 342 19-03-21, 04:02 AM
آخر رد: اليوم السابع
  [VB.NET] الكود التالي ينفذ كل 10 من الشهر اريد ان ينفذ كل سنة وشكرا للمساعدة alim54 0 233 19-02-21, 11:01 PM
آخر رد: alim54
  [سؤال] هل استطيع نسخ الفريم و التعديل علية بسام محمدغانم 3 701 22-01-21, 08:41 PM
آخر رد: محمد بن عطية

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


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