[mona626]

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

لو سمحتوا تعبت من البحث في المنتديات العربية والانجليزية 

السؤال هو كالتالي :- 

قاعدة البيانات :  SQL Server Management Studio 2012 

إسـم قاعدة البيانات : Reporting_System

فيها جدولينا : 

 الجدول الأول اسمه : الدول .  والحقول  : CountryID و CountryName

الجدول الثاني فيه : المدن . والحقول : CityID  , CityName , CountryID

تم انشاء علاقة بين الجدولين : 

[url=http://www.up-00.com/][/url]

صممت الفورم وتم الاتصال بقاعدة البيانات بنجاح لكن المشكلة كالتالي : 

لدي عدد 2 Combobox 

Combobox 1 = Countries 

Combobox 2 = Cities

أريد ربط الكمبوبوكس 1 مع الكمبوبوكس 2 بحيث لما اختار الدوله في الكمبوبوكس 1 تظهرلي المدن الي فالدولة فقط 

هل يوجد كود معين للفيجوال استوديو 2012

ساعدوني بلييييز .... 

[mona626]

شكرا على الرد بس مش عارفه ليه مو راضي يشتغل الكود لما بختار من الكمبو الاول بيكون الكمبو الثاني فاضي 

هذا هو الكود : - ارجوا المساعده 

كود :

Dim con As New SqlConnection
   Dim comm As SqlCommand = New SqlCommand
   Dim reader As SqlDataReader
   Dim dt As New DataTable
   Dim ds As New DataSet
   Dim da As New SqlDataAdapter
   Private Sub dailyreportentryform_Load(sender As Object, e As EventArgs) Handles MyBase.Load
       Me.TextBox8.Text = loginform.TextBox3.Text
       Me.TextBox9.Text = loginform.TextBox1.Text
       TextBox10.Text = Format(Date.Now, "dd/MM/yyyy")
       DateTimePicker1.Format = DateTimePickerFormat.Custom
       DateTimePicker1.CustomFormat = "dd/MM/yyyy"
       con = New SqlConnection
       con.ConnectionString = "server=.\sqlexpress; database= Reporting_System; integrated security=true"
       con.Open()
       fillcombo1()
       fillcombo2()
       MsgBox("تم الاتصال بنجاح", MsgBoxStyle.Information)
   End Sub

'لتعبئة الكمبوبوكس الأول
Private Sub fillcombo1()
       ds = New DataSet
       da = New SqlDataAdapter(" select * from Countries", con)
       da.Fill(ds, "Countries")
       ComboBox1.DataSource = ds.Tables("Countries")
       ComboBox1.ValueMember = "CountryID"
       ComboBox1.DisplayMember = "CountryName"
   End Sub

'لتعبئة الكمبوبوكس الثاني
   Private Sub fillcombo2()
       ds = New DataSet
       da = New SqlDataAdapter(" select * from Cities", con)
       da.Fill(ds, "Cities")
       ComboBox2.DataSource = ds.Tables("Cities")
       ComboBox2.ValueMember = "CityID"
       ComboBox2.DisplayMember = "CityName"
   End Sub

'لفلترت الكمبوبوكس الثاني بحيث تظهر المدن بحسب الدوله التي اختارتها في الكمبوبوكس الأول
   da = New SqlDataAdapter("select * From Cities", con)
       ds = New DataSet
       da.Fill(ds, "Countrie")
       ComboBox2.DataSource = ds.Tables("Cities")
       ComboBox2.DisplayMember = "CityName"

   End Sub

[محمد العبيدي]

اختي العزيزة فقط اضيفي هذا الحدث

PHP كود :

   Protected Sub Combobox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.SelectedIndexChanged
        da = New SqlDataAdapter("select * From Cities Where CountryID=" val(Combobox1.SelectedValue) , con) 
        ds = New DataSet
        da.Fill(ds, "Countrie")
        ComboBox2.DataSource = ds.Tables("Cities")
        ComboBox2.DisplayMember = "CityName"
    End Sub 


[mona626]

شكرا على تفاعلكم معايا بس للأسف لسى بواجه نفس المشكلة 

مش عارفة وين المشكلة 

[url=http://www.up-00.com/][/url]

[محمد العبيدي]

اسف على هذا الخطأ
هذا هو التصحيح

PHP كود :

Protected Sub Combobox1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Combobox1.SelectedIndexChanged
        da = New SqlDataAdapter("select * From Cities Where CountryID=" & val(Combobox1.SelectedValue) , con) 
        ds = New DataSet
        da.Fill(ds, "Countrie")
        ComboBox2.DataSource = ds.Tables("Cities")
        ComboBox2.DisplayMember = "CityName"
    End Sub 


[mona626]

كمان مو راضي يشتغل ..................


طلعلي ايرور  جننتني هالعمليه 



[url=http://www.up-00.com/][/url]

[محمد العبيدي]

جربي ان تستبدلي السطرين

PHP كود :

ComboBox2.DataSource = ds.Tables("Cities")
        ComboBox2.DisplayMember = "CityName" 


ب السطرين

PHP كود :

       ComboBox2.DisplayMember = "CityName"
ComboBox2.DataSource = ds.Tables("Cities") 


[mona626]

نفس الخطأ 

[HASAN6.0]

ارفعي الفورم والداتا

[mona626]

الفورم في المرفقات لكن الداتا مش عارفه ارفعها