Could we retrieve the value from a populated pull down menu and reuse that value

[giandeo]

Hello Experts.

Is it possible to retrieve the value from a populated pull down menu from a database and then use that value to access the same database to get the related fields.


Example:

Database name: sp
Table: importer
Field names: imp_code, imp_name, imp_address, imp_tel

My Codes:

 <% 'access adatabase and retrieve field to be displayed on pull down menu%>

<% dim adocon, adorst, strSQL
 
set adocon = server.createobject("ADODB.connection")
adocon.open" Provider = Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath ("sp.mdb")
 
set adorst = server.createobject("ADODB.recordset")
 
strSQL="SELECT * FROM importer"
adorst.open strSQL, adocon
%>

[code]

<Form name="hello" id="hello">
<SELECT name="impcode" onChange="Valid ate();">
<%

Do while not adorst.EOF
%>
<option><%=ador st.Fields("imp_ code")%>
<%
adorst.movenext
loop
adocon.close
adorst.close
%>
</option>
</SELECT>
</Form>

 <% 'access the database again through the selected imp_code and retrieve all related fields to be displayed on text boxes in another form%>

<% dim adocon1, adorst1, strSQL1
 
set adocon1 = server.createobject("ADODB.connection")
adocon1.open" Provider = Microsoft.Jet.OLEDB.4.0;Data source=" & Server.MapPath ("sp.mdb")
 
set adorst1 = server.createobject("ADODB.recordset")
 
strSQL1="SELECT * FROM importer WHERE imp_code=***please. This i don't know how to code, may be we can get the value from the <javascript function Validate>"
 
adorst.open strSQL, adocon
 
Response.write"<input name="impname" value=[***please. this i don't know]>"
Response.write"<input name="impaddress" value=[***please. this i don't know]>"
Response.write"<input name="imptel" value=[***please. this i don't know]>"
 
adocon.close
adorst.close
 
%>

<script language="javascript" type="text/javascript">
function Validate()
{
document.hello.impcode.value=document.hello.impcode.options[document.hello.impcode.selectedIndex].value
}
</script>
 

Waiting eagerly for your suggestion ...........

Thanks

Giandeo

[DrBunchman]

Hi Giandeo,

Rather than using javascript why don't you use a button to submit your form then use Request("ImpCod e") in strSQL1? e.g.

strSQL1="SELECT * FROM importer WHERE imp_code=Reques t("ImpCode")

Does this help?

Dr B

[giandeo]

Hi Giandeo,

Rather than using javascript why don't you use a button to submit your form then use Request("ImpCod e") in strSQL1? e.g.

strSQL1="SELECT * FROM importer WHERE imp_code=Reques t("ImpCode")

Does this help?

Dr B

Thank you so much DrBunchman for your kind quick reply and indelible help.

Frankly speaking, I have a page to submit with a number of fields. In that page I have two populated pull down menu with associated text boxes and some non related text fields. I want to populate the text boxes from the relative tables once the user select an option on the pull down menu. As such there is no need for them to key in the data. For the non related fields such as description of goods, country of origin data will have to be input manually. Once the information is complete, we submit the page and update the transaction table.


Example:

Selecting an option from importer drop down menu automatically populates the importer text boxes:- name, address, telephone from the importer table

After that, selecting an option from the declarant menu automatically populates the declarant text boxes - declarant name, declarant address, declarant telephone from the declarant table

After that, key in the description of goods in a text box

After that, key in the origin in a text box

Finally, submit the page/form to update the table transaction with fields:- imp_code, declarant_code, description,ori gin

My problem
Its almost a month or so now. I am new to ASP and Web programming. I can find some bits of information here and some there and I try to understand the logic behind and then share the knowledge to others. But unfortunately, this time I am in a 'no move' situation.

I have been able to populate a pull down menu(e.g imp_code) from the associated table(e.g importer) but I am not able to populate the relative text fields/boxes (e.g imp_name, imp_address, imp_tel). And then if you have two pull down menu matters become worst from bad.

I wish i could get that magic help from you experts that could show me how to do such tricks....

[DrBunchman]

The following code shows how you can use javascript to populate a number of text boxes after selecting a value from a drop down list. Note that this code does not use the second database call - it gets all the data it needs from the first call and stores it in the value field of the drop down list. The javascript then takes that value, splits it into an array and puts it into the text boxes.

 
<script language="javascript" type="text/javascript">
function TestScript(strvalues)
{
//this function takes the long string of values from the database and splits it up
//into the original pieces of data
var arrayvalues = strvalues.split(","); 
document.form1.TextBox1.value = arrayvalues[0];
document.form1.TextBox2.value = arrayvalues[1];
// add as many lines here as you need, one for each textbox value you want to set
}
</script>
<form name="form1">
<select name="Select1" onchange = "TestScript(this.options[this.selectedIndex].value)">
<option value="0" />
 
<!-- CYCLE THROUGH EACH ROW IN THE RECORD SET AND STORE THE REQUIRED VALUES IN THE OPTION -->
 
<%
Do Until adorst.EOF
'ADD AS MANY VALUES AS YOU NEED FROM THE RECORDSET BUT MAKE SURE YOU
'PUT A COMMA BETWEEN EACH ONE AS I HAVE BELOW
 
Response.Write("<Option value='" & adorst("DBValue1") & "," & adorst("DBValue2") & "'>
Response.Write(adorst("imp_code"))
Response.Write("</option>")
 
adorst.MoveNext
Loop
%>
 
</select>
<input type="text" name="TextBox1" />
<input type="text" name="TextBox2" />
</form>
 

If you need any help implementing this then give me a shout as I probably haven't explained it very well. I hope this is a solution to your problem.

Dr B

[CroCrew]

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:

• Change the SQL syntax to match your fields within your table.

• Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.


Hope this helps~

<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 
    Set rsList = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"
    rsList.CursorType = 1
    rsList.LockType = 3
    rsList.Open SQL, Conn
%>
<html>
    <head>
        <title>Example</title>
        <script language="JavaScript">
            var FieldOneArray = new Array(<%=rsList.RecordCount%>);
            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);
            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);
                <%i = 0%>
                <%Do Until (rsList.EOF)%>
                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';
                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';
                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
 
            function UpdateValues()
            {
                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;
                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];
                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];
                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];
            }
        </script>
    </head>
    <body>
        <form method="post" action="#" name="xForm" id="xForm">
            <select name="PreFillOne" onchange="UpdateValues();">
                <option value="-1">Select One</option>
                <%i = 0%>
                <%rsList.MoveFirst%>
                <%Do Until (rsList.EOF)%>
                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
            </select>
            <br>Field One: <input type="text" name="FieldOne">
            <br>Field One: <input type="text" name="FieldTwo">
            <br>Field One: <input type="text" name="FieldThree">
        </form>
    </body>
</html>
 

[giandeo]

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:

• Change the SQL syntax to match your fields within your table.

• Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.


Hope this helps~

<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 
    Set rsList = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"
    rsList.CursorType = 1
    rsList.LockType = 3
    rsList.Open SQL, Conn
%>
<html>
    <head>
        <title>Example</title>
        <script language="JavaScript">
            var FieldOneArray = new Array(<%=rsList.RecordCount%>);
            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);
            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);
                <%i = 0%>
                <%Do Until (rsList.EOF)%>
                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';
                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';
                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
 
            function UpdateValues()
            {
                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;
                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];
                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];
                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];
            }
        </script>
    </head>
    <body>
        <form method="post" action="#" name="xForm" id="xForm">
            <select name="PreFillOne" onchange="UpdateValues();">
                <option value="-1">Select One</option>
                <%i = 0%>
                <%rsList.MoveFirst%>
                <%Do Until (rsList.EOF)%>
                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
            </select>
            <br>Field One: <input type="text" name="FieldOne">
            <br>Field One: <input type="text" name="FieldTwo">
            <br>Field One: <input type="text" name="FieldThree">
        </form>
    </body>
</html>
 

[quote]
I heartfully thank you EXPERTS for you remarkable help. I am going to execute the program and will shortly report to you. Thanks again.....

[giandeo]

Hello giandeo,

This one was fun to figure out! I don’t know if this is your answer but, it might work for you.

First off I don’t know the fields within your database so you will need to change a few things before you test:

• Change the SQL syntax to match your fields within your table.

• Change the field names within all the “Do Until” loops.

What I like about doing it this way is there is only one call to your database (DBA’s are big fans of that) and should speed up your page. The other thing is that there is no page reload; all the data is stored in an array.


Hope this helps~

<%
Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("sp.mdb") 
    Set rsList = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT FieldOne, FieldTwo, FieldThree FROM TheTable"
    rsList.CursorType = 1
    rsList.LockType = 3
    rsList.Open SQL, Conn
%>
<html>
    <head>
        <title>Example</title>
        <script language="JavaScript">
            var FieldOneArray = new Array(<%=rsList.RecordCount%>);
            var FieldTwoArray = new Array(<%=rsList.RecordCount%>);
            var FieldThreeArray = new Array(<%=rsList.RecordCount%>);
                <%i = 0%>
                <%Do Until (rsList.EOF)%>
                    FieldOneArray[<%=i%>]='<%=rsList("FieldOne").value%>';
                    FieldTwoArray[<%=i%>]='<%=rsList("FieldTwo").value%>';
                    FieldThreeArray[<%=i%>]='<%=rsList("FieldThree").value%>';
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
 
            function UpdateValues()
            {
                var TheSelectedValue = document.xForm.PreFillOne.options[document.xForm.PreFillOne.selectedIndex].value;
                document.xForm.FieldOne.value = FieldOneArray[TheSelectedValue];
                document.xForm.FieldTwo.value = FieldTwoArray[TheSelectedValue];
                document.xForm.FieldThree.value = FieldThreeArray[TheSelectedValue];
            }
        </script>
    </head>
    <body>
        <form method="post" action="#" name="xForm" id="xForm">
            <select name="PreFillOne" onchange="UpdateValues();">
                <option value="-1">Select One</option>
                <%i = 0%>
                <%rsList.MoveFirst%>
                <%Do Until (rsList.EOF)%>
                    <option value="<%=i%>"><%=rsList("FieldOne").value%></option>
                    <%i = (i + 1)%>
                    <%rsList.MoveNext%>
                <%Loop%>
            </select>
            <br>Field One: <input type="text" name="FieldOne">
            <br>Field One: <input type="text" name="FieldTwo">
            <br>Field One: <input type="text" name="FieldThree">
        </form>
    </body>
</html>
 

Sir, the solution works perfectly well so long there is no appostrophe ' in the record. Let me explain.

I have a table importer with the following fields:
Imp_code, imp_name, imp_address

I can retrieve all the values for
Imp_code = 00011, Imp_name=Gerrar d, Imp_address=15, Garcia Road, B Bay

But I cannot retrieve data for
Imp_code = 00012, Imp_name=Raoul, imp_address=Roy al Road Trou D'eau Douce

The pull down menu cannot display the values stored in the array. I get the message/warning "Loaded by with errors". Although the pull down menu is populated with the values of the imp_coded, no record is displayed in the text fields.

Please help me out.......

[CroCrew]

Hello giandeo,

Are you trying to say something? It is not coming in if you are. Please re-post what your trying to say and preview it before posting.

Thanks~

[giandeo]

Hello giandeo,

Are you trying to say something? It is not coming in if you are. Please re-post what your trying to say and preview it before posting.

Thanks~

Sir, the solution works perfectly well so long there is no appostrophe ' in the record. Let me explain.

The table importer has the following fields:
Imp_code, imp_name, imp_address

I can retrieve all the values for
Imp_code = 00011, Imp_name=Gerrar d, Imp_address=15, Garcia Road, B Bay

But I cannot retrieve data for
Imp_code = 00012, Imp_name=Raoul, imp_address=Roy al Road Trou D'eau Douce

The pull down menu cannot display the values stored in the array. I get the message/warning "Loaded by with errors". Although the pull down menu is populated with the values of the imp_coded, no record is displayed in the text fields.

Please help me out.....

[DrBunchman]

Hi giandeo,

The problem here is that an apostrophe is a special character used by the database to mark the end of a string. If you want to include data with apostrophe's in your records you must replace them all with double apostrophe's. Like so:

string= Replace(string, "'", "''")

If your string was "Royal Road Trou D'eau Douce" then it would become "Royal Road Trou D''eau Douce" and this could be safely entered in the database.

Does this make sense? Let me know how you get on.

Dr B