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

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;



New
Maint.
Trial
Employee
Beta

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

mcauliffe wrote:
> 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;
>
>
>
> New
> Maint.
> Trial
> Employee
> Beta
>
>

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

--
Microsoft MVP -- ASP/ASP.NET
Please reply to the newsgroup. The email account listed in my From
header is my spam trap, so I don't check it very often. You will get a
quicker response by posting to the newsgroup.

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

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?

"Bob Barrows [MVP]" wrote:

> mcauliffe wrote:
> > 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;
> >
> >
> >
> > New
> > Maint.
> > Trial
> > Employee
> > Beta
> >
> >
>
> When adding the options, add the word " checked" to the option tag of
> the one you want selected.
>
> --
> Microsoft MVP -- ASP/ASP.NET
> Please reply to the newsgroup. The email account listed in my From
> header is my spam trap, so I don't check it very often. You will get a
> quicker response by posting to the newsgroup.
>
>
>

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

mcauliffe wrote:
> 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 & " if val=selectedvalue then options=options & " selected"
options=options & ">" & val
next
%>

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

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 ""
For i=0 to Ubound(arr,2)
If cint(id)=cint(arr(0,i)) Then
Sel=" selected "
Else
Sel=" "
End If
Response.Write ""
& arr(1,i) & ""
Next
Response.write ""
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

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

Thank you for the answer.

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 "" & _
"" & _
"" & _
"New" & _
"Maint." & _
"Trial" & _
"Employee" & _
"Beta"
Case "New"
Response.Write "" & _
"" & _
"" & _
"New" & _
"Maint." & _
"Trial" & _
"Employee" & _
"Beta"
Case "Maint."
Response.Write "" & _
"" & _
"" & _
"New" & _
"Maint." & _
"Trial" & _
"Employee" & _
"Beta"

"Michael" wrote:

> 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 ""
> For i=0 to Ubound(arr,2)
> If cint(id)=cint(arr(0,i)) Then
> Sel=" selected "
> Else
> Sel=" "
> End If
> Response.Write ""
> & arr(1,i) & ""
> Next
> Response.write ""
> 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
>
>
>

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

=?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 "" & _
> "" & _
> "" & _
> "New" & _
> "Maint." & _
> "Trial" & _
> "Employee" & _
> "Beta"
> Case "New"
> Response.Write "" & _
> "" & _
> "" & _
> "New" & _
> "Maint." & _
> "Trial" & _
> "Employee" & _
> "Beta"
> Case "Maint."
> Response.Write "" & _
> "" & _
> "" & _
> "New" & _
> "Maint."
> & _ "Trial" & _
> "Employee" & _
> "Beta"
>

Why not use ASP-VBS to optimize your code:


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

rsn = rsorder_header.fields.getValue("order_reason")
%>


<%
writeOption("")
writeOption("New")
writeOption("Maint.")
writeOption("Trial")
writeOption("Employee")
writeOption("Beta")
%>



Not tested btw.

--
Evertjan.
The Netherlands.
(Please change the x'es to dots in my emailaddress)

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

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

On Jan 24, 10:22 am, "Evertjan."
wrote:
> =?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 "" & _
> > "" & _
> > "" & _
> > "New" & _
> > "Maint." & _
> > "Trial" & _
> > "Employee" & _
> > "Beta"
> > Case "New"
> > Response.Write "" & _
> > "" & _
> > "" & _
> > "New" & _
> > "Maint." & _
> > "Trial" & _
> > "Employee" & _
> > "Beta"
> > Case "Maint."
> > Response.Write "" & _
> > "" & _
> > "" & _
> > "New" & _
> > "Maint."
> > & _ "Trial" & _
> > "Employee" & _
> > "Beta"Why not use ASP-VBS to optimize your code:
>
> <%
> Function writeOption(t)
> If rsn = t Then s = "Selected" Else s = ""
> Response.Write ""&t&"" & VbCrLf
> End Function
>
> rsn = rsorder_header.fields.getValue("order_reason")
> %>
>
>
> <%
> writeOption("")
> writeOption("New")
> writeOption("Maint.")
> writeOption("Trial")
> writeOption("Employee")
> writeOption("Beta")
> %>
>
>
>
> Not tested btw.
>
> --
> Evertjan.
> The Netherlands.
> (Please change the x'es to dots in my emailaddress)- Hide quoted text -- Show quoted text -