Avatar billede madsholme Nybegynder
16. marts 2001 - 20:07 Der er 10 kommentarer og
1 løsning

Database

Hej..
Jeg er ved at lave en hp, hvor alt indholdet skal være i en database. Jeg har sat databasen op sådan her:

ID-----Tekst
22    bla

Så er det så meningen at den via idét skal udskrive det tekst der er i den række. Men jeg kan ikke rigtigt få det til at virke.. MIt script er:

<%
\' 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 (\"/database/database.mdb\")
\' Åben databaseforbindelsen
Conn.Open DSN
\' SQL forespørgsel
strSQL = \"Select * from Tekst\"
\' Udfør forespørgsel (rs indeholder nu resultatet)
Set rs = Conn.Execute(strSQL)
Response.Write rs(\"Id1\") & \"<br>\"
Conn.Close
Set Conn = Nothing
%>
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:12 #1
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database/database.mdb\")
Conn.Open DSN
strSQL = \"Select * from Tekst order by id\"
Set rs = Conn.Execute(strSQL)
if rs.EOF then
%>
Ingen data I Databasen
<%
else
%>
<table border=\"1\">
<tr><td>Id:</td>
<td><b>Tekst:</b></td>
<%
Do Until rs.EOF
%>
<tr>
<td valign=\"top\"><%=rs(\"id\")%></td>
<td valign=\"top\"><%=rs(\"tekst\")%></td>
</tr>
<%
rs.MoveNext
Loop
end if
%>
</table>
<%
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:13 #2
og hvis det stadig ikke virker så skriv lige fejlen
Avatar billede madsholme Nybegynder
16. marts 2001 - 20:18 #3
den skriver:

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/a.asp, line 17
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:20 #4
har du andet i den fil??
hvad er linie 17 hos dig??
Avatar billede netsrac Praktikant
16. marts 2001 - 20:24 #5
Denne linie:
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database/database.mdb\")

Skal vel egentlig være:
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"database\\database.mdb\")
Avatar billede madsholme Nybegynder
16. marts 2001 - 20:35 #6
ok misser....
Nu skriver den :

Fejltype:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access-driver] Der er for få parametre. Der var ventet 1.
/a.asp, line 18
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:36 #7
HVAD ER LINIE 18???????
Avatar billede madsholme Nybegynder
16. marts 2001 - 20:38 #8
linie 18 = Set rs = Conn.Execute(strSQL)
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:39 #9
strSQL = \"Select * from Tekst\"
Avatar billede madsholme Nybegynder
16. marts 2001 - 20:41 #10
linie 16 = Conn.Open DSN
linie 17 = strSQL = \"Select * from Tekst order by id\"
linie 18 = Set rs = Conn.Execute(strSQL)

Kan da ikke passe så ?
Avatar billede tpiil Nybegynder
16. marts 2001 - 20:42 #11
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath (\"/database/database.mdb\")
Conn.Open DSN
strSQL = \"Select * from Tekst\"
Set rs = Conn.Execute(strSQL)
if rs.EOF then
%>
Ingen data I Databasen
<%
else
%>
<table border=\"1\">
<tr><td>Id:</td>
<td><b>Tekst:</b></td>
<%
Do Until rs.EOF
%>
<tr>
<td valign=\"top\"><%=rs(\"id\")%></td>
<td valign=\"top\"><%=rs(\"tekst\")%></td>
</tr>
<%
rs.MoveNext
Loop
end if
%>
</table>
<%
rs.Close
Set rs = Nothing
Conn.Close
set Conn = Nothing
%>
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