Avatar billede cdc Novice
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
Avatar billede oversjanten Nybegynder
10. april 2004 - 23:04 #1
Ved at angive en variabel i hvert option felt:
<select>
<option value ="<%=strSQL("feltnavn")%>">&nbsp;<%=strSQL("feltnavn")%></option>
</select>
Avatar billede roenving Novice
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>
Avatar billede cdc Novice
10. april 2004 - 23:26 #3
Avatar billede oversjanten Nybegynder
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")%>">&nbsp;<%=strSQL("feltnavn")%></option>
            <%   
        strSQL.MoveNext
        loop

tilsidst lukker du og rydder op:

    RS.Close
    set RS = nothing
Avatar billede oversjanten Nybegynder
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.
Avatar billede cdc Novice
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">&nbsp;</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>
Avatar billede roenving Novice
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>
Avatar billede cdc Novice
11. april 2004 - 00:46 #8
Avatar billede mini-me Nybegynder
11. april 2004 - 00:48 #9
on error resume next :-)
Avatar billede cdc Novice
11. april 2004 - 00:56 #10
hvad mener du mini-me
Avatar billede roenving Novice
11. april 2004 - 00:59 #11
do while not (eof or bof)

-- kender ikke den præcise syntaks, men ideen !-)
Avatar billede cdc Novice
11. april 2004 - 01:09 #12
do while not RS.EOF sådan her :o)
Avatar billede roenving Novice
11. april 2004 - 01:15 #13
-- så spiller den del helt !-)
Avatar billede cdc Novice
11. april 2004 - 01:21 #14
joda, så smid et svar
Avatar billede roenving Novice
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 '-)
Avatar billede cdc Novice
11. april 2004 - 01:33 #16
jeg forventer også at oversjanten smider et svar når han dukker forbi
Avatar billede oversjanten Nybegynder
11. april 2004 - 09:35 #17
rart at se du fik det til at virke ;-)
Avatar billede cdc Novice
11. april 2004 - 11:08 #18
nu mangler jeg bare at få de andre til at virke
Avatar billede roenving Novice
11. april 2004 - 16:36 #19
-- tak for points ;~}
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester