منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
مشكلة كومبو بوكس في فيجوال بيسك دوت نت - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : مشكلة كومبو بوكس في فيجوال بيسك دوت نت (/showthread.php?tid=8010)

الصفحات: 1 2

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - mona173 - 17-03-13

باشتغل على فيجوال بيسك دوت نت 2010
عندي الاكسس جدول فيه اسماء البلاد وجدول فيه اسماء المدن ( parent amd child)
عمل كونكت على الاكسس والبرنامج بيجيب بيانات

عايزة اعمل 2كومبو بوكس
واحد اسماء البلاد والتاني يجيب المدن الخاصة بالبلد اللي اخترتها في الكومبو الاول

عملت الكومبو الاول بس التاني بيجيب كل المدن
ممكن اعرف طريقة الكود الخاص بها

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - Easy4ever - 17-03-13

ضع شرط في Select

لنفرض ان اسم الجدول هو T1 ويحتوي على حقل البلد باسم TCountry وحقل المدينة باسم TCity

ولنفرض إيضا الكوبو1 حق البلد اسمه CobCountry والكوبو2 حق المدينة اسمه CobCity

نذهب للكود

أولا كود عرض البلد
PHP كود :
Dim DS1 As New DataSet
Dim DA1 As New OleDb.OleDbDataAdapter("select TCountry from T1", con)
DA1.Fill(DS1, "T1")
CobCountry.DataSource = DS1.Tables("T1")
CobCountry.DisplayMember = "TCountry" 
ثانيا كود عرض المدن هنا سنستخدم امر where في Select حتى نضمن عرض مدن البلد المحدده

PHP كود :
Dim DS2 As New DataSet
Dim DA2 As New OleDb.OleDbDataAdapter("select TCity from T1 where TCountry=" & CobCountry.Text & "", con)
DA2.Fill(DS2, "T1")
CobCity.DataSource = DS2.Tables("T1")
CobCity.DisplayMember = "TCity" 
بالتوفيق

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - mona173 - 17-03-13

شكرا جدا على سرعة الرد

بس انا عندي 2 جدول
الجدول الاول : جدول البلد وفيه رقم البلد واسم البلد
الجدول الثاني : جدول المدينة وفيه رقم البلد ورقم المدينة واسم المدينة

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - Easy4ever - 17-03-13

أنظر الشرح بعد التعديل

لنفرض ان اسم الجدول هو T1 ويحتوي على :
اسم البلد TCountry
رقم البلد TNumCountry

واسم جدول آخر T2 ويحتوي على :
اسم المدينة باسم TCity
رقم المدينة TNumCity
رقم البلد TNumCountry

ولنفرض إيضا الكوبو1 حق البلد اسمه CobCountry والكوبو2 حق المدينة اسمه CobCity

نذهب للكود

أولا كود عرض البلد مثل ما كتب بالسابق
PHP كود :
Dim DS1 As New DataSet
Dim DA1 As New OleDb.OleDbDataAdapter("select TCountry from T1", con)
DA1.Fill(DS1, "T1")
CobCountry.DataSource = DS1.Tables("T1")
CobCountry.DisplayMember = "TCountry" 
ثانيا كود عرض المدن سوف نربطه بجدول البلد

PHP كود :
Dim DS2 As New DataSet
Dim DA2 As New OleDb.OleDbDataAdapter("select T2.TCity from T1,T2 where T1.TCountry=" & CobCountry.Text & " and T1.TNumCountry=T2.TNumCountry", con)

DA2.Fill(DS2, "T1")
CobCity.DataSource = DS2.Tables("T1")
CobCity.DisplayMember = "TCity" 

إللي ضفناه في الكود هو ان حدنا بدل جدول جدولين وصار كل ما تبي تنادي حقل في البدايه تحط اسم الجدول بعدين نقطه بعدين اسم الحقل
وضفنا جملة And في الشرط إي مع تحقيق شرط آخر وضفنا الشرط الأخر هو الأمر T1.TNumCountry=T2.TNumCountry
يعني أربط الجدولين رقم الحقل الموجود في الجدول الأول مع رقم الحقل الموجود بالجدول الثاني

بالتوفيق

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - mona173 - 17-03-13

فعلا جربتها واشتغلت متشكرة جددددددددددددددددددا
ليا سؤالين تانين معلش
ازاي بعض ما اختار من 2 كومبو بوكس تظهر التفاصيل في ليست فيو او تقرير
علما بان فيه جدول ثالت فيه التفاصيل وبه رقم البلد ورقم المدينة

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - @@أبورائد@@ - 17-03-13


السلام عليكم ورحمة الله وبركاته





أشكر Easy 4ever لسرعة استجابة لمساعدة جميع الأعضاء بدون استثناء، وهو فعلا متميز
احببت أن أضيف طريقة أخرى باستغلال الخاصية ValueMember

PHP كود :
Public Class Form1

    '' Database:
   ''    Coutry: id, name
   ''    City:   id, name, CountryId

    Private conn As New OleDb.OleDbConnection("Provider = Microsoft.Jet.Oledb.4.0; Data Source = db1.mdb")

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        FillCountryCombo()
    End Sub

    Sub FillCountryCombo()
        Dim sql As String = "SELECT * FROM Country"
        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.cboCountry.DataSource = dt
        Me.cboCountry.ValueMember = "id"
        Me.cboCountry.DisplayMember = "Name"
        Application.DoEvents()
    End Sub

    Private Sub cboCoutry_SelectedValueChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles cboCountry.SelectedValueChanged
        On Error Resume Next
        Dim sql As String = "SELECT * FROM City WHERE CountryId=" & Me.cboCountry.SelectedValue
        Dim da As New OleDb.OleDbDataAdapter(sql, conn)
        Dim dt As New DataTable
        da.Fill(dt)
        Me.cboCity.DataSource = dt
        Me.cboCity.ValueMember = "id"
        Me.cboCity.DisplayMember = "Name"
    End Sub

End Class 





السلام عليكم ورحمة الله وبركاته

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - Abu Ehab - 17-03-13

السلام عليكم ورحمة الله وبركاته




مشكلة كومبو بوكس في فيجوال بيسك دوت نت - sooriaty03 - 17-03-13

السلام عليكم ورحمة الله وبركاته
ما شاء الله عليكم
سلمت أياديكم وبورك فيكم
بالنسبة للأخ @@أبورائد@@ أشعر بأن هناك تآمر دولي Rolleyes لأن أغلب مشاركاته بدون (شكرا وأعجبني):confused:
هههههه
وفقكم الله لكل خير

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - @@أبورائد@@ - 17-03-13


السلام عليكم ورحمة الله وبركاته


sooriaty03 كتب :السلام عليكم ورحمة الله وبركاته
ما شاء الله عليكم
سلمت أياديكم وبورك فيكم
بالنسبة للأخ أبورائد  أشعر بأن هناك تآمر دولي Rolleyes لأن أغلب مشاركاته بدون (شكرا وأعجبني):confused:
هههههه
وفقكم الله لكل خير





هههههههههههه

الله يسعدك حبيبي..........

والله انا متأكد من شعور الجميع والبذات أنــــــــــت، أسعد عندما ارى تفاعلك مع الجميع.....وكأنك أحد أبنائي (تصادف تعليقك قريب الشبه من تعليق أحد أبنائي..سبحان الله..)





السلام عليكم ورحمة الله وبركاته

مشكلة كومبو بوكس في فيجوال بيسك دوت نت - sooriaty03 - 17-03-13

السلام عليكم ورحمة الله وبركاته
وأخيرا ظهرت عبارة (شكرا وأعجبني)Smile
ههههههه
الله يسعدك ويحفظك ويحفظ أبناءك
بالتوفيق