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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  محتاج التعديل على المثال المرفق new_programer 2 147 10-10-20, 08:00 PM
آخر رد: shone1
  [VB.NET] عمل اتاش و تحديث قاعدة البيانات بعد التعديل على الحقول دون ضياع السجلات برمجيا larbihamri 4 195 06-10-20, 03:33 PM
آخر رد: larbihamri
  عندي مشكلة في التعديل علي سطر معين في datagridViewo ٍOfelas 5 332 28-09-20, 01:26 AM
آخر رد: Anas Mahmoud
  التاريخ لا يقبل الاضافة او التعديل talatm 2 181 18-09-20, 08:36 PM
آخر رد: talatm
  [VB.NET] اخفاء فروم الـ login - واظهار الفروم التالي Sanaa2 3 172 17-09-20, 01:37 AM
آخر رد: Sanaa2
  المساعدة في التعديل على كود تعديل البيانات في قاعدة سيكوال سيرفر momani33 3 215 15-09-20, 08:10 PM
آخر رد: Anas Mahmoud
  التعديل على الكود للتخلص من مشكلة البطىء حيث عدد السجلات كبير momani33 0 192 09-09-20, 01:33 PM
آخر رد: momani33
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 3 324 02-08-20, 02:10 AM
آخر رد: ابراهيم ايبو
  التعديل على عمود في الداتاقريد فيو دفعة واحد بناء على قيمة معينة جيولوجي مبتدئ 0 189 01-08-20, 07:49 PM
آخر رد: جيولوجي مبتدئ
  [كود] اريد التعديل على الكود وهو عدم التكرار عمور2016 3 336 23-07-20, 01:03 AM
آخر رد: عبد العزيز البسكري

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


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