Notifikationer

Markér alle som læst Log ud

hede98 Nybegynder

04. maj 2003 - 21:40 Der er 10 kommentarer og
1 løsning

fra DB til "rulleliste"

Hej

Jeg har en database hvor jeg gerne vil gerne vil hente nogle data ud til en "rulleliste" i mit asp dokument... jeg mangler "koden, funktionen" for at hente data ind i en rulleliste....

Synes godt om

eagleeye Praktikant

04. maj 2003 - 21:48 #1

Jeg er ikke helt sikker på jeg er med, men du en drop down box?
Du laver en SQL som hendter fra tabelle og et loop som laver boksen:

SQL = "SELECT * FROM tabel"
Set rs = Conn.Execute (SQL)

Reponse.write "<select name=""navnet"">"
do while not rs.EOF
Reponse.write "<option value=""" & rs("id") & """>" & rs("navn") & "</option>"
rs.MoveNext
loop
Reponse.write "</select>"

Synes godt om

hede98 Nybegynder

04. maj 2003 - 21:55 #2

Jo du har helt ret, men jeg kan ikke helt få det til at virke. Her skal jeg hente "kontaktpersonid" ud af databasen. (Dette bruger jeg andre steder i siden, <%Response.Write rskunder1("titel")%>)

<select size="1" name="D1">
<option>dsdADA</option>
</select>

Synes godt om

eagleeye Praktikant

04. maj 2003 - 21:58 #3

Du skal så hvade rettet SQL sætningen så den hender fra den rigtige tabel.
I denne linje laves hver option:

Reponse.write "<option value=""" & rs("id") & """>" & rs("navn") & "</option>"

rs er nanvet på det recordset du bruger eksvis som rskunder1.

Synes godt om

hede98 Nybegynder

04. maj 2003 - 22:13 #4

hej du...
vil du ikke være flink at tilpasse det hele, kan ikke helt finde ud af det, min SQL henter fra den rigtige tabel!!!

Synes godt om

eagleeye Praktikant

04. maj 2003 - 22:14 #5

Jo så må du vise lidt kode.

Synes godt om

hede98 Nybegynder

04. maj 2003 - 22:19 #6

Dette bruger jeg andre steder i siden, <%Response.Write rskunder1("titel")%>)
og det er bare kontaktpersonid jeg skal have ud i listen...

Synes godt om

eagleeye Praktikant

04. maj 2003 - 22:25 #7

Jeg forstår det ikke helt så..

Så et noget med, men så der er ikke noget loop..:

Reponse.write "<select name=""navnet"">"
Reponse.write "<option value=""" & rskunder1("kontaktpersonid") & """>" & rskunder1("kontaktpersonid") & "</option>"
Reponse.write "</select>"

Synes godt om

hede98 Nybegynder

07. maj 2003 - 20:41 #8

Hej igen...
her er min kode, som ikke virker.... Den skal hente de forskellige projekter ud i en listeboks, felt="Projektnavn"

<%' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Projekter ")
%>

<input type="text" name="Projekt" size="30" value="<%Response.Write rskunder1("Projektnavn")%>">Reponse.write "<select name=""navnet"">"<BR>do while not rs.EOF<BR>
Reponse.write "<option value=""" & rs("id") & """>" &
rs("navn") & "</option>"<BR> rs.MoveNext<BR>loop<BR>Reponse.write
"</select>"</font></td>
<%
rskunder1.Close
set rskunder1 = Nothing
%>

Synes godt om

eagleeye Praktikant

07. maj 2003 - 22:29 #9

Ok der manger lidt <% og %> og så der & i stgedt for &

Prøv med dette:

<%' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Projekter ")
%>
<input type="text" name="Projekt" size="30" value="<%Response.Write rskunder1("Projektnavn")%>">
Reponse.write "<select name=""navnet"">"
do while not rskunder1.EOF
Reponse.write "<option value=""" & rskunder1("id") & """>" & rskunder1("navn") & "</option>"
rskunder1.MoveNext
loop
Reponse.write "</select>"</font></td>
<%
rskunder1.Close
set rskunder1 = Nothing
%>

Synes godt om

hede98 Nybegynder

08. maj 2003 - 15:51 #10

Hej
Her er hele min side, jeg har lavet en rulleboks til Projekter, men den henter kun en linie frem, jeg vil gerne have hentet alle projekter ind i listen...

<%
' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Kontakpersoner WHERE kundeid=" & request("kundeid"))
%>

<body bgcolor="#FFFFFF">
<table width="962" border="0" height="257">
<tr>
<td width="553" height="263" valign="top">
<form name="form1" method="post" action="nyaktivitet.asp?mode=gem&kundeid=<%=rskunder1("kundeid")%>">
<table width="53%" border="0" height="130" bgcolor="#000000" bordercolor="#000000" cellpadding="1" cellspacing="1">
<tr>
<td height="220" bgcolor="#CCCCCC">
<table width="585" border="0" cellspacing="0" height="348">
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Overskrift.:</font></td>
<td colspan="2" height="22" width="264"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="Titel" size="30">
</font></td>
<td colspan="2" rowspan="5" valign="top" width="206" height="116"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
 </font></td>
</tr>
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Kontakt person.:</font></td>
<td height="22" width="242">
<div align="left">
</select>
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">

<input type="text" name="kontaktpersonid" size="30" value="<%Response.Write rskunder1("Navn")%>"></font></div>
</td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr> <%
rskunder1.Close
set rskunder1 = Nothing
%>

<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Projekt.:</font></td>
<td height="22" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">

<%' ADODB connection objektet
Set Conn = Server.CreateObject("ADODB.Connection")
' Husk at angive den rigtige sti til din database
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
' Åben databaseforbindelsen
Conn.Open DSN
%>
<% set rskunder1 = Conn.execute("SELECT * FROM Projekter ")
%>

<br>
<select size="1" name="Projekt">
<option><%Response.Write rskunder1("Projektnavn")%></option>
</select><p></font></td>
<%
rskunder1.Close
set rskunder1 = Nothing
%>

<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Type.:</font></td>
<td height="22" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="type">
<option selected>Samtale ud</option>
<option>Samtale ind</option>
<option>E-mail</option>
<option>Dokument</option>
<option>Møde ude</option>
<option>Møde inde</option>
<option>Info</option>
<option>Udsending</option>
</select>
</font></td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="109" height="20">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Startdato.:</font></td>
<td height="20" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="start" size="30">
</font></td>
<td width="20" height="20"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
</tr>
<tr>
<td width="109" height="22">
 </td>
<td height="22" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
 </font></td>
<td width="20" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
<td width="157" height="22"><font face="Verdana, Arial, Helvetica, sans-serif" size="1"></font></td>
<td height="22" width="47"> </td>
</tr>
<tr>
<td width="109" height="132"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">Notat.:</font></td>
<td colspan="3" height="132" width="423"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<textarea name="notat" rows="8" cols="50"></textarea></font></td>
<td height="132" width="47"> </td>
</tr>
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Prioritet</font></td>
<td height="22" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="Prioritetid">
<option>Lav</option>
<option selected>Normal</option>
<option>Høj</option>
</select></font></td>
<td width="20" height="22"> </td>
<td width="157" height="22"> </td>
<td height="22" width="47"> </td>
</tr>
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Ansvarlige</font></td>
<td height="22" width="242"><font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<input type="text" name="ansvarlige" size="30"></font></td>
<td width="20" height="22"> </td>
<td width="157" height="22"> </td>
<td height="22" width="47"> </td>
</tr>
<tr>
<td width="109" height="22">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
Udført</font></td>
<td height="22" width="242">
<font face="Verdana, Arial, Helvetica, sans-serif" size="1">
<select size="1" name="udført">
<option>Ja</option>
<option>Nej</option>
</select></font></td>
<td width="20" height="22"> </td>
<td width="157" height="22"> </td>
<td height="22" width="47"> </td>
</tr>
</table>
</td>
</tr>
</table>
<table width="546" border="0">
<tr>
<td width="73" height="2"><b>
<Input type=submit Value=Tilføj>
<input type=hidden name=mode value=gem></b></td>
<td width="463" height="2"><b><font face="Verdana, Arial, Helvetica, sans-serif" size="2">
</font></b></td>
</tr>
</table>
<p> </p>
</form>
<p> </p>
<p> </p>
<p> </p>
</td>
</tr>
</table>
<p>

</p>

<% if request("mode") = "gem" then
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/crm.mdb")
Conn.Open DSN

set rskunder = server.createobject("adodb.recordset")
rskunder.open "aktiviteter", DSN, 1, 3
rskunder.addnew
rskunder ("kundeid") = request.querystring("kundeid")
rskunder("titel") = request.form("titel")
rskunder("kontaktpersonid") = request.form("kontaktpersonid")
rskunder("Prioritetid") = request.form("Prioritetid")
rskunder("type") = request.form("type")
rskunder("start") = request.form("start")
rskunder("udført") = request.form("udført")
rskunder("notat") = request.form("notat")
rskunder("Projekt") = request.form("Projekt")
rskunder("ansvarlige") = request.form("ansvarlige")

rskunder.update
%>

<%
rskunder.Close
set rskunder = Nothing
end if
%>
<p> </p>

Synes godt om

hede98 Nybegynder

10. maj 2003 - 14:52 #11

kunne du hjælpe

Synes godt om

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.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
Persits.Upload Af bsn i ASP	7	17/09/202611:37	I går 15:45
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

Se alle spørgsmål i kategorien Opret spørgsmål

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

Alle kategorier på Eksperten

Seneste artiklerRSS