I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio
deejayp
deejayp
il 26 maggio 2004 alle 09:08
117 messaggi dal 11 marzo 2002
www.djpwebmaster.it
ragazzi ho impostato queste due query che dovrebberò prelevare alcuni record che rispondano alle varie richieste e dopodichè aggiornarle con il nuovo valore..

Set Rs = Server.CreateObject("ADODB.Recordset")

Sql = "Select Id, Cnt_Id, Id_Utente, Id_Struttura, Arrivo, Partenza, Ric_Inviata, Ris_Inviata, Disdetta_Inviata, Status, Time_Limit, lingua From Preno Where Id_Utente = "& Id_Utente &" And (((Ric_Inviata = DateAdd(""d"",2,Ric_Inviata) < Now()) Or Arrivo <= Date()) And LCase(Status) = 'new') And (((Dis_Inviata = DateAdd(""d"",2,Dis_Inviata) < Now()) Or (Time_Limit <= Now() Or Arrivo <= Date())) And LCase(Status) = 'pre-ok')"

Rs.open Sql, conn,1,3

For IVolte = 1 to Rs.Recordcount
Rs("Disdetta_Inviata") = now()
Rs("Status") = "S-Canc"
Rs.Update
Rs.Movenext
next

Rs.close
Set Rs = Nothing

Set Rs = Server.CreateObject("ADODB.Recordset")

Sql = "Select Id, Cnt_Id, Id_Utente, Id_Struttura, Arrivo, Partenza, Ris_Inviata, Conferma_Inviata, Status, Time_Limit, Lingua From Preno Where Id_Utente = "& Id_Utente &" And (((Time_Limit <= Now() Or Arrivo <= Date()) Or (Ris_Inviata = DateAdd(""d"",2,Ris_Inviata) < Now())) And LCase(Status) = 'cc-pre-ok')"
Rs.open Sql, conn,1,3

For IVolte = 1 to Rs.Recordcount
Rs("Conferma_Inviata") = now()
Rs("Status") = "S-Ok"
Rs.Update
Rs.Movenext
next

Rs.close
Set Rs = Nothing
Conn.close
Set conn = nothing
il fatto è che non riesco a prelevare quelle giuste..

Sicuramente è una questione di parentesi e raggruppamenti...ma non riesco a capire dove sia l'errore!!
RispondiQuoting
luis75
luis75
il 26 maggio 2004 alle 12:54
69 messaggi dal 23 settembre 2001
www.sballai.com
Prova così (ho lasciato i WHERE invariati rispetto a come li hai scritti tu, anche se ho dei dubbi sulla sintassi di alcune funzioni di manipolazione delle date all'interno di una query sql)
Suggerimento: aggiungi una table per gli "status" con campi ID e descrizione e collegala con Preno attraverso l'ID dello Status
Domanda: utilizzi access?
se sì, hai provato la query di selezione all'interno di access?

data = year(now) & "/" & month(now) & "/" & day(now) & " " & time
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql = "UPDATE Preno Set Disdetta_Inviata=#" & data & "#,Status='S-Canc' Where Id_Utente = "& Id_Utente &" And (((Ric_Inviata = DateAdd(""d"",2,Ric_Inviata) < Now()) Or Arrivo <= Date()) And LCase(Status) = 'new') And (((Dis_Inviata = DateAdd(""d"",2,Dis_Inviata) < Now()) Or (Time_Limit <= Now() Or Arrivo <= Date())) And LCase(Status) = 'pre-ok')"
Rs.open Sql, conn,1,3
Set Rs = Nothing

Set Rs = Server.CreateObject("ADODB.Recordset")

Sql = "UPDATE Preno set Conferma_inviata=#" & data & "#,Status='S-OK' Where Id_Utente = "& Id_Utente &" And (((Time_Limit <= Now() Or Arrivo <= Date()) Or (Ris_Inviata = DateAdd(""d"",2,Ris_Inviata) < Now())) And LCase(Status) = 'cc-pre-ok')"
Rs.open Sql, conn,1,3
Set Rs = Nothing
Conn.close
Set conn = nothing

Saluti.
RispondiQuoting

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.