مطلوب فورا كود لتعبئة ال datagrid و comboBox

السلام عليكم

معليش انا اسأل وأرد على نفسي خخخخخخخخ

والله دخلت المنتدى اخر الليل وانا حاط رجل على رجل وقاعد لحالي وقعدت اقراء مشاركات الاخوان الأعزاء ولقيت نصف الحل والله يجزي اللي كتب الموضوع الأخ (HMS) الف الف الف الف خير ماقصر قد سوى برنامج صغير لهذا الموضوع واا لقيته بالصدفة وهذه هو رابطه

/index.ph...e=post&id=22138

بس على فكرة فيه ملف اسمهdataset1 هذا ماله داعي واعتقد انه كان زيادة في البرنامج امكن طاح من التول بار وما انتبه اخونا القدير ويشكر على مجهوده الطيب.

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

وباقي ياشباب الكمبو بوكس لا تتساهلون ترى فيها حياة وموت خخخخخخ

وشكرا

السلام عليكم

اخي انت تريد تعبية الcomobox من قاعدة البيانات

يعني لو في قاعدة البيانات فيها جدول في الجدول حقل تريد تعبيه قيم الحقل بالكامل في الcomobox

نعم بالضبط وللتوضيح لدي عدة جداول اريد ان اعبيها في نموذج واحد به مجموعة comboBox

للديانة وللولة ولنوع الهوية وللوظيفة

كل هذه الكمبوبكس تظهر لنا قيمة بينما تخزن في الداتا بيس بالرقم فهل استخدام ال datareader افضل ام استخدام ال dataset

في مثل هذه الحالة حيث اني سأقرأ من عدة جداول.

اتمنى ان يكون مثال في ملف مضغوط ان امكن او كود واضح وشكرا

استخدم ال dataset افضل واسف على ردىة المستعجل

Dim ds as new DataSET
Dim da as new OLDB.OLEDBDataADAdapter(yourconniction,"select *from yourtable")
da.fill(ds,"yourtable")
combobox.datasource=ds.table("yourtable")
combobox.displaymember="fiald to diplay"
combobox.datamember="fiald tosave in database"

الف شكر اخي الكريم وصلت المعلومة

وهناك استفسار اذا سمحت

انا في الجدول لدي 3 اعمدة العمود رقم واحد هو العمود datamember

ولكن اريد ان يكون datadisplay هو العمود 2 وفي حالة تغيير في قائمة منسدلة اخرى يتغير ويكون العمود 3 هو العمود datadisplay

بصورة اوضح انا لدي الجنسية بشكلين مؤنث ومذكر يعني سعودي - سعودية وامارتي واماراتية وهكذا

القيمة الذكورية هي الافتراضية بس فيه عندي قائمة منسدلة تاانية تحدد الجنس فلو كان ذكر يظهر حقل الذكور ولو تغيرت الى مؤنث يختار حق الاناث

إن شاء الله تكون واضحة؟؟

بصراحة انا عملتها بس عن طريق الويزرد بس الحين ما زبطت معايا كنت اروح اغير الcombobox.displaymember وتزبط

بس الحين ورطان لاني ما استعملت الويزرد :)

قم باضافة كود يغير ال DISPLAYMEMBER للكومبوبوكس الخاص بالدولة فى حدث تغيير الكومبو الخاص بالجنس

مثلا

ComboNat.DisplayMember="falid"
ComboNat.Refresh

Dim s As String

s = "select * from R "

Dim da As New OleDbDataAdapter(s, cn)

Dim ds As New DataSet

ds.Clear()

da.Fill(ds, "R")

ComboBox1.DataSource = ds

ComboBox1.DisplayMember = "R.R1"

ComboBox1.ValueMember = "R.R2"

ضع هذا الكود في حدث الloud للفورم وراح تشوف انه قد تم تعبيئه الكوموبومكس

وشكرا

الأخ أيمن عشبه شكرا المعلومة وصلت

الأخ الكريم SOLO.Net

اخي الكريم انا عملت التالي

Private Sub cmbSex_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmbSex.SelectedIndexChanged
        cmbNatio.DataSource = "CountryArabicFeMaleNationality"
    End Sub

ولكن يظهر لي خطأ أثناء عملية ال compilation اي قبل ظهور النموذج اصلا عندما اعمل debug

ومحتوى رسالة الخطأ هوا انه لايمكن تغير الداتا ديسبلي اثناء تعبئة البيانات ونص الرسالة تمام هو

اقتباس

An unhandled exception of type 'System.Exception' occurred in microsoft.visualbasic.dll

Additional information: Complex DataBinding accepts as a data source either an IList or an IListSource

ما الحل؟

السلام عليك

حياكم الله جميعاً

نصيحة لك أخي الكريم : Romantic_touch إنه من الخطأ الفادح أن يتم بناء جدول الجنسية على اساس ذكر و انثى (صدقني)

هذا خطأ و العواقب وخيمة ( في الاحصائيات و التقارير ) وستكون معضلة بلا شك, فليس في حلها (فحلها بسيط وسهل للغاية )

لكن المشكلة تقع في عملية الإصلاح, فقد تأخذ وقت ( ستقوم بالتعديل في الجدول المساعد و جدول المُساعد, النصوص البرمجية , التقارير, ,,,, )

فما كان أساسه خاطء , فقوامه كذلك , و من باب معاينة مشاريع الآخرين في العمل, كانت تلك إحدى عيوب (المبرمجين, و مصممين

قواعد البيانات) فانتبه لابد أن تكون صورة المبرمج حسنه تماماً كلمستك الرمانسية على أفكارك و نصوصك البرمجية

بالتوفيق أخي ...

أخي الكريم الغملاسي اشكرك كل الشكر على تنبيهك القدير واطرائك الجميل :)

ولكن ياسيدي العزيز انا فقط اريد اوضح لك انه يتم حفظ قيمة الكود في الجدول وليس قيمة نصية (ذكر او انثى)

يعني بطريقة اخرى نفترض شكل الجدول كالتالي

--------------------------------------------------------------

code | Male | Female |

--------------------------------------------------------------

اماراتية | اماراتي | 1 |

--------------------------------------------------------------

سعودية | سعودي | 2 |

--------------------------------------------------------------

اردنية | اردني | 3 |

--------------------------------------------------------------

فسوف تخزن القيمة الخاصة بالكود في جدول المعلومات المتعلقة بالشخص وهذا يعني انه لامشكلة في التقارير والبحث :)

وانما الصورة الظاهرية للعميل تتعدل اذا اختار انثى ويظهر له الاسم المؤنث للجنسية والذكر الاسم المذكر وهكذا

وثم انا اعترف انها طريقة ليس لها داعي ولكن اخي الكريم هذا مشروع قائم منذ سنتين والتعديل عليه صعب علما بأنني لست من صمم المشروع ولك الشكر

طيب أرفق ولو نموذج مصغر عن مشكلتك إذا لم تجد لها حل إلى الان , لنقوم بالتعديل عليها .

حقيقة ً, لم أشاهد قط جدول مساعد ( يحتاج إلى مساعدة)

السلام عليكم

هههههههه

خليتني اضحك عشان الجدول

معليش والله على بالي اني سويت شي مفهوم اسف والله :)

على قول المثل جا يكحلها عمى عينها :lol:

وارسلت لك البرنامج مرفق الله يبارك فيك

ChangeDisplayMemberInCbx.zip

السلام عليكم

كل الذي عليك فعله هو أن تقوم بتغيير الـ DisplayMember وفقاً لنوع الجنس لا أكثر

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            cnn.ConnectionString = _
             "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
            Application.StartupPath & "\db1.mdb"


            da.Fill(Ds1)

        Catch ex As OleDb.OleDbException
            MessageBox.Show(ex.Message)
        End Try

    End Sub

    Private Sub cbxgender_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cbxgender.SelectedIndexChanged
        If cbxgender.SelectedIndex = 0 Then
            BindComboBoxes("CountryArabicMaleNationality")
        Else
            BindComboBoxes("CountryArabicFemaleNationality")
        End If
    End Sub

    Private Sub BindComboBoxes(ByVal MemberDisplay As String)
        Try
            'الجنسية
            cboxNationality.DataSource = Me.Ds1
            cboxNationality.DisplayMember = "Country." & MemberDisplay
            cboxNationality.ValueMember = "Country.CountryCode"
        Catch ex As Exception
            Throw ex
        End Try
    End Sub

بالتوفيق عزيزي الطيب,, السلام عليكم

ChangeDisplayMemberInCbx.zip

الاخ الغملاسي استفسارات بسيطة اذا تكرمت

1- هل يمكن ان اعبئ القائمة النسدلة الخاصة بالجنسية باحد الأعمدة في الجدول بشكل افتراضي ومن ثم يتم التغير واعتقد انها افضل من ان اتركها فاضية فقد تسبب لخبطة للمستخدم

2- انا في مثالي لم اضيف ملف الـds.xsd وانت اضفته فما الفرق في الموضوع وكيف تتم اضافة الجدول اليه؟

ثم لاحظت انك لغيت فكرة تعبئة جدول الجنس من قاعدة البيانات واستخدمت طريقة desigm timr (collection)

وانا مايسبب لي المشكلة هي اني اقرأ من قاعدة البينات وهذا اجباري بالنسبة لي.