SQL kald i en løkke

hov... det var noget ged... Har markeret hele rækken med rød...

Men håber I forstår det alligevel :)

<%
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
    '-- hent poster fra database hvor dato = dtmCurDate
    '-- hvis recordset.EOF then
      Response.Write "<td>"
    '-- elelrs  Response.Write "<td style='color: red'>"
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
          Response.Write Day(dtmCurDate)
          Response.Write "</td>"
          blnLast = False
        Else
          Response.Write "-</td>"
          blnLast = True
        End If
      Else
        Response.Write "-</td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</td></tr>"
%>

Det var vidst bedre....

lav et sql kald til at starte med, hvor du finder alle de datoer som er optaget i den måned du kigger på. Du skal ordne opslaget efter dato. Når du så genererer kalenderen skal du hver gang du skriver en dato/dag bare undersøge om datoen findes i recordsettet, hvis ja, så skal den være rød. Håber du forstår hvad jeg mener.

Hvordan tester jeg om datoen er i mit recordset?

Jeg har nu sporet det ned til dette:

        If Month(dtmCurDate) = Month(dtmFirstDate) Then
          if dtmCurDate <> CDATE("15-2-2006") then
            Response.Write("<span>")
          else
            Response.Write("<span style='color: red;'>")
          end if

Nu tester den om datoen er 15-2-2006. Mine datoer ligger i et recordset og kan hentes med rs("dato"). Men hvordan tester jeg om dtmCurDate er i det recordset?

rs.BOF
do until rs.EOF or optaget = true
  if CDATE(rs("dato")) = dtmCurDate then
    Response.Write("<span style='color: red;'>")
    optaget = true
  else
    optaget = false
  end if
rs.MoveNext
loop
if optaget = false then
  Response.Write("<span>")
end if
Response.Write Day(dtmCurDate)
Response.Write "</span></td>"


Er det noget i den stil?

Dette virker, men kan jeg ikke undgå at udføre "set rs = conn.Execute(sql)" hvor eneste gang den skriver en dato? Hvordan "spoler man tilbage" i sit recordset og starter forfra?


<%
set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../../db/bwm.mdb")
   
sql = "SELECT dato FROM afbud"



For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      Response.Write "<td>"
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
            set rs = conn.Execute(sql)
            do until rs.EOF or optaget = true
              if CDATE(rs("dato")) = dtmCurDate then
                Response.Write("<span style='color: red;'>")
                optaget = true
              else
                optaget = false
              end if
            rs.MoveNext
            loop
            if optaget = false then
              Response.Write("<span>")
            end if
            Response.Write Day(dtmCurDate)
            Response.Write "</span></td>"
              blnLast = False
        Else
          Response.Write "-</td>"
          blnLast = True
        End If
      Else
        Response.Write "-</td>"
        blnLast = True
      End if
    Next
  End If
Next
Response.Write "</td></tr>"

rs.close
set rs = Nothing
conn.close
set conn = Nothing

%>

du behøver ikke at spole tilbage, da dit recordset er sorteret er det nok kun at løbe det gennem en gang. Jeg fiker lige et eksempel

Håber du kan forstå idén
<%
'sætter datoer som er besatte, dette kunne være dit recordset.
myOcc=Array(1,2,6,9)
'myOccPos angiver hvilken værdi i arrayet vi kigger på. Vi starter med at sætte den til arrayets start.
myOccPos=LBound(myOcc)

for myDate = 1 to 31
    'Løkken kører hvis indholdet af vores recordset er mindre end den dato vi ser på, samt vi ikke har EOF(sidste led)
    while ((myOcc(myOccPos)<myDate) AND (myOccPos<UBound(myOcc)))
        'Her kører vi movenext på recordsettet
        myOccPos=myOccPos+1
    wend   
    'Hvis datoen af vores recordset er lig med den dato vi skriver gør vi den FED ellers ikke
    if myOcc(myOccPos)=myDate then
        response.Write " <B>"&myDate&"</B> "
    else
        response.Write " "& myDate & " "
    end if
next

%>

Jeg render lige på posthuset men er snart tilbage.

så i mit tilfælde bliver det:

while (CDATE(rs("dato")) < dtmCurDate AND NOT rs.EOF)
  rs.MoveNext
wend
if (CDATE(rs("dato")) = dtmCurDate) then
  response.write ("<b>" & dtmCurDate & "</b>")
else
  response.write (dtmCurDate)
end if


jeg er dog ikke helt sikker på "AND NOT rs.EOF"... er det den rigtige måde at skrive det på?

jeg er heller ikke helt sikker. Men sæt nogle paranterser for en sikkerhedsskyld
while ((CDATE(rs("dato")) < dtmCurDate) AND (NOT rs.EOF))
hvis det ikke giver syntax fejl virker det.

det gav syntaks fejl....

hvad skriver den?

prøv evt at flytte NOT uden for ( så der står AND NOT (

Den skriver: error '80020009'

Den skriver fint nok den første dato der er "optaget", men datoen efter går det galt. altså der hvor den netop skal til at udføre while sætningen.

har du mulighed for at uploadet scriptet og databasen et eller andet sted. Jeg kan ikke helt gennemskue det?

Det kan jeg desværre ikke. Men det er helt klart i while løkken at fejlen er.

men skriver den ikke hvad fejlen er?

Den skriver kun error '80020009'

jeg kan desværre ikke sige hvor fejlen er, der er ikke så meget andet at gøre end at begynde at fejlsøge systematisk.
Start med at fjerne
if (CDATE(rs("dato")) = dtmCurDate) then
  response.write ("<b>" & dtmCurDate & "</b>")
else
  response.write (dtmCurDate)
end if
og skriv evt kun dtmCurDate osv......

Først og fremmest. Det her virker: (bare så jeg selv kan huske det)

For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      Response.Write "<td style='text-align: center;'>"
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
            rs.Requery
            do until rs.EOF or optaget = true
                if  (CDATE(rs("dato")) = dtmCurDate) then
                    farve = "style='color: red; font-weight: bold; text-decoration: none;'"
                    optaget = true
                  else
                    farve = "style='text-decoration: none;'"
                    optaget = false
                end if
            rs.MoveNext
            loop
            Response.Write ("<a href='?member=" & Request.QueryString("member") & "&date=" & dtmCurDate & "' " & farve & ">" & Day(dtmCurDate) & "</a>")
            Response.Write "</td>"
            farve = ""
            optaget = ""
              blnLast = False
        Else
          Response.Write "-</td>"
          blnLast = True
        End If
      Else
        Response.Write "-</td>"
        blnLast = True
      End if
    Next
  End If
Next

men den spoler recordsettet tilbage ved hver dato, og det burde jo ikke være nødvendigt.

Det ser ud til at det er et problem med rs.movenext, for fejlen kommer først frem efter den sidste dato i databasen er løbet igennem. Kan der være et eller andet der forsøger at hente data selvom rs er tom?

ja, det kan du have en pointe i

prøv med if not rs.eof omring dine ifsætninger. Noget ala
For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      Response.Write "<td style='text-align: center;'>"
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
           
            do until ((CDATE(rs("dato")) >= dtmCurDate) OR (rs.EOF))
                rs.MoveNext
            loop
            if not rs.eof
                if  (CDATE(rs("dato")) = dtmCurDate) then
                    farve = "style='color: red; font-weight: bold; text-decoration: none;'"
                optaget = true
                else
                    farve = "style='text-decoration: none;'"
                    optaget = false
                end if
            end if
           
            Response.Write ("<a href='?member=" & Request.QueryString("member") & "&date=" & dtmCurDate & "' " & farve & ">" & Day(dtmCurDate) & "</a>")
            Response.Write "</td>"
            farve = ""
            optaget = ""
              blnLast = False
        Else
          Response.Write "-</td>"
          blnLast = True
        End If
      Else
        Response.Write "-</td>"
        blnLast = True
      End if
    Next
  End If
Next

Problemet er, at når du har sagt "rs.MoveNext" på den sidste post, så er rs.EOF sandt. næste gang For løkken kører igennem, så tester du på rs("dato") igen, hvilket jo ikke eksisterer.

Dvs. der skal på en eller anden måde testes på om rs.EOF er sandt, før man tester på om datoen er >= dtmCurDate

Har jeg ret?

har du set mit svar af 14/02-2006 19:40:29

jeps, har også afprøvet den, og det giver samme resultat.

hvad hvis du fjerner

if not rs.eof
                if  (CDATE(rs("dato")) = dtmCurDate) then
                    farve = "style='color: red; font-weight: bold; text-decoration: none;'"
                optaget = true
                else
                    farve = "style='text-decoration: none;'"
                    optaget = false
                end if
            end if

så får du selvf. ingen datoer, men fejler den så alligevel?

Nu er den der:

For y = 1 to 6
  If blnLast <> True Then
    Response.Write "<tr>"
    For x = 1 to 7
      Response.Write "<td style='text-align: center;'>"
      intLoopDay = intLoopDay + 1
      If intLoopDay >= intFirstDay Then
        dtmCurDate = DateAdd("d", intLoopDay-intFirstDay, dtmFirstDate)
        If Month(dtmCurDate) = Month(dtmFirstDate) Then
            if rs.EOF then
                farve = "style='text-decoration: none;'"
                Response.Write ("<a href='?member=" & Request.QueryString("member") & "&date=" & dtmCurDate & "' " & farve & ">" & Day(dtmCurDate) & "</a>")
                Response.Write "</td>"
            else
                if  (CDATE(rs("dato")) = dtmCurDate) then
                    farve = "style='color: red; font-weight: bold; text-decoration: none;'"
                else
                    farve = "style='text-decoration: none;'"
                end if
               
                do until rs.EOF
                    if CDATE(rs("dato")) = dtmCurDate then
                        rs.MoveNext
                    else
                        exit do
                    end if
                loop

               
                Response.Write ("<a href='?member=" & Request.QueryString("member") & "&date=" & dtmCurDate & "' " & farve & ">" & Day(dtmCurDate) & "</a>")
                Response.Write "</td>"
                farve = ""
            end if   
            blnLast = False
        Else
          Response.Write "-</td>"
          blnLast = True
        End If
      Else
        Response.Write "-</td>"
        blnLast = True
      End if
    Next
  End If
Next

Så lykkedes det mig at undgå at checke på rs("dato") mens rs.EOF er sandt.

det var heldigt

Smid et svar. Du viste princippet i løsningen. Tak for hjælpen

Det var så lidt

Efter en test har det vist sig at der går kuk i den når man går over til en ny måned.

Jeg er derfor gået tilbage til modellen beskrevet i indlægget af 14/02-2006 19:20:56