Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations John Tel on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Parent Child drop downs

Status
Not open for further replies.
thetickisme

thetickisme

Programmer
Oct 19, 2005
12
US
I got one to work but I am having a heck of a time trying to change the connection strings to my SQL server using a dataset and grid instead of the OLE Connection. Can someone PLEASE HELP.



<%@ Page Language="VB" Debug="True" Trace="false" TraceMode="SortByCategory" %><%@ Import Namespace="System.Data" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<meta name="GENERATOR" Content="ASP Express 2.2">
<title>DropDownLists</title>
<script language="VB" runat="server">
Dim strConn as String

Sub Page_Load(Source as Object, E as EventArgs)
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("\data\eol.mdb") & ";"
if not Page.IsPostBack then

Dim MySQL as string = "Select Distinct category from eol"
Dim Myconn as New OleDbConnection(strConn)
Dim objDR as OleDbDataReader
Dim Cmd as New OleDbCommand(MySQL, MyConn)
MyConn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl1.DataSource = objDR
ddl1.DataBind()
ddl1.items.insert(0,"-- Choose --")
end if
ddl1.items.insert(0,"-- Choose --")
End Sub

Sub fillModel(Source as Object, E as EventArgs)
if ddl1.selectedItem.text <> "-- Choose --" then

Dim MySQL as string = "Select Distinct product from eol where category='" & ddl1.selecteditem.text & "'"
Dim Myconn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)
MyConn.Open()
ddl2.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl2.DataBind()
' ddl2.selectedindex=0
tdmodel.visible="true"
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
ddl2.items.insert(0,"-- Choose --")
tdStyle.visible="false"
End If
End Sub

Sub Fillddl3(Source as Object, E as EventArgs)
DoFill
End Sub

Sub Fill2(Source as Object, E as EventArgs)

Dim MySQL as string = "Select Distinct Vendor from eol where Product ='" & ddl2.selecteditem.text & "'"
Dim Myconn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)
MyConn.Open()
ddl3.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl3.DataBind()
tdStyle.visible="true"
tdLit.visible="true"
lit1.text="<b>Product</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Vendor</b> : " & ddl2.selecteditem.text
ddl3.items.insert(0,"-- Choose --")
End Sub

Sub DoFill()
Dim strConn as string = "server=(local);uid=sa;pwd=password;database=yourdatabase"
Dim MySQL as string = "Select Distinct vendor from eol where Product ='" & ddl2.selecteditem.text & "'"
Dim MyConn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(MySQL, MyConn)
MyConn.Open()
ddl3.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl3.DataBind()
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Product</b> : " & ddl2.selecteditem.text
End Sub

Sub doStyle(Source as Object, E as EventArgs)
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Product</b> : " & ddl2.selecteditem.text
Lit1.text+="<br><b>Vendor</b> :" & ddl3.selecteditem.text
End Sub
Sub startOver(Source as Object, E as EventArgs)
tdModel.visible="false"
tdStyle.visible="false"
lit1.text=""
tdLit.visible="false"
End Sub
</script>
</head>
<body>
<div align="center"><Form id="form1" runat="server">
<table border="0" runat="server" id="tbl1">
<tr runat="server">
<td align="Left" valign="Top" runat="server"><b>Choose Category:</b><br>
<aspDropDownList id="ddl1"
Datatextfield="Category"
autopostback="true"
onselectedindexchanged="fillModel"
runat="server" />
</td>
<td align="Left" valign="Top" runat="server" id="tdModel" visible="false"><b>Choose Product:</b><br>
<aspDropDownList id="ddl2"
datatextfield="Product"
onselectedindexchanged="Fill2"
autopostback="true"
runat="server" />
</td>
<td align="Left" valign="Top" runat="server" id="tdStyle" visible="false"><b>Choose Vendor</b><br>
<aspDropDownList id="ddl3"
Datatextfield="Vendor"
autopostback="true"
onselectedindexchanged="doStyle"
runat="server" />
</td>
</tr>
<tr>
<td align="Center" valign="Top" Colspan="4" runat="server" id="tdLit" visible="false">
<hr>
<p>
<asp:Literal ID="lit1" runat="server"></asp:literal>

</p>
<p>&nbsp;</p>

<hr>
<asp:Button id="btn1"
Text="Start Over"
onclick="startOver"
runat="server" /></td>
</tr>
</table>
</Form>
</div>

</body>
</html>
 
Sort by date Sort by votes
I finaly got it connected to my SQL Server but now I am stuck on the GRID. I cannot get the grid to display the data selected in the from the dropdowns. Any hints?

<%@ Page Language="VB" Debug="True" Trace="false" TraceMode="SortByCategory" %><%@ Import Namespace="System.Data" %>
<%@ Register TagPrefix="MM" Namespace="DreamweaverCtrls" Assembly="DreamweaverCtrls,version=1.0.0.0,publicKeyToken=836f606ede05d46a,culture=neutral" %>
<%@ Import Namespace="System.Data.OleDb" %>
<html>
<head>
<meta name="GENERATOR" Content="ASP Express 2.2">
<title>DropDownLists</title>
<script language="VB" runat="server">
Dim strConn as String

Sub Page_Load(Source as Object, E as EventArgs)
strConn="Provider=sqloledb;Data Source=TICKER;Initial Catalog=cceportal;User Id=cce;Password=welcome1;"
if not Page.IsPostBack then

Dim OLESQL as string = "Select Distinct category from eol"
Dim Myconn as New OleDbConnection(strConn)
Dim objDR as OleDbDataReader
Dim Cmd as New OleDbCommand(OLESQL, MyConn)
MyConn.Open()
objDR=Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl1.DataSource = objDR
ddl1.DataBind()
ddl1.items.insert(0,"-- Choose --")
end if
ddl1.items.insert(0,"-- Choose --")
End Sub

Sub fillModel(Source as Object, E as EventArgs)
if ddl1.selectedItem.text <> "-- Choose --" then

Dim OLESQL as string = "Select Distinct product from eol where category='" & ddl1.selecteditem.text & "'"
Dim Myconn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(OLESQL, MyConn)
MyConn.Open()
ddl2.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl2.DataBind()
' ddl2.selectedindex=0
tdmodel.visible="true"
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
ddl2.items.insert(0,"-- Choose --")
tdStyle.visible="false"
End If
End Sub

Sub Fillddl3(Source as Object, E as EventArgs)
DoFill
End Sub

Sub Fill2(Source as Object, E as EventArgs)

Dim OLESQL as string = "Select Distinct Vendor from eol where Product ='" & ddl2.selecteditem.text & "'"
Dim Myconn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(OLESQL, MyConn)
MyConn.Open()
ddl3.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl3.DataBind()
tdStyle.visible="true"
tdLit.visible="true"
lit1.text="<b>Product</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Vendor</b> : " & ddl2.selecteditem.text
ddl3.items.insert(0,"-- Choose --")
End Sub

Sub DoFill()
Dim strConn as string = "server=(local);uid=sa;pwd=password;database=yourdatabase"
Dim OLESQL as string = "Select vendor from eol where Product ='" & ddl2.selecteditem.text & "'"
Dim MyConn as New OleDbConnection(strConn)
Dim Cmd as New OleDbCommand(OLESQL, MyConn)
MyConn.Open()
ddl3.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
ddl3.DataBind()
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Product</b> : " & ddl2.selecteditem.text
End Sub

Sub doStyle(Source as Object, E as EventArgs)
lit1.text="<b>Category</b>: " & ddl1.selectedItem.text
lit1.text+="<br><b>Product</b> : " & ddl2.selecteditem.text
Lit1.text+="<br><b>Vendor</b> :" & ddl3.selecteditem.text
MyDataGrid.DataSource = Cmd.ExecuteReader(system.data.CommandBehavior.CloseConnection)
MyDataGrid.DataBind()
End Sub
Sub startOver(Source as Object, E as EventArgs)
tdModel.visible="false"
tdStyle.visible="false"
lit1.text=""
tdLit.visible="false"
End Sub
</script>
</head>
<body>
<div align="center"><Form id="form1" runat="server">
<table border="0" runat="server" id="tbl1">
<tr runat="server">
<td align="Left" valign="Top" runat="server"><b>Choose Category:</b><br>
<asp:DropDownList id="ddl1"
Datatextfield="Category"
autopostback="true"
onselectedindexchanged="fillModel"
runat="server" />
</td>
<td align="Left" valign="Top" runat="server" id="tdModel" visible="false"><b>Choose Product:</b><br>
<asp:DropDownList id="ddl2"
datatextfield="Product"
onselectedindexchanged="Fill2"
autopostback="true"
runat="server" />
</td>
<td align="Left" valign="Top" runat="server" id="tdStyle" visible="false"><b>Choose Vendor</b><br>
<asp:DropDownList id="ddl3"
Datatextfield="Vendor"
autopostback="true"
onselectedindexchanged="doStyle"
runat="server" />
</td>
</tr>
<tr>
<td align="Center" valign="Top" Colspan="4" runat="server" id="tdLit" visible="false">
<hr>
<p>&nbsp; </p>
<p>
<asp:Literal ID="lit1" runat="server"></asp:literal>
</p>

<hr>
<asp:Button id="btn1"
Text="Start Over"
onclick="startOver"
runat="server" /></td>
</tr>
</table>
<asp:DataGrid id="MyDataGrid" runat="server" />
</Form>

</div>

</body>
</html>
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

redoakhg
  • Locked
  • Question
The index of a child element is out of range.
Replies
1
Views
187
redoakhg
redoakhg
mletendre
  • Locked
  • Question
dreamweaver cs5 mysql and PHP filter by drop down list
Replies
0
Views
153
mletendre
mletendre
needahand
  • Locked
  • Question
Edit page containing DropDowns 1
Replies
2
Views
144
needahand
needahand
jimmyshoes
  • Locked
  • Question
Dynamic drop down list help 1
Replies
2
Views
100
jimmyshoes
jimmyshoes
jayjmcc
  • Locked
  • Question
dependent drop down list db value numeric not label
Replies
2
Views
100
jayjmcc
jayjmcc

Part and Inventory Search

Sponsor

Back
Top