هذا الكود أستخدمته لعرض المدن التابعه لكل دوله ولكن لم تظهر لي نتائج مع العلم أن الكود لا يحتوي على أخطأ
أرجو منكم الأطلاع على الكود وأخباري بالتعديلات
هذا الكود خاص بــ Page_Load
OleDbConnection1.ConnectionString = "Provider=""Microsoft.Jet.OLEDB.4.0"";Data Source=" & dx & ""
OleDbConnection1.Open()
OleDbDataAdapter1.Fill(Dscust1, "customers")
If Not Page.IsPostBack Then
cmd = New OleDbCommand("select * from country", OleDbConnection1)
'OleDbDataAdapter1.SelectCommand.CommandText = "select * from country"
If OleDbConnection1.State = ConnectionState.Closed Then
OleDbConnection1.Open()
End If
dr = cmd.ExecuteReader
Dim objListItem As ListItem
Dim i As Integer = 0
While dr.Read
country.Items.Add(dr(1))
country.Items(i).Text = dr.GetString(1)
country.Items(i).Value = dr(0)
i = i + 1
End While
dr.Close()
cmd = New OleDbCommand("select * from city where country_id = " & CInt(country.SelectedItem.Value) & "", OleDbConnection1)
dr = cmd.ExecuteReader
i = 0
While dr.Read
city.Items.Add(dr(1))
city.Items(i).Text = dr.GetString(1)
city.Items(i).Value = dr(0)
i = i + 1
End While
'DropDownList1.DataSource = dr
'DropDownList1.DataTextField = dr(1)
'DropDownList1.DataValueField = dr(0)
dr.Close()
End If
lbltotalprice.Visible = CDbl(Session("vtotal"))
lbltotalprice.Text = "Cart Total : Rs. " & Convert.ToDouble(Session("TotalPrice"))
End Subهذا اكود الخاص بــ DropDownList للدول
cmd = New OleDbCommand("select * from city where country_id = " & CInt(country.SelectedItem.Value) & "", OleDbConnection1)
dr = cmd.ExecuteReader
i = 0
While dr.Read
city.Items.Add(dr(1))
city.Items(i).Text = dr.GetString(1)
city.Items(i).Value = dr(0)
i = i + 1
End While
'DropDownList1.DataSource = dr
'DropDownList1.DataTextField = dr(1)
'DropDownList1.DataValueField = dr(0)
dr.Close()
End Sub