Ciclo For Next ed inserimento in db

[viki1967]

Ciao a tutti.

Ho un codice del tipo:

Function dataShort(dtData) 
dataShort = right("00"&day(dtData),2)&"/"&right("00"&month(dtData),2)&"/"& Year(dtData)
End Function 

...

do while not rs1.EOF

data1=rs1("data1")
data2=rs1("data2")

for i = data1 to data2 step 1
response.write dataShort(i) & "
"
next

rs1.MoveNext
loop

Che restituisce tutte le date comprese tra data1 e data2... è possibile inserire queste date (quelle comprese tra data1 e data2) in un database? Se si, come?

Grazie

[imente]

Function dataShort(dtData) 
dataShort = right("00"&day(dtData),2)&"/"&right("00"&month(dtData),2)&"/"& Year(dtData)
End Function 

...

do while not rs1.EOF

data1=rs1("data1")
data2=rs1("data2")

for i = data1 to data2 step 1
 SQL = "INSERT INTO tabella_date (campo_data) VALUES (#" & dataShort(i) & "#)"
 Connessione.execute SQL 
next

rs1.MoveNext
loop

[viki1967]

Ti ringrazio adesso inserisce nel dbase, ma c'è un problema: fai conto che:

-data1 è 15-08-2005
-data2 è 18-08-2005
-date comprese nell'intervallo: 15-16-17-18/08/2005

Si registrano due records uguali alla fine del ciclo (rec 4 e rec 5):

 
ID	Attiv	  Data1           Date2	
1	xxxxx	2005/08/15	2005/08/18	
2	xxxxx	2005/08/16	2005/08/18
3	xxxxx 	2005/08/17	2005/08/18
4	xxxxx	2005/08/18	2005/08/18
5	xxxxx	2005/08/18	2005/08/18

[imente]

prova un po' così...

Function dataShort(dtData) 
dataShort = right("00"&day(dtData),2)&"/"&right("00"&month(dtData),2)&"/"& Year(dtData)
End Function 

...

do while not rs1.EOF

data1=rs1("data1")
data2=rs1("data2")

for i = 0 to datediff("d",data1,data2) step 1
 SQL = "INSERT INTO tabella_date (campo_data) VALUES (#" & dataShort(dateadd("d",data1,i))  & "#)"
 Connessione.execute SQL 
next

rs1.MoveNext
loop

ovviamente le modifiche sono sempre e solo quelle in rosso...

[viki1967]

Grazie ma continua nel "problema":

FUNCTION dataShort(dtData) 
dataShort = Year(dtData) &"/"& right("00"&month(dtData),2) &"/"& right("00"&day(dtData),2)
END FUNCTION 

DATA1  = datashort(Request.Form("DATA1"))
DATA2  = datashort(Request.Form("DATA2"))

for i = 0 to datediff("d",cDate(DATA1),cDate(DATA2)) step 1
  strSql = "INSERT INTO TABELLA_DATE (DATA1,DATA2) values (#" &dataShort(dateadd("d",cDate(DATA1),i))& "#, #" &DATA2 &"#)"
 objCONN.execute strSql
next

[imente]

la cosa è a dir poco curiosa...
ho testato con le mie mani e nessun tipo di problema...

intanto comunque possiamo togliere i richiami alla tua funzione
lavorando con dati DATE e inserendo in campo DATE la tua fuznione è ora inutile

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

for i = 0 to datediff("d",DATA1,DATA2) step 1
  strSql = "INSERT INTO TABELLA_DATE (DATA1,DATA2) values (#" & dateadd("d",cDate(DATA1),i) & "#, #" &DATA2 &"#)"
 objCONN.execute strSql
next

non è ciò che causa il problema però pulire il codice è sempre buona cosa...

-------------------

ora come ora non riesco a vedere il problema...
per ovviare possiamo fare una sconcezza...

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

dim date_last, date_current
for i = 0 to datediff("d",DATA1,DATA2) step 1
 date_current = dateadd("d",cDate(DATA1),i)
 if datediff("d",date_current,date_last) <> 0 then
  strSql = "INSERT INTO TABELLA_DATE (DATA1,DATA2) values (#" & formatdatetime(date_current,vbshortdate) & "#, #" & formatdatetime(DATA2,vbshortdate) &"#)"
 objCONN.execute strSql
  date_last = date_current
 end if
next

-------------------

in ogni caso può essere utile che tu avvii QUESTO codice

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

response.write "|" & DATA1 & "|-|" & DATA2 & "|"

e mi dici che cosa viene a schermo

[viki1967]

Originariamente inviato da imente
la cosa è a dir poco curiosa...
ho testato con le mie mani e nessun tipo di problema...
-------------------
in ogni caso può essere utile che tu avvii QUESTO codice

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

response.write "|" & DATA1 & "|-|" & DATA2 & "|"

e mi dici che cosa viene a schermo

Restituisce questo:

|0.00.00|-|0.00.00|

[imente]

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

response.write "|" & Request.Form("DATA1") & "|-|" & Request.Form("DATA2") & "|
"
response.write "|" & formatdatetime(DATA1,vbshortdate) & "|-|" & formatdatetime(DATA2,vbshortdate) & "|"

e questo?

te lo chiedo per il semplice motivo che non ho tutto il codice, e siccome il problema non è nel codice ma nel meccanismo di input sto cercando di capire...

--------------------------------------------------------

in ogni caso prova l'ultimo codice che ti ho dato e guarda se funziona...

DATA1  = cdate(Request.Form("DATA1"))
DATA2  = cdate(Request.Form("DATA2"))

dim date_last, date_current
for i = 0 to datediff("d",DATA1,DATA2) step 1
 date_current = dateadd("d",cDate(DATA1),i)
 if datediff("d",date_current,date_last) <> 0 then
  strSql = "INSERT INTO TABELLA_DATE (DATA1,DATA2) values (#" &  formatdatetime(date_current,vbshortdate)
 & "#, #" & formatdatetime(DATA2,vbshortdate) &"#)"
 objCONN.execute strSql
  date_last = date_current
 end if
next

dovrebbe ovviare al problema di DOPPIONI

[viki1967]

Con il nuovo codice questa è la query restituita:

INSERT INTO TABELLA_DATE (DATA1, DATA2) values (#29/08/2005#, #31/08/2005#)

INSERT INTO TABELLA_DATE (DATA1, DATA2) values (#30/08/2005#, #31/08/2005#)

INSERT INTO TABELLA_DATE (DATA1, DATA2) values (#31/08/2005#, #31/08/2005#)

[imente]

beh... se come date gli hai dato

da 29/08/2005 a 31/08/2005

allora siamo a cavallo