10. april 2004 - 22:56
Der er
17 kommentarer og 2 løsninger
overføre værdi fra rullemenu til textfelt
her en skabelon på hvad jeg ønsker at lave:
http://www.hillerodgolf.dk/dream/test.htm Hvordan får man hentet værdierne fra en db ind i rullemenuen fra en tabell i en db (*.mdb) og hvordan kan denne værdi overføres til textfeltet til venstre on the fly ?
/cdc
Annonceindlæg tema
Offentlig digitalisering
Fra effektivisering til digital suverænitet. Hvordan skaber det offentlige en digital fremtid med AI, sikkerhed og kontrol i centrum?
10. april 2004 - 23:04
#1
Ved at angive en variabel i hvert option felt: <select> <option value ="<%=strSQL("feltnavn")%>"> <%=strSQL("feltnavn")%></option> </select>
10. april 2004 - 23:05
#2
Overføre værdierne: <select name="spiller1select" onchange="if(this.selectedIndex>0)this.form.spiller1.value=this.value"> <option>Vælg spiller</option> <option value="Hans Hansen">Hans Hansen</option> <option value="Anders Andersen">Anders Andersen</option> <option value="Hans Andersen">Hans Andersen</option> </select>
10. april 2004 - 23:26
#3
10. april 2004 - 23:39
#4
Det er muligtvis fordi du ikke har sat forbindelsen til databasen : Set RS = Server.CreateObject("ADODB.Connection") RS.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("DINDATABASE.mdb") Efter forbindelsen, skal du udføre et SQL-kald: SQL="SELECT * FROM UserLevel ORDER BY ID" SET strSQL = RS.Execute(SQL) herefter kører du en løkke, der henter dine data fra databasen: do while not strSQL.EOF %> <option value ="<%=strSQL("feltnavn")%>"> <%=strSQL("feltnavn")%></option> <% strSQL.MoveNext loop tilsidst lukker du og rydder op: RS.Close set RS = nothing
10. april 2004 - 23:48
#5
lige en rettelse.... SQL="SELECT * FROM dintabel ORDER BY ID" Fik ikke lige ændret tabelnavnet i farten *G*...sorry, det skulle ikke være nødvendigt at sortere efter id.
11. april 2004 - 00:24
#6
min kode ser således ud: <% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("xxxx.mdb") SQL = "SELECT * FROM spillere order by spillernavn ASC" Conn.Execute (SQL) Set rs = conn.Execute(SQL) %><html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title>Opret Hold</title> <LINK href="ss_wci.css" type=text/css rel=stylesheet> <base target="_self"> </head> <body bgcolor="#FFFFFF" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" bgproperties="fixed"> <table cellSpacing="0" cellPadding="10" width="450" border="0"> <tr> <td vAlign="top"> <table cellSpacing="0" cellPadding="0" width="100%" border="0"> <tbody> <tr> <td vAlign="top" width="60%"> <table cellSpacing="0" cellPadding="3" border="0"> <tbody> <tr> <td vAlign="top" width="236"> <p class="copy"><img border="0" src="billeder/opret_hold.gif"><br> </td> </tr> <tr> <td vAlign="top" width="236"> <table border="0" width="309" cellspacing="0" cellpadding="3"> <tr> <td width="62" bgcolor="#294A7B" class="rammetopBold"> <p align="center">VÆLG</td> <td width="231" bgcolor="#294A7B" class="rammetopBold">SPILLERNAVN</td> </tr> </table> </td> </tr> <tr> <td vAlign="top" width="236"> <form method="POST" action="GemProfil.asp?mode=ny" name="opret"> <table cellspacing="0" cellpadding="3" width="70%"> <tr> <td class="copy" colspan="2"></td> <td class="copy"><select size="1" name="D1"> <option value="<%=strSQL("spillernavn")%>"><%=strSQL("spillernavn")%></option> </select></td> </tr> <% conn.Close Set conn = nothing Set SQLstmt = nothing %> <tr> <td class="copy" colspan="3"> <hr color="#AA0000" size="1"> </td> </tr> <tr> <td class="copy" width="62" bgcolor="#EBEBEB">Holdnavn</td> <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="holdnavn" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td> </tr> <tr> <td class="copy" valign="top" width="62">Dit Navn</td> <td width="231" align="right" colspan="2"><input type="text" name="deltager" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td> </tr> <tr> <td class="copy" valign="top" width="62" bgcolor="#EBEBEB">Din Email</td> <td width="231" align="right" bgcolor="#EBEBEB" colspan="2"><input type="text" name="mail" size="37" style="font-family: Verdana; font-size: 8 pt; border: 1 solid #294A7B"></td> </tr> <tr> <td class="copy" width="62"> </td> <td width="231" colspan="2"> <input type="submit" value="Send" name="B1"> </td> </tr> </table> </form> </td> </tr> </tbody> </table> </td> <td valign="top"><img border="0" src="../images/spacer.gif"></td> <td valign="top"><img border="0" src="billeder/dream_small.gif"></td> </tr> </tbody> </table> </td> </tr> <font> </font> </table> </body>
11. april 2004 - 00:37
#7
<td class="copy"><select size="1" name="D1" onchange="if(this.selectedIndex>0)this.form.spiller1.value=this.value"> <option>-- Vælg spiller --</option> <% do while not eof %> <option value="<%=rs("spillernavn")%>"><%=rs("spillernavn")%></option> <% rs.movenext loop %> </select></td>
11. april 2004 - 00:46
#8
11. april 2004 - 00:48
#9
on error resume next :-)
11. april 2004 - 00:56
#10
hvad mener du mini-me
11. april 2004 - 00:59
#11
do while not (eof or bof) -- kender ikke den præcise syntaks, men ideen !-)
11. april 2004 - 01:09
#12
do while not RS.EOF sådan her :o)
11. april 2004 - 01:15
#13
-- så spiller den del helt !-)
11. april 2004 - 01:21
#14
joda, så smid et svar
11. april 2004 - 01:30
#15
-- jeg kan jo se, at du fik det meste af løsningen fra oversjanten @ 10/04-2004 23:39:44 ... Det var så bare sammenkoblingen af det hele, som manglede til sidst !-) -- ligner kraftigt en deler ... -- velbekomme '-)
11. april 2004 - 01:33
#16
jeg forventer også at oversjanten smider et svar når han dukker forbi
11. april 2004 - 09:35
#17
rart at se du fik det til at virke ;-)
11. april 2004 - 11:08
#18
nu mangler jeg bare at få de andre til at virke
11. april 2004 - 16:36
#19
-- tak for points ;~}
Kurser inden for grundlæggende programmering