Avatar billede Slettet bruger
24. februar 2003 - 10:56 Der er 10 kommentarer og
1 løsning

Variabler

hey

Jeg har en database med en rækker værdier, som jeg skal hente ud. Det går fint. Men jeg ville gerne have at bruger selv kan skriv hvor mange værdi han vi have vist.

Min SQL forespørgsel ser sådan ud:
strSQL = "Select top xx * from Dataops order by Id DESC"

Så hvis bruger skriver 10, så kommer SQL forespørgselen til at se sådan ud:
strSQL = "Select top 10* from Dataops order by Id DESC"

Håber der er nogen som forstår hvad jeg skriver...
Avatar billede mortvader Nybegynder
24. februar 2003 - 10:59 #1
rsObj.open "select top "&request.querystring("antal")%&" * from Dataops order by Id DESC"
Avatar billede mortvader Nybegynder
24. februar 2003 - 10:59 #2
uden %, altså:
rsObj.open "select top "&request.querystring("antal")&" * from Dataops order by Id DESC"
Avatar billede Slettet bruger
24. februar 2003 - 11:06 #3
ok. Men jeg skal jo have en side hvor der lige er et felt, som bruger skal skrive tallet i?
Hvordan laver jeg det?
Avatar billede mortvader Nybegynder
24. februar 2003 - 11:09 #4
<%
dim antal
antal=5  'default

if request.querystring("action")="post" then
  antal=request.form("antal") 
end if

rsObj.open "select top "&antal&" * from Dataops order by Id DESC"

..kode til at udskrive records her..

%>

<form action="siden.asp?action=post" method=post>
Hvor mange:<input type=text name=antal><br>
<input type=submit>
</form>
Avatar billede Slettet bruger
24. februar 2003 - 11:23 #5
hmm. Jeg kan ikke få det til at virker. Men roder lige med det når jeg har fritime..
Avatar billede mortvader Nybegynder
24. februar 2003 - 11:24 #6
<form action="siden.asp?action=post" method=post>

^^ den går ud fra at asp siden hedder "siden.asp"
Avatar billede Slettet bruger
24. februar 2003 - 11:50 #7
Er det her helt forkert?

<%
dim antal
antal=5  'default

if request.querystring("action")="post" then
  antal=request.form("antal") 
end if

rsObj.open "select top "&request.querystring("antal")&" * from Dataops order by Id DESC"    <--- fejl her
' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)

%>


<table border="1" cellpadding="1" width="100%" bordercolor="#000000">
<tr align="center">
  <th width="20%">Måling fortaget d.:</th>
  <th width="20%">IP nummer:</th>
  <th width="20%">Temperaturen målt til:</th>
  <th width="20%">Luftigheden målt til:</th>
  <th width="20%">Målings nummer:</th>
</tr>

<%

Do

' Gennemløb Recordset (rs) med en løkke


Response.write "<tr><td align=left>"
Response.Write rs("Dato")
Response.write "</td><td align=left>"
Response.Write rs("IP")
Response.write "</td><td align=left>"
Response.Write rs("temp")
Response.write "</td><td align=left>"
Response.Write rs("fugtighed")
Response.write "</td><td align=left>"
Response.Write rs("Id")
Response.write "</td></tr>"


  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

<form action="side.asp?action=post" method=post>
Hvor mange:<input type=text name=antal><br>
<input type=submit>
</form>

Så kommer den og siger der er fejl i linje 9.
Avatar billede mortvader Nybegynder
24. februar 2003 - 11:56 #8
ja, linie 9 skal nu se således ud:
rsObj.open "select top "&antal&" * from Dataops order by Id DESC"
Avatar billede mortvader Nybegynder
24. februar 2003 - 11:59 #9
Hov, kommer lige til at se at det er noget rod.. rydder lige lidt op:

<%
dim antal

if request.querystring("action")="post" then
  antal=request.form("antal")
else
  antal=5  'default
end if

strSQL="select top "&antal&" * from Dataops order by Id DESC"
Set rs = Conn.Execute(strSQL)

%>


<table border="1" cellpadding="1" width="100%" bordercolor="#000000">
<tr align="center">
  <th width="20%">Måling fortaget d.:</th>
  <th width="20%">IP nummer:</th>
  <th width="20%">Temperaturen målt til:</th>
  <th width="20%">Luftigheden målt til:</th>
  <th width="20%">Målings nummer:</th>
</tr>

<%

Do

' Gennemløb Recordset (rs) med en løkke


Response.write "<tr><td align=left>"
Response.Write rs("Dato")
Response.write "</td><td align=left>"
Response.Write rs("IP")
Response.write "</td><td align=left>"
Response.Write rs("temp")
Response.write "</td><td align=left>"
Response.Write rs("fugtighed")
Response.write "</td><td align=left>"
Response.Write rs("Id")
Response.write "</td></tr>"


  ' Gå til næste Record i rs
  rs.MoveNext

' Fortsæt indtil rs er gennemløbet (EOF = End Of File)
Loop While Not rs.EOF

' Luk databaseforbindelse
Conn.Close
Set Conn = Nothing
%>

<form action="side.asp?action=post" method=post>
Hvor mange:<input type=text name=antal><br>
<input type=submit>
</form>
Avatar billede Slettet bruger
24. februar 2003 - 14:52 #10
<form action="side.asp?action=post" method=post>
Hvor mange:<input type=text name=antal><br>
<input type=submit>
</form>

Åbner det en ny side? Hvad skal der være af script på den side?

Jeg ved ikke lige hvad der sker nu, men nu er der bare fejl i linje 11 (Set rs = Conn.Execute(strSQL) )
Avatar billede Slettet bruger
01. marts 2003 - 13:21 #11
Har ikke fået det til at virke, men du skal have takke for hjælpen
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