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!
-
Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Display value in combo box. 1
- Thread starter Syerston
- Start date
- Thread starter
- #2
- Thread starter
- #3
-
1
- #4
I think you were headed in the right direction above, lets see what you have and we should be able to point out which part is off.
01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101
29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19
Do you know how hot your computer is running at home? I do
01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101
29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19
Do you know how hot your computer is running at home? I do
- Thread starter
- #5
Thanks for replying
Below is the code I am using to populate the combo box. I have also returned another recordset with the property details, the field that relates to this particular combo is rsProperty("District"
. Therfore I need to populate the combo as below and then set the value to the above. I've tried using "selected" within the option tag but it does not seem to work.
Any idea.
<SELECT name="cboDistrictOffice" size="1">
<%
'Check for database errors
Call CheckforErrors(oConn)
'Create Recordset and Connection
Set objRS=Server.CreateObject("ADODB.Recordset"
sqlText = "SELECT DistrictOffice, RAD FROM ltblDistrictOffice"
objRS.Open sqlText, oConn, adOpenKeyset
'if objRS is not empty then
'loop through the recordset to populate the combobox
Do While Not objRS.EOF
%>
<OPTION VALUE="<%=objRS("RAD"%>" SELECTED=314><%=objRS("DistrictOffice"%></OPTION>
<%
objRS.MoveNext
Loop
'close the recorset
set objRS = nothing
%>
</SELECT>
Below is the code I am using to populate the combo box. I have also returned another recordset with the property details, the field that relates to this particular combo is rsProperty("District"
. Therfore I need to populate the combo as below and then set the value to the above. I've tried using "selected" within the option tag but it does not seem to work. Any idea.
<SELECT name="cboDistrictOffice" size="1">
<%
'Check for database errors
Call CheckforErrors(oConn)
'Create Recordset and Connection
Set objRS=Server.CreateObject("ADODB.Recordset"
sqlText = "SELECT DistrictOffice, RAD FROM ltblDistrictOffice"
objRS.Open sqlText, oConn, adOpenKeyset
'if objRS is not empty then
'loop through the recordset to populate the combobox
Do While Not objRS.EOF
%>
<OPTION VALUE="<%=objRS("RAD"
%>" SELECTED=314><%=objRS("DistrictOffice"%></OPTION><%
objRS.MoveNext
Loop
'close the recorset
set objRS = nothing
%>
</SELECT>
Ok, the problem is that your setting every option to selected instead of just the on record that matches in your second recordset. Do a view source in your browser after loading your asp page and you'll see what I mean.
All you really need to do is limit your print statement a little. I'm going to switch it to Response.Writes just to keep from going back and forth as much:
I think you were just a litle off with the way the selected tag works, but were definately most of the way there already. Basically all we are doing above is restricting it to write out selected only in the option that corresponds to rsProperty("District". I'm not sure I am comparing it against the correct field, but I think you'll probably get the idea.
-Tarwn
01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101
29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19
Do you know how hot your computer is running at home? I do
All you really need to do is limit your print statement a little. I'm going to switch it to Response.Writes just to keep from going back and forth as much:
Code:
Do While Not objRS.EOF
'Write out the beginning of the tag
Response.Write "<OPTION VALUE=""" & objRS("RAD") & """"
'Write the selected attribute on the matching tag only
If rsProperty("District") = objRS("RAD") Then Response.Write " SELECTED"
'write the rest of the tag
Response.Write ">" & objRS("DistrictOffice") & "</OPTION>"
objRS.MoveNext
LoopI think you were just a litle off with the way the selected tag works, but were definately most of the way there already. Basically all we are doing above is restricting it to write out selected only in the option that corresponds to rsProperty("District"
. I'm not sure I am comparing it against the correct field, but I think you'll probably get the idea.-Tarwn
01010100 01101001 01100101 01110010 01101110 01101111 01101011 00101110 01100011 01101111 01101101
29 3K 10 3D 3L 3J 3K 10 32 35 10 3E 39 33 35 10 3K 3F 10 38 31 3M 35 10 36 3I 35 35 10 3K 39 3D 35 10 1Q 19
Do you know how hot your computer is running at home? I do
- Thread starter
- #7
Sorry to trouble you again Tarwn but the page is not displaying. This is the code as it now appears.
Code:
<SELECT name="cboDistrictOffice" size="1">
<%
'Check for database errors
Call CheckforErrors(oConn)
'Create Recordset and Connection
Set objRS=Server.CreateObject("ADODB.Recordset")
sqlText = "SELECT DistrictOffice, RAD FROM ltblDistrictOffice"
objRS.Open sqlText, oConn, adOpenKeyset
'if objRS is not empty then
'loop through the recordset to populate the combobox
Do While Not objRS.EOF
'Write out the beginning of the tag
Response.Write "<OPTION VALUE=""" & objRS("RAD") & """"
'Write the selected attribute on the matching tag only
If rsRecord("RAD") = objRS("RAD") Then
Response.Write " SELECTED"
'write the rest of the tag
Response.Write ">" & objRS("DistrictOffice") & "</OPTION>"
objRS.MoveNext
Loop
'close the recorset
set objRS = nothing
%>
</SELECT>- Thread starter
- #8
- Status
Similar threads
- Locked
- Question
- Locked
- Question