No se como...?

[RucarMaN]

recojo estos datos:
IDCliente = Request.Form("IDCliente")
Placa = Request.Form("Placa")
FechaIncio = Request.Form("FechaInicio")
FechaSalida = Request.form("FechaSalida")
Linea = Request.form("Linea")
Puesto = Request.form("Puesto")

donde: FechaInicio seria la fecha de incio y FechaSalida seria la fecha de salida.
bien..
Lleno el Formulario y escojo la fecha de inicio (01/07/2009) y fecha de salida (07/07/2009) seria 7 dias...
como puedo insertar este registro asi:

IDCliente, placa, 01/07/2009, linea, puesto
IDCliente, placa, 02/07/2009, linea, puesto
IDCliente, placa, 03/07/2009, linea, puesto
IDCliente, placa, 04/07/2009, linea, puesto
-----------
IDCliente, placa, 07/07/2009, linea, puesto

hasta la fecha de salida..
osea realizar la cantida de registro segun los dias...

[JuanRAPerez]

saca la diferencia en dias (datediff) y luego insertas de uno en uno sumandole un dia a la fecha de inicio y asi de uno en uno hasta llegar a la fecha fin

suerte

[RucarMaN]

TENGO ESTO PERO NO FUNCIONA......

FechaInicio = Split(FechaInicio,",")

For i = 0 to UBound(FechaInicio)
Response.Write(FechaInicio(i)&"<br />")
Next

pero necesito esto
01/06/2009, 02/06/2009, 03/06/2009
una corrida desde la fecha de inicio hasta la fecha de salida.

[Adler]

Hola

El número de días que te de con la función DateDiff, JuanRa, lo usas en el ciclo. Después solo has de coger la fecha de inicio y con DateAdd añadirle un día a cada vuelta del ciclo

Suerte

[RucarMaN]

sera algo asi:
For i = 0 to Diferencia
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd(DiaCupo), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
Conn.Execute(SQL)
Response.write (SQL)
Next

[Adler]

Hola

Algo como esto

Código asp:

FechaIncio = Request.Form("FechaInicio")
FechaSalida = Request.form("FechaSalida")
 
dias = DateDiff(d, FechaInciom, FechaSalida)
 
For i = 0 to UBound(dias)-1
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd("d", i, FechaIncio), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
Conn.Execute(SQL)
Response.write (SQL)
Next
 

Suerte

[RucarMaN]

ya lo habia realizado asi pero me arroja este rror:
Microsoft VBScript runtime error '800a000d'

Type mismatch: 'Ubound'

y segun esto:
Comentarios

La función UBound se usa con la función LBound para determinar el tamaño de una matriz. Use la función LBound para buscar el límite inferior de una dimensión de una matriz.

pruebo este ejemplo

Código asp:

< &#37;FechaIncio = "01/01/2009"
FechaSalida = "05/02/2009"
dias = DateDiff("d", FechaIncio, FechaSalida)
For i = 0 to Ubound(dias)-1
SQL = "DateAdd("d", i, FechaIncio)"
Response.write (SQL)
Next% >
 

[Adler]

Hola

Sí, tienes razón. Traté la variable dias como un arreglo. Solo has de quitarle el ubound y dejarlo así

For i = 0 to dias

Suerte

[RucarMaN]

Estimado...

Código asp:

dim fechainicio, dias
FechaInicio = "01/01/2009"
FechaSalida = "03/01/2009"
dias = DateDiff("d", FechaInicio, FechaSalida)
For i = 0 to dias
SQL = "DateAdd("d", i, "& FechaInicio &")"
Response.write (SQL)
Next
 

y me arroja este error en "d":
SQL = "DateAdd("d", i, "& FechaInicio &")"
---------------^
y le quito las comillas y me arroja esto:
DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009)DateAdd(d, i, 01/01/2009)
me imagino que deberia de poner uno debajo del otro y incrementar la fecha
---+---
Nota: para un calendario en ASP y MySQL

[Adler]

Hola

Prueba así. Fijate en las diferencias con como lo hacías

Código asp:

SQL = ""
dim fechainicio, dias
FechaInicio = "01/01/2009"
FechaSalida = "03/01/2009"
dias = DateDiff("d", FechaInicio, FechaSalida)
For i = 0 to dias
SQL = SQL & DateAdd("d", i, FechaInicio) & "<br/>"
Next  
Response.write (SQL)
 

Suerte

[RucarMaN]

Hermano logre hacer la sentecia...
la tengo asi:

Código asp:

FechaInicio = Request.Form("FechaInicio")
FechaSalida = Request.Form("FechaSalida")
dias = DateDiff("d", FechaInicio, FechaSalida)
 
dia = day(FechaInicio)
mes = month(FechaInicio)
anio = year(FechaInicio)
FechaInicio = anio & "-" & mes & "-" & dia
 
dia = day(FechaSalida)
mes = month(FechaSalida)
anio = year(FechaSalida)
FechaSalida = anio & "-" & mes & "-" & dia
 
For i = 0 to dias
SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DateAdd("d", i, FechaInicio) &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
'Conn.Execute(SQL)
Response.Write SQL
Next
 

pero estoy usando ASP y MySQL y me da error en la fecha:

Código asp:

INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','07/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','08/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','09/07/2009','1','1','Pemo','2009-7-7')INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('1847548191','1017','10/07/2009','1','1','Pemo','2009-7-7')
 

y tengo una varible para modificarlar 2009-07-06 pero en la sentencia entra asi: 06/07/2009...........

[Adler]

Hola

Un poco de lectura

Suerte

[RucarMaN]

Estimado Adler Gracias muchas Gracias... logre resolver.
el campo DiaCupo en la BD MySQL lo deje como Varchar,12 y cuando llamo este registro lo combierto el fecha con CDATE(DiaCupo) para la busqueda de fecha...

pero me faltaria algo?
Que el primer dia en un campo me lo registre 1 y los demas en 0
Ej: si escojo 01/01/2009 hasta 10/01/2009 que el pirmer dia 01/01/2009 introdusca una data de 1 y los demas dias 0 (02/01/2009 >>>10/01/2009)

[Adler]

Hola

Entre el ciclo y el insert hace una condicional

Código asp:

if i <> 0 then valor = 0 else valor = 1
 

Suerte

[RucarMaN]

Gracias estimado... toda va saliendo bien... faltan algunas cositas pero... voy a descansarun poco... Saludos y pendiente