Søg
Avatar billede jens_32 Nybegynder
17. juni 2006 - 14:55 Der er 4 kommentarer og
2 løsninger

ASP script: Søge igennem DB

Jeg har en database med en hel masse html linier i, som jeg skal have søgt igennem og skrevet.

Min nuværende syntaks ser ud på følgende vis:
<html>
<body>
<%
id = request.querystring("id")
if (id<>"" AND isnumeric(id)) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= & server.mappath("data.mdb")
set rs = Conn.execute("select * from test where id=" & id & "")
if NOT rs.EOF then
response.write rs("indhold")
else
response.write "Intet indhold blev fundet på pågældende kriterier!"
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
else
response.write "id er ikke tilstede eller også er det ikke et tal!"
end if
%>
</body>
</html>

Jeg får desværre kun skrevet den første record.
Den er nok gal med min søgestruktur.
Nogen der ved hvad der skal ændres i ovenstående kode, hvis jeg skal igennem alle records?
Avatar billede Slettet bruger
17. juni 2006 - 15:01 #1
- skal du bare have vist alle records, uden kriterier? I så fald kan dette gøres således:
<html>
<body>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("data.mdb")
set rs = Conn.execute("select * from test")
if NOT rs.EOF then
do until rs.EOF
response.write rs("indhold")
rs.movenext
loop
else
response.write "Intet indhold blev fundet på pågældende tabel!"
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing
%>
</body>
</html>

\Dan
Avatar billede mitbrugernavn Praktikant
17. juni 2006 - 15:04 #2
do har vist glemt et loop

<%
id = request.querystring("id")
if (id<>"" AND isnumeric(id)) then
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= & server.mappath("data.mdb")
set rs = Conn.execute("select * from test where id=" & id & "")
if NOT rs.EOF then
do
response.write rs("indhold") & "<br>"
i = i + 1
rs.movenext
loop while not rs.eof
end if
rs.close
set rs=nothing
Conn.close
set Conn=nothing

if i < 1 then
response.write "Intet indhold blev fundet på pågældende kriterier!"
else
response.write "id er ikke tilstede eller også er det ikke et tal!"
end if
end if
%>
Avatar billede jens_32 Nybegynder
17. juni 2006 - 15:21 #3
Jeg har nu følgende... virker ikke helt... hvad mangler jeg?

<html>
<body>
<%
id = request.querystring("id")
if (id<>"" AND isnumeric(id)) then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= & server.mappath("data.mdb")
    Do While NOT rs.EOF
        set rs = Conn.execute("select * from test where id=" & id & "")
        response.write rs("indhold")   
    Loop
    rs.close
    set rs=nothing
    Conn.close
    set Conn=nothing
else
    response.write "id er ikke tilstede eller også er det ikke et tal!"
end if
%>
</body>
</html>
Avatar billede mitbrugernavn Praktikant
17. juni 2006 - 15:44 #4
du kan ikke hente noget før den ved hvad det er

<html>
<body>
<%
id = request.querystring("id")
if (id<>"" AND isnumeric(id)) then
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ= & server.mappath("data.mdb")

set rs = Conn.execute("select * from test where id=" & id & "")
    Do While NOT rs.EOF

              response.write rs("indhold")   
    Loop
    rs.close
    set rs=nothing
    Conn.close
    set Conn=nothing
else
    response.write "id er ikke tilstede eller også er det ikke et tal!"
end if
%>
</body>
</html>
Avatar billede jens_32 Nybegynder
17. juni 2006 - 15:53 #5
Så virker det.

Hvem vil have point?
Avatar billede mitbrugernavn Praktikant
17. juni 2006 - 16:34 #6
dem smider du til den der har hjulpet eller fordeler i forhold til hjælp
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
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 9 17/09/202611:37 21/09/202615:15
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
25/0916:15 Internet forsvinder hele tiden Af TTA i Internetforbindelser
23/0920:49 Fejl på Tv2 Play Af Bukse i Browsere
23/0918:11 VB, Lægge 2 celler sammen og skrive den i cellen ved side af Af MC3390 i Excel
21/0910:39 DBA er ikke hvad det tidligere var - desværre! Af ErikHg i Fri debat
18/0919:52 Libre office skriveprogram Af Frank i Office & Kontorpakker
White papers
Flere white papers »