Select (dropdown) list and set value based on table column

mcauliffe · Jan 23, 2007

I have an old application ( pre-VB5) that I need to add a select/option list
to. This is an edit program so the values for the form will be retrieved
from a database. How do I set the value of the dropdown with the value from
the database. The value in the database is either new, trial, maint.,
employee, beta, or null. I need to set the dropdrown to one of these values.

An example of the select;
<td>
<select name="ordReason">
<option></option>
<option value="New">New</option>
<option value="Maint.">Maint.</option>
<option value="Trial">Trial</option>
<option value="Employee">Employee</option>
<option value="Beta">Beta</option>
</select>
</td>

Bob Barrows [MVP] · Jan 23, 2007

mcauliffe said:
I have an old application ( pre-VB5) that I need to add a
select/option list to. This is an edit program so the values for the
form will be retrieved from a database. How do I set the value of
the dropdown with the value from the database. The value in the
database is either new, trial, maint., employee, beta, or null. I
need to set the dropdrown to one of these values.

An example of the select;
<td>
<select name="ordReason">
<option></option>
<option value="New">New</option>
<option value="Maint.">Maint.</option>
<option value="Trial">Trial</option>
<option value="Employee">Employee</option>
<option value="Beta">Beta</option>
</select>
</td>

When adding the options, add the word " checked" to the option tag of
the one you want selected.

Bob Barrows [MVP] · Jan 23, 2007

mcauliffe said:
Thank you for the reply.

I don't know which one will bew selected until I retrieved a record
from the database. The user is editing a existing record and may
changed the value of the dropdown. I must first indicate the value
is the database.

An example: the database for the column is equal to "Employee" How
do I indicate when I display the ASP page on the form that the
existing value of ordReason is Employee?

Concatenate "checked" into the option value text when building the
option string.

You are building these options by looping through some records in a
recordset, correct? When you get to the one that contains "Employee",
concatenate "selected" (not "checked" - oops) into the option tag.
Obviously, this means you need to know/retrieve the selected value
before building the option list.

Here's a simple example using an array instead of a recordset (since i
don't have access to your database, of course):

<%
dim options, ar, selectedvalue, val
selectedvalue=Request.Form("sel")
ar=array("New","Maint.","Trial","Employee","Beta")
for each val in ar
options=options & "<option value=""" & val & """"
if val=selectedvalue then options=options & " selected"
options=options & ">" & val
next
%>
<html><body><form method="post">
<select name="sel">
<%=options%>
</select><br>
<input type="submit">
</form></body></html>

next

Michael · Jan 24, 2007

I can recommend my procedure for building select box.
parameter "arr" is 2 dimensional array taken from query and based on 2
fields; id and name, using method getrows
parameter "id" is value that should be checked

Sub FillSelectBox(arr, selectname, action, size, id)
Dim Sel
Response.Write "<select name=" & selectname & " onchange=" & action
& " style='width:" & size & "px;'>"
For i=0 to Ubound(arr,2)
If cint(id)=cint(arr(0,i)) Then
Sel=" selected "
Else
Sel=" "
End If
Response.Write "<option" & Sel & " value=" & arr(0,i) & ">"
& arr(1,i) & "</option>"
Next
Response.write "</select>"
End Sub

example of calling
<%
sql="Select CustomerId, CustomerName from Customers order by CustomerName"
call getfromdatabase(sql, rs) ' your own function to get query
If Not rs.eof Then
array=rs.GetRows
End If
call FillSelectBox(array, "Types", "changesomething(" & rs("CustomerId") &
")", 20, "Smith")
%>

Michael

Evertjan. · Jan 24, 2007

=?Utf-8?B?bWNhdWxpZmZl?= wrote on 24 jan 2007 in
microsoft.public.inetserver.asp.general:

As a newbie, needed something that I would undetstand. Your response
help me. I did a Select Case and resolved.

This is a snipet of the code
Select Case rsorder_header.fields.getValue("order_reason")
Case ""
Response.Write "<td width=100>" & _
"<select name='ordReason'>" & _
"<option Selected></option>" & _
"<option value='New'>New</option>" & _
"<option value='Maint.'>Maint.</option>" & _
"<option value='Trial'>Trial</option>" & _
"<option Value='Employee'>Employee</option>" & _
"<option value='Beta'>Beta</option></select></td>"
Case "New"
Response.Write "<td width=100>" & _
"<select name='ordReason'>" & _
"<option></option>" & _
"<option value='New' Selected>New</option>" & _
"<option value='Maint.'>Maint.</option>" & _
"<option value='Trial'>Trial</option>" & _
"<option Value='Employee'>Employee</option>" & _
"<option value='Beta'>Beta</option></select></td>"
Case "Maint."
Response.Write "<td width=100>" & _
"<select name='ordReason'>" & _
"<option></option>" & _
"<option value='New'>New</option>" & _
"<option value='Maint.' Selected>Maint.</option>"
& _ "<option value='Trial'>Trial</option>" & _
"<option Value='Employee'>Employee</option>" & _
"<option value='Beta'>Beta</option></select></td>"

Why not use ASP-VBS to optimize your code:

<%
Function writeOption(t)
If rsn = t Then s = "Selected" Else s = ""
Response.Write "<option value='"&t&"'"&s&">"&t&"</option>" & VbCrLf
End Function

rsn = rsorder_header.fields.getValue("order_reason")
%>
<td width=100>
<select name='ordReason'>
<%
writeOption("")
writeOption("New")
writeOption("Maint.")
writeOption("Trial")
writeOption("Employee")
writeOption("Beta")
%>
</select>
</td>

Not tested btw.

Billy · Jan 26, 2007

Thanks all. Commenting out the section that produced the headers
worked.

Add Image and label dynamically inside the dropdown	2	Mar 11, 2022
How to add dropdown selected data to table using jquery	2	Jul 2, 2022
Filter table rows based on multiple checkboxes value	2	Jan 13, 2023
How to create a JSON array with values from DOM(HTML TABLE) when I click a button using JQuery/Javascript?	0	May 1, 2023
How to display input options only after selecting an option from the 'select class' tag JS?	6	May 12, 2023
I dont get this. Please help me!!	2	Jan 24, 2023
Select Eof extension files based on text list of filenames with if condition	0	May 4, 2022
Survey details won't go through using php, ajax, Mysql	0	Oct 26, 2023

Select (dropdown) list and set value based on table column

mcauliffe

Bob Barrows [MVP]

Bob Barrows [MVP]

Michael

Evertjan.

Billy

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads