الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

Unique Column

بدأه MMA_EG_Cairo في 28 فبراير 2012 · 5 رد · 471 مشاهدة · في Microsoft Visual Basic.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع
post-126779-076537800 1330430053_thumb.p
المرفقات
untitled.PNG

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#2

السلام عليكم ..

  1. فقط قم بمعاجة الحدث DataError للــ DataGridView .... و لكن بما أن الــ DataError يحدث في عدة حالات منها أن نوع البيانات غير موافق أو تكرار القيم للأعمدة الفريدة .. فيجب فحص نوع الاستثناء الصادر هل هو من نوع ConsraintException .. إذا المشكلة في القيد .. و للتأكد أكثر يمكننا التحقق من الرسالة التي يحملها الاستثناء ..
  2. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        	Dim dt As New DataTable
        	dt.Columns.Add("col1", GetType(Integer))
        	dt.Columns("col1").Unique = True
        	DataGridView2.DataSource = dt
    
    	End Sub
    
    	Private Sub DataGridView2_DataError(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles DataGridView2.DataError
        	If e.ColumnIndex = 0 Then
            	If TypeOf (e.Exception) Is ConstraintException Then
                	'Column 'col1' is constrained to be unique.  Value '1' is already present.
                	If e.Exception.Message.IndexOf("is constrained to be unique") > 0 Then
                    	MessageBox.Show("this Value Is Already Exists")
                	End If
    
            	End If
        	End If
    	End Sub

  3. أذكر أن أحد الأخوة .. ذكر أن لكل رسالة خطأ لها رقم ... لكن لم أعرف من أين نحصل على هذا الرقم ..

تم تعديل هذه المشاركة بواسطة houssam11350_11350 في 28 فبراير 2012 في 16:15

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#3

طيب ، ممكن أعرف ، كيف يمكنني عمل حقلين Unique معاً ؟؟؟

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#4

السلام عليكم ..

  1. الــ DataTable مثل الجددول في قاعدة البيانات , لكنه في الذاكرة , ممكن نضع له PrimaryKey و ForignKeyConstraint و Unique و Not Null و علاقة مع جداول أخرى و أستعلامات .
  2.  Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
           	Dim dt As New DataTable
        	dt.Columns.Add("col1", GetType(Integer))
        	dt.Columns.Add("col2", GetType(Integer))
        	dt.Constraints.Add(New UniqueConstraint(New DataColumn() {dt.Columns("col1"), dt.Columns("col2")}))
        	DataGridView2.DataSource = dt
    
    	End Sub
    
    	Private Sub DataGridView2_DataError(ByVal sender As System.Object,  ByVal e As System.Windows.Forms.DataGridViewDataErrorEventArgs) Handles  DataGridView2.DataError
        	If e.ColumnIndex = 0 Or e.ColumnIndex = 1 Then
            	If TypeOf (e.Exception) Is ConstraintException Then
                	'Column 'col1' is constrained to be unique.  Value '1' is already present.
                	If e.Exception.Message.IndexOf("is constrained to be unique") > 0 Then
                    	MessageBox.Show("this Value Is Already Exists")
                	End If
    
            	End If
        	End If
    	End Sub

    طبعا .. ننتبه إلى أن معالجة الــ Data Error أصبحت على عمودين ...

لا إله إلا الله ... محمد رسول الله

لو كانت مشاركتي مفيدة و تريد تشجيعي على المزيد من العطاء , فضلا قم بتقييم المشاركة

المعرًف القديم : houssam11350_11350

من مواضيعي : ArabGenCode : مولد كود و إجراءات مخزنة و واجهات لجداول سيكوال سيرفر

#5

رغم أنني أحترفت الـ ADO والتعامل مع الـ Recordset بالفيجوال 6.0 !!!

وصنعت به برامج إحترافية في قمة الروعة بحمد الله تعالي وخوصاً برنامجي الأخير !!!

لكنني اليوم بدأت أحب الدوت نيت ... خصوصاً ADO.Net !!!

وبعون الله سيكون بيني وبينه ألفة في القريب العاجل

شكراً لحضرتك ... جزاك الله كل خير

تم تعديل هذه المشاركة بواسطة MMA_EG_Cairo في 28 فبراير 2012 في 21:30

لا تخلط ما بين شخصيتي وأسلوبي .. فشخصيتي هي

ما أنا عليه وتحت تصرفي .. وأسلـوبي يعتمد عليـك

أنت وتصرفاتك

ولحظاتي صمت... وصمـت لحظاتي كلام ... كلامه

اشد آلام ... فصمتي أنا عنوان

عصر التكنولوجيا المعلوماتية(مدونتي الخاصة)

My FaceBook

#6

فقط للفائدة :

الرابط التالي فيه الmembers الخاصة بالاكسبشنز للداتاجريدفو :

DataGridViewDataErrorContexts Enumeration

... إذا كنت تعتقد أن مشاركتي مفيده ، الرجاء قم بتقييمي ...

%2525D8%2525A8%2525D8%2525B5%2525D9%252585%2525D8%2525A9%252B%2525D8%2525B9%2525D9%252584%2525D9%252585%252B%2525D9%252588%2525D8%2525B5%2525D8%2525B1%2525D8%2525AE%2525D8%2525A9%252B%2525D8%2525A7%25

مواضيع مشابهة