--- title: "nytt i databasen" type: "forum-thread" url: "https://www.webforum.nu/amne/asp/12594-nytt-i-databasen" topic: "ASP" topic_url: "https://www.webforum.nu/amne/asp" author: "Gimbo" published: "2001-11-10T20:27:00.000Z" updated: "2001-11-11T22:34:00.000Z" replies: 12 views: 341 page: 1 pages: 1 language: "sv-SE" site: "webForum — webforum.nu" rights: "Upphovsrätten till varje inlägg tillhör dess författare." attribution: "Citera som: webForum, https://www.webforum.nu/amne/asp/12594-nytt-i-databasen" --- # nytt i databasen ## #1 — Gimbo, 2001-11-10T20:27Z Hejsan! jag uppdaterar en lista på min websida kontinuerligt, denna lista är ordnad i bokstavsordning och jag undrar vad man skriver för att det till höger om namnet på listan, tillkommer ordet NY, då jag har uppdaterat denna lista, och när jag sedan skriver in ngt nytt i databsen så ska ordet NY tillkomma de nya och försvinna från de inna, förstå ni va jag menar? Hur gör man detta?? så här ser min db kopling ut: ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb") %> <% Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM musik ORDER BY Artist " RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %> ``` och sedan matar jag in posterna från databasen i tabbellerna med \<%=RecSet("blabla")%\> Permalänk: https://www.webforum.nu/p/12594 ## #2 — LarsG, 2001-11-10T20:46Z Det går att göra på lite olika sätt. Antingen kan du ha en kolumn i tabellen som innehåller det datum då du lade dit posten och när du visar data så jämför du det datumet med dagens datum och om det är mindre än t.ex. ena vecka gammalt kan du skriva ut nytt. Vid insert: ``` sql = "insert into musik(artist,datum,titel) values('Roland Cedermark',now(),'Dragspelsmambo')" connect.execute sql,,128 ``` och sedan när du hämtar data ``` sql = "select * from musik order by artist" set rs = connect.execute(sql) while not rs.eof 'skriv ut vanliga data if datediff("d",rs("datum"),now() < 7 then response.write "Nytt" end if rs.movenext wend ``` Ett annat sätt är att ha en kolumn i tabellen som antingen kan innehålla texten Nytt eller vara tom. När du lagrar nya poster kan du göra så här ``` sql = "update musik set nyhet = null" connect.execute sql,,128 'gör insert på alla nya poster sql = "insert into musik(artist,nyhet,titel) values('Roland Cedermark','nytt','Dragspelsmambo')" connect.execute sql,,128 ``` och sedan när du hämtar data ``` sql = "select * from musik order by artist" set rs = connect.execute(sql) while not rs.eof 'skriv ut vanliga data if not isnull(rs("nyhet")) then response.write "Nytt" end if rs.movenext wend ``` Permalänk: https://www.webforum.nu/p/294335 ## #3 — Gimbo, 2001-11-11T12:43Z Om vi säger att jag vill köra med metod nr2 som du rekomendera, så förstår jag inte riktigt vart jag ska ha kodsnuttarna du gav mig, för så här ser min kod ut då jag lägger till en post i databsen... ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb") %> <% Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM musik" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("artist") = Request.Form("artist") RecSet("titel") = Request.Form("titel") RecSet("sparlangd") = Request.Form("sparlangd") RecSet("lank") = Request.Form("lank") RecSet.Update RecSet.Close Connect.Close Set Connect = Nothing %> Och så här ser koden ut då jag hämtar informationen från databasen: [kod] <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb") %> <% Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM musik ORDER BY Artist " RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %>  Artist:  Titel: Spårlängd:  Ladda hem:
<% Do Until RecSet.EOF %> <% RecSet.MoveNext Loop RecSet.Close Connect.Close Set Connect = Nothing %> ``` Tror du att du kan hjälpa mig med att trycka in din kod i min?? Permalänk: https://www.webforum.nu/p/294336 ## #4 — LarsG, 2001-11-11T15:03Z Först måste du ändra din tabell och lägga till ett nytt fält Det behövs bara en gång och det kan du göra med följande sql-sats ``` alter table musik add nyhet char(4) ``` När du lagrar data så kan du lägga till det som är i fet stil. ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb") %> <% [b]'uppdatera alla gamla poster connect.execute "update musik set nyhet = null",,128[/b] Set RecSet = Server.CreateObject("ADODB.Recordset") Addera = "SELECT * FROM musik" RecSet.Open Addera, Connect, adOpenStatic, adLockOptimistic RecSet.AddNew RecSet("artist") = Request.Form("artist") RecSet("titel") = Request.Form("titel") RecSet("sparlangd") = Request.Form("sparlangd") RecSet("lank") = Request.Form("lank") [b]RecSet("nyhet") = "Nytt"[/b] RecSet.Update RecSet.Close Connect.Close Set Connect = Nothing %> ``` Vid utskrift, exakt hur överskriften och width och sånt ska sé ut får du nog fila lite på (Jag har satt ? på några ställen.) ``` <% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("..\databasen.mdb") %> <% Set RecSet = Server.CreateObject("ADODB.Recordset") Visa = "SELECT * FROM musik ORDER BY Artist " RecSet.Open Visa, Connect, adOpenStatic, adLockOptimistic %> [b] [/b]
<%=RecSet("artist")%> <%=RecSet("titel")%> <%=RecSet("sparlangd")%> ">
Artist: Titel: Spårlängd: Ladda hem: Nyhet
<% Do Until RecSet.EOF %> [b] <%if isnull(recset("nyhet")) then %>
<%=RecSet("artist")%> <%=RecSet("titel")%> <%=RecSet("sparlangd")%> "> ``` (Jag är så van vid att alltid döpa recordset till rs.) Permalänk: https://www.webforum.nu/p/294344 ## #12 — Gimbo, 2001-11-11T22:08Z Nu blev hela grejen skum, allt hamnar på en rad... jag fattar noll Permalänk: https://www.webforum.nu/p/294345 ## #13 — Gimbo, 2001-11-11T22:34Z det blev för komplicerat, jag körde med ditt första alternativ, det var mycket enklare, TACK SKA ru ha Permalänk: https://www.webforum.nu/p/294346 --- Tråden på webben: https://www.webforum.nu/amne/asp/12594-nytt-i-databasen