1. Koden förutsätter Access, är det den databashanteraren du använder?
2. Sedan får du sätta sql-frågan i ett sammanhang. Min kod ovan var bara visnings-exempel. För att kunna hjälpa dig med den koden måste jag veta dels vad tabellen heter, samt vad dina kolumner i tabellen heter.
Något sådant här som exempel. Connectionsträngen får du justera efter dina önskemål. ;)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (*.mdb)}; DBQ=" & db
sql = "select top 5 id, namn, url, info, kat, click from url order by id desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
response.write namn & "<br />"
rs.movenext
wend
end if
rs.close()
set rs = nothing
Databasen tryckte jag in vid * i koden.
Men det felar något med den?
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'
[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified
Databassökvägen är ju rätt den ligger i db. Hänger inte med?
<%Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver (db/archive.mdb)}; DBQ=" & db
sql = "select top 5 id, namn, url, info, kat, click from url order by id desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
response.write namn & "<br />"
rs.movenext
wend
end if
rs.close()
set rs = nothing%>
sql = "select top 5 id, namn, url, info, kat, click from url order by id desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
response.write namn & "\<br /\>"
rs.movenext
wend
end if
rs.close()
set rs = nothing
%>[kod]
Men de resulterade i det här:
Microsoft OLE DB Provider for ODBC Drivers fel '80004005'
[Microsoft][Drivrutin för ODBC Microsoft Access]Allmänt fel Det går inte att öppna registernyckeln 'Temporary (volatile) Jet DSN for process 0x87c Thread 0x360 DBC 0xa11c024 Jet'
Jag tycker att det redan borde finnas en connectionsträng i någon fil att inkludera iom att du bygger ut ett färdigt skript. Finns inte det har Gruvsjö missat något väsentligt i sin kodning. :)
Ok börjar bli smått förvirrade nu =)
Jo connectionsträngen finns ju i en include fil som är inkluderad i index.asp så egentligen borde man väl inte då behöva ha ett databassträng i detta igen?
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")
Om man nu ska det då borde det ju bli så här med hela scriptet:
<%Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/archive.mdb")
sql = "select top 5 id, namn, url, info, kat, click from url order by id desc"
set rs = conn.execute(sql)
if not rs.eof then
while not rs.eof
response.write namn & "<br />"
rs.movenext
wend
end if
rs.close()
set rs = nothing
%>
Men då blir det ett error som säger att det angavs för få parametrar en förväntades.
