Avatar billede wolfgang Praktikant
27. juli 2006 - 15:08 Der er 6 kommentarer og
1 løsning

Mit loop springer data over

Hej Eksperter,

Nu har jeg siddet og stirret mat ind i skærmen de sidste mange timer. Mit loop vil simpelthen ikke udskrive alt data.
- Kan I umiddelbart finde nogle fejl i nedenstående?

DateString = 25-07-2006

sqlEvents = "select * ,(select userInitials from tbl_users where tbl_users.userID=tbl_vCalendar.userID)as userIni from tbl_vCalendar where '"&ConvertToSqlDate(DateString)&"' between vStart and and vStatus = 1"
    set rsEvents = Conn.execute(sqlEvents)
           
           
    if not rsEvents.eof then
    do while not rsEvents.eof
        if rsEvents("vType") = "0" then
        Send "<tr><td align=""left"" valign=""top""><div class=""t0"">"&rsEvents("userIni")&"</div></td></tr>"
                   
        elseif rsEvents("vType") = "1" then
        Send "<tr><td align=""left"" valign=""top""><div class=""t1"">"&rsEvents("userIni")&": "&formatdatetime(rsEvents("vStart"),vbShortTime) & " - "&formatdatetime(rsEvents("vEnd"),vbShortTime) & "</div></td></tr>"
                   
        elseif rsEvents("vType") = "2" then
        Send "<tr><td align=""left"" valign=""top""><div class=""t2"">"&rsEvents("userIni")&"</div></td></tr>"
                       
        elseif rsEvents("vType") = "3" then
        Send "<tr><td align=""left"" valign=""top""><div class=""t3"">"&rsEvents("userIni")&"</div></td></tr>"
                   
        end if
        rsEvents.movenext
    loop
    end if



Jeg glæder mig meget til at høre fra jer.

MVH
Henrik
Avatar billede keysersoze Ekspert
27. juli 2006 - 15:21 #1
du bliver nødt til at forklare nærmere - det er umuligt at komme med noget ud fra det du skriver. Hvad udskriver den i forhold til det du havde forventet - er du sikker på at din sql giver dig det rigtige resultat... etc?
Avatar billede wolfgang Praktikant
27. juli 2006 - 16:09 #2
Hej igen,
Jeg beklager det meget dårligt formulerede spørgsmål. - Det må absolut skyldes min frustration :)

Jeg vender tilbage med datagrundlag etc. hurtigst muligt.
Avatar billede erikjacobsen Ekspert
27. juli 2006 - 17:12 #3
De to and-er ved siden af hinanden ligner nu en syntaksfejl i sql:
  between vStart and and vStatus = 1"
Avatar billede wolfgang Praktikant
01. august 2006 - 08:07 #4
Hej igen,
Jeg skal starte med at beklage, at det første indlæg blev så hurtigt- og kort formuleret. Absolut ikke i Ekspertens ånd.

Her er min SQL streng:
select userID, vStatus,vType, vEnd, LEFT(vStart,11)as vStart ,(select userInitials from tbl_users where tbl_users.userID=tbl_vCalendar.userID)as userIni from tbl_vCalendar where vStart = '"&ConvertToSqlDate(DateString)&"' and vStatus = 1

Her er indholdet af min tabel fra MS SQL Server:
vID    userID    vType    vStart            vEnd            vStatus
1    2    0    14-08-2006 00:00:00    15-08-2006 00:00:00    0
2    2    0    12-07-2006 00:00:00    16-07-2006 00:00:00    0
4    2    1    10-07-2006 00:00:00    31-07-2006 00:00:00    0
10    1    1    25-07-2006 00:00:00    25-07-2006 00:12:00    0
8    2    1    25-07-2006 12:00:00    25-07-2006 13:00:00    0
11    1    1    28-07-2006 00:00:00    31-07-2006 00:00:00    0
12    1    0    25-07-2006 16:00:00    25-07-2006 17:00:00    1
15    1    1    25-07-2006 00:00:00    25-07-2006 00:20:00    1
9    1    1    04-07-2006 00:00:00    16-07-2006 00:00:00    0
7    2    1    24-07-2006 08:00:00    24-07-2006 12:00:00    0
13    1    1    25-07-2006 19:00:00    25-07-2006 21:00:00    0



Jeg håber at ovenstående kan give et bedre indblik i min problemstilling.

MVH
Henrik
Avatar billede keysersoze Ekspert
01. august 2006 - 17:51 #5
hvis det ovenstående så er resultatet fra mssql - hvordan ser resultatet så ud i din asp?
Avatar billede wolfgang Praktikant
02. august 2006 - 12:05 #6
Hej igen,
Jeg har nu løst problemet med et ekstra recordset.

sqlCBOvertime = "select userID, vStatus,vType, vEnd, LEFT(vStart,11)as vStart ,(select userInitials from tbl_users where tbl_users.userID=tbl_vCalendar.userID)as userIni from tbl_vCalendar where vStart = '"&ConvertToSqlDate(DateString)&"' and vStatus = 1 and vType=1"
            set rsCBOvertime = Conn.execute(sqlCBOvertime)
           
            sqlVacation = "select *,(select userInitials from tbl_users where tbl_users.userID=tbl_vCalendar.userID)as userIni from tbl_vCalendar where vType=0 and '" & ConvertToSqlDate(DateString) & "' between vstart and vend"
            set rsVacation = Conn.execute(sqlVacation)

Tusind tak for jeres hjælp
Avatar billede wolfgang Praktikant
02. august 2006 - 12:07 #7
Jeg kunne slet ikke gennemskue fejlen/problemet, derfor ovenstående løsning.
Avatar billede Ny bruger Nybegynder

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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester