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?
I dette særtema ser vi på, hvordan cloud og AI bliver fundamentet for virksomhedernes digitale forretning, og hvordan de nye muligheder for automatisering og forretningsværdi kan udnyttes uden at miste overblik, sikkerhed og menneskelig kontrol.
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.
