تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] الكود لا يعمل
#1
السلام عليكم ورحمة الله وبركاته

كتبت هذا الكود من أجل التأكد من عدم وجود اي تكرار للبيان قبل اضافته وفي حالة وجود البيان مسبقا لا يقوم بالاضافة ... ورغم ظهور رسالة التى تفيد عمل الكود إلا أن البيان يضاف .... وولم استطع معرفة ما هو الخطا بالضبط ... فهل من مساعدة




كود :
Try

            For i As Integer = 0 To Ds.Tables("OrderForm").Rows.Count - 1
                If CustTextBox.Text = Ds.Tables("OrderForm").Rows(i).Item("Cust").ToString Then
                    MsgBox("Order added Before !", MsgBoxStyle.Information)
                    Exit Try
                End If
            Next


            Dim R As DataRow = Ds.Tables("OrderForm").NewRow
            R(0) = OrderNoTextBox.Text
            R(1) = CustTextBox.Text
            R(2) = CustNoTextBox.Text
            R(3) = FactoryTextBox.Text
            R(4) = QtyTextBox.Text
            R(5) = RaiseOnTextBox.Text
            Ds.Tables("OrderForm").Rows.Add(R)
            Cmdb = New OleDbCommandBuilder(Da)
            Me.BindingContext(Ds, "OrderForm").EndCurrentEdit()
            Ds.AcceptChanges()
            Da.Update(Dt)

            MsgBox("Order added successfully !", MsgBoxStyle.Information)

        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  طلب مساعدة لكتابة الكود بشكل صحيح moftah70 1 263 12-07-16, 07:52 PM
آخر رد: aliday03
  [سؤال] كيف افتح الاتصال باستخدام هذا الكود سعود 2 443 12-07-16, 06:23 PM
آخر رد: aliday03
  اريد استبدال الكود المرفق بكود ابسط على ان يعطي نفس النتيجة ledoledo 1 215 02-02-16, 07:07 PM
آخر رد: ledoledo
  [VB.NET] عرض الكود بار djelloul 2 254 15-01-16, 11:39 PM
آخر رد: djelloul
Exclamation [VB.NET] مشروع فيجوال بيسيك دوت نت مع قاعدة بيانات اكسس 2007 يعمل على جميع انظمة التشغيل eng.bassel 5 873 16-12-15, 11:35 PM
آخر رد: boudyonline
  [سؤال] طريقة الاتصال بقاعدة البيانات هل يمكن تعديل الكود elhon.tec 3 1,123 27-05-15, 02:53 AM
آخر رد: mbk2006
  [سؤال] كيف احول الكود الى دوت نت abdala 5 1,042 16-03-15, 09:31 PM
آخر رد: abdala
  [Acces2003] رجاء من خبراء الأكسيس المشروع لا يعمل في ويندوز 8 محمد مسافر 5 617 06-02-15, 11:17 PM
آخر رد: ahmed saba
  [سؤال] ارجو المساعدة فى هذا الكود عاجل abdala 5 988 07-12-14, 03:48 AM
آخر رد: الوليد ☺
Sad [سؤال] ربط قاعدة بينات الاكسس بالفجوال عن طريق الكود عمار العيثاوي 2 689 07-05-14, 10:51 PM
آخر رد: عمار العيثاوي

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


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