مشكلة التكرار في قاعدة البيانات

السلام عليكم

الحل بسيط جدا

وممكن اكتر من طريقة منها على سبيل المثال فى جملة الحفظ هتكتب ComboBox1.SelectedValue

السلام عليكم

كما تعلم يحفظ الله أن الجدول لابد أن يكون يسعف هذه الطريقة بحيث يكون مصمم من عامودين الأول GenderID

و الثاني GenderName ويكون الأول من نوع TinyInt طبعاً إن كانت قاعدة البيانات SQL

و يكون الثاني من نوع nXXXX بحيث يكون Unicode لإظهار الحروف العربية مثلاً nchar

ثم تعطيهم الـ Length المناسب وهو بلا شك 4 بالنسبة لعامود الأسماء , اما الأول فهم يأخذ 1 كما تعلم .

الان عملية ربطهم بالـقائمة المنسدلة , هذه التقنية تعرف بـ Complex Binding فستكون بهذا الشكل

            cboxGender.DataSource = Me.DsMain1
            cboxGender.DisplayMember = "LOOKUPGender.GenderName"
            cboxGender.ValueMember = "LOOKUPGender.GenderID"
            cboxGender.DataBindings.Add( _
            New Binding("SelectedValue", DVMain1, "Gender"))
            cboxGender.DropDownStyle = ComboBoxStyle.DropDownList

التحليل

خاصية الـ DataSource للقائمة المنسدلة تساوي الـ DataSet ثم

ثم خاصية الـ DisplayMember ستساوي عامود الاسماء وهو GenderName

أما خاصية الـ ValueMember ستساوي القيم الرقمية اي عامود الأرقام وهو GenderID

ثم نقوم بعملية إتصال القائمة المنسدلة بالـ DataSet بإنستخدام السلوك ADD بشرط أن نجعل الـ PropertyName تساوي

SelectedValue السبب أننا نريد أن نتصل بالعامود الموجود في الجدول الرئيسي مثلاً وهو Gender بحيث يتم جلب و حفظ

الأرقام فيه بدل الأسماء فبالـ SelectedValue يتم ذلك .

تلاحظ أن لدي عنصر باسم DVMain1 هذه DataView فإن كنت لا تستخدم DataView فإستبدل الـ DVMain1

باسم الـ DataSet لديك ثم قبل اسم العامود Gender أكتب اسم الجدول مثلاً

   New Binding("SelectedValue", Me.DsMain1, "myTable.Gender"))

أخيراً من المنطق أن نجعل القائمة المنسدلة لا تقبل سِوى القيم الموجودة فيها فقط فسيكون بالأمر الأخير وهو

 cboxGender.DropDownStyle = ComboBoxStyle.DropDownList

هذه التقنية تعرف بـ Perdefind Data

من المنطق دائماً و ابداً لابد أن نقوم بعملية التنظيف أو الإزالة قبل اي ربط فسيكون بهذا الشكل

cboxGender.DataBindings.Clear()

والله أعلم

بسم الله الرحمن الرحيم

و عليكم السلام

جزاكم الله خيرا

وللأخ الغملاسي اشكرك جزيل الشكر على ردك التفصيلي و السريع في معظم مشاركاتي و مشاركات الأخوة الأعضاء

و الله في عون العبد مادام العبد في عون اخيه

بسم الله

السلام عليكم

ويمكن منع التكرار بإستخدام المعامل distinct ، في جملة الإستعلام

وهذا مثال على استخدام هذا المعامل

con.ConnectionString = ConnString
        '''''
        'لملأ كومبو أسماء المنتجات

يتم ملأ الكومبو الخاص بأسماء المنتجات ، من جدول المنتجات في الحدث لوود .

لتعريف كوماند يتم بواسطته إختيار أسماء المنتجات دون تكرار

Dim item_names As New OleDb.OleDbCommand
        
item_names.Connection = con
item_names.CommandType = CommandType.Text

جملة الإستعلام ويلاحظ فيها المعامل ديستنكت

item_names.CommandText = "select distinct ItemName from products"
con.Open()

لتنفيذ جملة الإستعلام وتخزين ناتجها في متغير

dr = item_names.ExecuteReader()
Do While dr.Read()

لملأ الكومبو بالبيانات غير المكررة المستدعاة

item.Items.Add(dr(0))
Loop
con.Close()

وهناك مثال مرفق مع هذا الكود ، لا يهمك منه إلا إختيار نوع المنتج (أصلي على سبيل المثال) ، وسوف تلاحظ أن كومبو أسماء المنتجات سوف يمتلأ دون تكرار ، ويمكنك التأكد عن طريق فتح جدول المتنجات ، والتأكد من تكرار اسم بعض القطع تبعا للنوع وبلد المنشأ ، ورغم ذلك لا تجد لهذا التكرار أثرا في كومبو أسماء المنتجات . وكلمة المرور لقاعدة البيانات الرئيسية هي malaqa .

والله أعلى وأعلم

distinct operator.rar

بسم الله الرحمن الرحيم

جزاكم الله خيرا الأخ أبو المهاجر

و الآن بعد ان وجدت الحل سأشرحه لكم عسى من مبتدى مثلي اي يجد مبتغاه في اجابتي ........

حتى نمنع التكرار في جدول ما لحقل معين فمثلا GENDERID الذي يحتوي على قيمتي 0و1 وذلك

لأن تكرار قيمتي رقمين يتكون من خانة واحده أفضل من تكرار كلمات وهي الذكر و الأنثى نقوم بعمل

جدول اخر GENDER الذي يحتوي على حقلين هم GENDERID لقيمتي 0و1 الذي تقابل كلمتي

الذكر و الأنثى و

GENDERNAME الذي يحتوي على كلمتي الذكر و الأنثى ثم نعمل علاقة

ONE TO MANY بين الجدولين ثم نكتب الكود التالي الذي يقوم باختيار

كل الحقول في جدول GENDER من خلال جملة استعلام ثم نخزن جدول GENDER في

DATATABLE ثم نقوم بتعبئة ComboBox1 بكلمتي الذكر و الأنثى باستخدام

DisplayMember لحقل GENDERNAME اما القيم التي سوف تخزن

في قاعدة البيانات هي 0و1 باستخدام ValueMember لحقل GENDERID

 Sub gender()
        Try
            Dim sql As String = "select * from GENDER"
            Dim DA As New SqlDataAdapter(sql, sqlcon)
            sqlcon.Open()
            DA.SelectCommand.ExecuteNonQuery()
            Dim DATATABLE As DataTable = New DataTable
            DA.Fill(DATATABLE)
            ComboBox1.DisplayMember = "GENDERNAME"
            ComboBox1.ValueMember = "GENDERID"
            ComboBox1.DataSource = DATATABLE

        Catch exc As Exception
            MsgBox(exc.Message)
        End Try
        sqlcon.Close()

    End Sub

الآن في عملية الحفظ لComboBox نكتب الكود التالي

cmd.Parameters.Add("@genderid ", SqlDbType.SmallInt).Value = ComboBox1.SelectedValue

حيث ان SelectedValue تأخذ القيمة 0و 1 و ليست كلمتي الذكر و الأنثى

وفي الأخيراعتذر ان كان اسلوبي لم يوصل الغاية