17. juni 2006 - 14:55Der 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?
Hvordan usynlig teknologi forvandler sikkert hybridarbejde til en daglig virkelighed
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>
<% 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 %>
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>
<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>
dem smider du til den der har hjulpet eller fordeler i forhold til hjælp
Synes godt om
Ny brugerNybegynder
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.
