|
|||||||||
|
|||||||||
|
|||||||||
 |
|||||||||
| |
||
|
|
|
| ||||||||||||||||||||||||||||||||
 |
|
|
«
Previous Thread
|
Next Thread
»
|
Thread Tools | Search this Thread | Rate Thread | Display Modes |
ASP Free Forums Sponsor:
|
|
|
|
#1
February 5th, 2004, 03:19 PM
|
||||
|
||||
|
Relational DropDownList Using VB.NET
Relational DropDownList Using VB.NET Code Example.******************************
<!-- ASPX Page --> <!-- Step 1. Copy and paste the code below on to the newly created aspx file --> <!-- Step 2. Add <appSettings> tag to the existing web.config --> <!-- Step 3. Make sure you have Northwind database install in your system --> <%@ Import Namespace="System.Data" %> <%@ Import Namespace="System.Data.SqlClient" %> <html> <head> <script language="VB" runat="server"> Public Sub Page_Load(Source As Object, E As EventArgs) If Not IsPostBack Then Dim _Conn As SqlConnection Dim _Command As SqlCommand Dim _Reader As SqlDataReader Dim SQL As String SQL = "select * from Region" _Conn = GetConnection() _Command = new SqlCommand(SQL, _Conn) _Reader = _Command.ExecuteReader() Regions.Items.Add(new ListItem("Select Region...", "0")) While _Reader.Read() Regions.Items.Add(new ListItem(_Reader("RegionDescription").ToString(), _Reader("RegionID").ToString())) End While Territory.Items.Add(new ListItem("Select Territory...", "0")) End If End Sub Function GetConnection() As SqlConnection Dim _Connection As SqlConnection Dim ConnStr As String ConnStr = ConfigurationSettings.AppSettings("ConnectionString") _Connection = new SqlConnection(ConnStr) _Connection.Open() Return _Connection End Function Sub OnSelectedRegionIndexChanged(Source As Object, E As EventArgs) Dim _Region As Integer _Region = Regions.SelectedItem.Value If _Region > 0 Then Dim _Conn As SqlConnection Dim _Command As SqlCommand Dim _Reader As SqlDataReader Dim SQL As String SQL = "select * from Territories where RegionID ='" & _Region & "'" _Conn = GetConnection() _Command = new SqlCommand(SQL, _Conn) _Reader = _Command.ExecuteReader() Territory.Items.Clear() Territory.Items.Add(new ListItem("Select Territory...", "0")) While _Reader.Read() Territory.Items.Add(new ListItem(_Reader("TerritoryDescription").ToString(), _Reader("TerritoryID").ToString())) End While txtRegion.Text = Regions.SelectedItem.Text txtTerritory.Text = "" Else Territory.Items.Clear() Territory.Items.Add(new ListItem("Select Territory...", "0")) txtRegion.Text = "" txtTerritory.Text = "" End If End Sub Sub OnSelectedTerritoryIndexChanged(Source As Object, E As EventArgs) Dim _Territory As Integer _Territory = Territory.SelectedItem.Value If _Territory > 0 Then txtTerritory.Text = Territory.SelectedItem.Text Else txtTerritory.Text = "" End If End Sub </script> </head> <body> <form runat="server"> <asp  ropDownList id="Regions" AutoPostBack="True" OnSelectedIndexChanged="OnSelectedRegionIndexChanged" runat="server" /> <p /> <asp ropDownList id="Territory" AutoPostBack="True" OnSelectedIndexChanged="OnSelectedTerritoryIndexChanged" runat="server" /> <p /> <asp:Label id="txtRegion" runat="server" /> <br /> <asp:Label id="txtTerritory" runat="server" /> </form> </body> </html> <!-- Web.Config --> <configuration> <appSettings> <add key="ConnectionString" value="Server=(local)NetSDK;uid=sa;pwd=;database=Northwin d" /> </appSettings> </configuration>
|
|
| Viewing: ASP Free Forums > Programming > Code Bank > Relational DropDownList Using VB.NET |
| Thread Tools | Search this Thread |
| Display Modes | Rate This Thread |
|
|
|
|
|
|
 |
|
|
Del.icio.us
Digg
Google
Spurl
Blink
Furl
Simpy
Y! MyWeb
Linear Mode
