Foros del Web

Foros del Web (http://www.forosdelweb.com/)
-   ASP Clásico (http://www.forosdelweb.com/f15/)
-   -   No se como...? (http://www.forosdelweb.com/f15/no-como-715243/)

RucarMaN 02/07/2009 16:46
No se como...?
 
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..:neurotico
osea realizar la cantida de registro segun los dias...

JuanRAPerez 02/07/2009 20:08
Respuesta: No se como...?
 
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 03/07/2009 13:15
Respuesta: No se como...?
 
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 03/07/2009 13:30
Respuesta: No se como...?
 
Hola

El número de días que te de con la función DateDiff, JuanRa:arriba:, 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 03/07/2009 16:20
Respuesta: No se como...?
 
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 04/07/2009 06:03
Respuesta: No se como...?
 
Hola

Algo como esto

Código asp: 
Ver original
  1. FechaIncio = Request.Form("FechaInicio")
  2. FechaSalida = Request.form("FechaSalida")
  3.  
  4. dias = DateDiff(d, FechaInciom, FechaSalida)
  5.  
  6. For i = 0 to UBound(dias)-1
  7. SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DateAdd("d", i, FechaIncio), Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DiaCupo &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
  8. Conn.Execute(SQL)
  9. Response.write (SQL)
  10. Next

Suerte

RucarMaN 04/07/2009 10:51
Respuesta: No se como...?
 
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: 
Ver original
  1. < &#37;FechaIncio = "01/01/2009"
  2. FechaSalida = "05/02/2009"
  3. dias = DateDiff("d", FechaIncio, FechaSalida)
  4. For i = 0 to Ubound(dias)-1
  5. SQL = "DateAdd("d", i, FechaIncio)"
  6. Response.write (SQL)
  7. Next% >

Adler 04/07/2009 12:31
Respuesta: No se como...?
 
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 06/07/2009 13:45
Respuesta: No se como...?
 
Estimado...
Código asp: 
Ver original
  1. dim fechainicio, dias
  2. FechaInicio = "01/01/2009"
  3. FechaSalida = "03/01/2009"
  4. dias = DateDiff("d", FechaInicio, FechaSalida)
  5. For i = 0 to dias
  6. SQL = "DateAdd("d", i, "& FechaInicio &")"
  7. Response.write (SQL)
  8. 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 06/07/2009 14:11
Respuesta: No se como...?
 
Hola

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

Código asp: 
Ver original
  1. SQL = ""
  2. dim fechainicio, dias
  3. FechaInicio = "01/01/2009"
  4. FechaSalida = "03/01/2009"
  5. dias = DateDiff("d", FechaInicio, FechaSalida)
  6. For i = 0 to dias
  7. SQL = SQL & DateAdd("d", i, FechaInicio) & "<br/>"
  8. Next  
  9. Response.write (SQL)

Suerte

RucarMaN 07/07/2009 10:11
Respuesta: No se como...?
 
Hermano logre hacer la sentecia...:aplauso:
la tengo asi:
Código asp: 
Ver original
  1. FechaInicio = Request.Form("FechaInicio")
  2. FechaSalida = Request.Form("FechaSalida")
  3. dias = DateDiff("d", FechaInicio, FechaSalida)
  4.  
  5. dia = day(FechaInicio)
  6. mes = month(FechaInicio)
  7. anio = year(FechaInicio)
  8. FechaInicio = anio & "-" & mes & "-" & dia
  9.  
  10. dia = day(FechaSalida)
  11. mes = month(FechaSalida)
  12. anio = year(FechaSalida)
  13. FechaSalida = anio & "-" & mes & "-" & dia
  14.  
  15. For i = 0 to dias
  16. SQL = "INSERT INTO ControlCupo (Cliente, Vehiculo, DiaCupo, Linea, Puesto, Usuario, Data) VALUES ('"& IDCliente &"','"& Placa &"','"& DateAdd("d", i, FechaInicio) &"','"& Linea &"','"& Puesto &"','"& Usuario &"','"& FechaActual &"')"
  17. 'Conn.Execute(SQL)
  18. Response.Write SQL
  19. Next
pero estoy usando ASP y MySQL y me da error en la fecha:
Código asp: 
Ver original
  1. 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...........:neurotico:neurotico:neurotico

Adler 07/07/2009 14:09
Respuesta: No se como...?
 
Hola

Un poco de lectura

Suerte

RucarMaN 08/07/2009 06:43
Respuesta: No se como...?
 
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...:aplauso::aplauso::aplauso:

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)
:borracho::'(:abajo:

Adler 08/07/2009 06:56
Respuesta: No se como...?
 
Hola

Entre el ciclo y el insert hace una condicional

Código asp: 
Ver original
  1. if i <> 0 then valor = 0 else valor = 1

Suerte

RucarMaN 08/07/2009 18:34
Respuesta: No se como...?
 
Gracias estimado... toda va saliendo bien... faltan algunas cositas pero... voy a descansarun poco... Saludos y pendiente


La zona horaria es GMT -6. Ahora son las 13:06.

Desarrollado por vBulletin® Versión 3.8.7
Derechos de Autor ©2000 - 2026, Jelsoft Enterprises Ltd.