[Easy4ever]

ضع شرط في 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" 


بالتوفيق