hente alt i en måned fra access

"select * from mess where manad="& month(date())

man har du ikke også et årstal med???

"select * from mess where manad="& month(date())&" and aar="& year(date())

dato og år ligger i samme kolonne "dato", men den bliver lbende opdateret så det er intet problem

du har altså en kolonne som hedder manad og en som hedder dato???

jepper

"select * from mess where dato >= '"& dateserial(year(date),month(date()),1) &"' and dato < '"& dateserial(year(date),month(date())+1,1) &"'"

denne: "select * from mess where manad="& month(date()) henter den første som er lagt ind i måneden, men den skal list alle aktiviteter denne måned der nedad, er det nogle af de to andre der gør det?

/cdc

den sidste skulle gerne finde alle poster hvor datoen (dato) er mellem den første og sidste i måneden

Fejl i script:

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/tirsdag/kalender/main_text.asp, line 9

Skript her:

<%
session.lcid = 1030
%>
<%
set conn = server.createobject("ADODB.connection")
path = Server.MapPath("db/kalender.mdb")
conn.Open "DBQ="& path &";DefaultDir="& path & ";Driver={Microsoft Access Driver (*.mdb)}"
SQL = "select * from mess where dato >= '"& dateserial(year(date),month(date()),1) &"' and dato < '"& dateserial(year(date),month(date())+1,1) &"'"
set RS = Conn.Execute(SQL)
%>

Access bruger # istedet for ' som alle andre :

SQL = "select * from mess where dato >= #"& dateserial(year(date),month(date()),1) &"# and dato < #"& dateserial(year(date),month(date())+1,1) &"#"

samme fejl


Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][ODBC Microsoft Access Driver] Too few parameters. Expected 1.

/tirsdag/kalender/main_text.asp, line 9

tror den virker nu tester lige lidt mere, men den virker med denne:

"select * from mess where manad="& month(date()) lige plutselig

får du den også ved:
SQL = "select * from mess where dato >= #01-03-2004# and dato < #31-03-2004#"

får samm fejl ved den sidste også som i de to foregående

så må datoformatet være anderledes end DD-MM-YYYY. Hvis du ikke kan finde ud af hvilket format den tager, må du bruge den anden løsning, men jeg ville bruge denne....

den tager kort datoformat

dd-mm-yyyy

Hvad du ser er ikke nødvendig det den tager... Hos mig komme dato ud på kortformat dd-mm-yyyy, men skal ind/sammenlignes på yyyymmdd

ok kigger lige

jeg vælger dato i admin delen således i nogle dropdowns:

              <select name="ar" style="width:55">
                  <option value="">År <%Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "Select ar From ar Order By id"
                    RS.Open SQL, Conn

                    Do Until RS.EOF
                        Response.Write Space(10) & "<option value=" & chr(34) & RS("ar") & chr(34)
                            If Int(Year(Date)) = Int(RS("ar")) Then Response.Write " selected" 
                        Response.Write ">" & RS("ar") & vbCrLf
                    RS.MoveNext
                    Loop

                    RS.Close
                    Set RS = Nothing%>
                </select>
                <select name="man" style="width:40">
                    <option value="">Må <%Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "Select man From man order by id"
                    RS.Open SQL, Conn

                    Do Until RS.EOF
                        Response.Write Space(10) & "<option value=" & chr(34) & RS("man") & chr(34)
                            If Int(Month(Date)) = Int(RS("man")) Then Response.Write " selected" 
                        Response.Write ">" & RS("man") & vbCrLf
                    RS.MoveNext
                    Loop

                    RS.Close
                    Set RS = Nothing%>
                </select>
              <select name="dag" style="width:40">
                  <option value="">Da <%Set RS = Server.CreateObject("ADODB.Recordset")
                    SQL = "Select dag From dag Order By id"
                    RS.Open SQL, Conn

                    Do Until RS.EOF
                        Response.Write Space(10) & "<option value=" & chr(34) & RS("dag") & chr(34)
                            If Int(Day(Date)) = Int(RS("dag")) Then Response.Write " selected" 
                        Response.Write ">" & RS("dag") & vbCrLf
                    RS.MoveNext
                    Loop

                    RS.Close
                    Set RS = Nothing%>
                </select></td>

men smid lige et svar da du allerede har fundet ud af at give mig en løsning

/cdc

det var ikke meningen selv at smide et svar

hvordan bliver det så indsat???

Det ved jeg faktisk ikke, kan ikke lige se det