26. maj 1999 - 12:29Der er
8 kommentarer og 1 løsning
Opstille datoer fra en db i en "kalender"
Hej Jeg har en masse datoer med en tilhørende værdi som er i en db. Nu vil jeg gerne udskrive dem i en "kalender". Dvs. jeg vil gerne lave en tabel, hvor der i den første række står 1 til 31 (dvs datoen), i den næste række vil jeg så gerne skrive alle værdierne fra min db under den rigtige dato (der er ikke tal til alle datoerne). Er der en der har en ide til hvordan jeg får det til at virke.
i min db har jeg måske følgende oplysninger 1/2-99 5 3/2-99 6 10/2-99 4
og det jeg så gerne vil have ud på skærmen er en tabel hvor alle datoerne fra 1/2-99 til den 31/2-99, men det står kun tal under de datoer som har en værdi i db'en.
Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Datobase" Query = "SELECT * FROM datobase ORDER BY Dato" Set Db = Connect.Execute(Query)
I tilknytning til denne kode har jeg lavet en Access database med tabellen "Datobase", denne tabel indeholder 3 kolonner:
1) ID - som er sat som primærer nøgle, med autonummerering 2) Dato - sat som datofelt. 3) Nr - nummerfelt sat som talfelt (husk du skal sætte standart værdien til "ingen ting" for at undgå O 'null' i de tomme felter).
Husk at lav' en ODBC tilslutning.
Hvis jeg skal maile koden + databasen til dig, må du lige fyre din mail@adr afsted.
Tak for koden, men jeg tror ikke helt du har forstået mit problem. Jeg vil også gerne udskrive de datoer som ikke er i databasen. Dvs. Jeg vil gerne lave en vandret linie med alle datoerne i et måned, og så i en række nedenunder have en række med tal. Jeg prøver med et eksempel: Min database har f.eks. følgende værdier 1/5-99 5 4/5-99 2 7/5-99 7 og ikke mere. Så vil jeg gerne lave en vandret linie med alle datoerne i det 5 måned og så under den 1. , 4 og 7 skal der stå 5 , 2 og 7 og under alle de andre datoer skal der ikke stå noget.
For Count = 0 to DatoAntal DatoVis = DatoStart + Count %>
<br>
<%=day(DatoVis) & "/" & month(DatoVis)%>
<% Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "Datobase" Query = "SELECT * FROM datobase WHERE Nr <> 0" Set Db = Connect.Execute(Query) %>
Det var mere i den stil som jeg havde tænkt på. Så tak for koderne emborg her er dine point. Nu vil jeg igang med at bruge min nye viden til at få lavet "kalenderen" som jeg havde tænkt mig.
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.