Problema con Consulta Sql

mc_quake · #1 (**permalink**) 23/01/2006, 14:01

miren tengo una pagina asp la cual genera consultas sql a una base de datos access

esta consulta pide todos los Origenes ingresados en una fecha determinada

la fecha la rescato de un formulario todo eso bin
hago la primera consultas pasandole la fecha 01/01/2006
y me resulta de una
pero cuando retrocedo y pretendo poner otra fecha en el formulario no me muestra nada

aca les va el codigo en caso de que me puedan ayudar

<%
Dim conexion, registros, sql

fechainicio = Request.Form("fechainicio")
if IsDate(fechainicio) then
fechainicio=CDate(fechainicio)
else
fechainicio=""
end if

'response.write fecha
'fecha = #01/01/2006#

Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"

Set registros = Server.CreateObject ("ADODB.RecordSet")

sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_entrada = #"&fechainicio&"# "
registros.Open sql, conexion
ccp = 0
while not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend
registros.Close
Set registros = Nothing

Response.Write "<title>Reportes Diarios</title>"

Response.Write "<center>Reclamos Ingresados por Origen "&Date()&"</center>"

'Sql = "SELECT * FROM Meses WHERE Meses BETWEEN # " & fechainicio & "# AND #"& resultado &"#"
'Y por fin comenzamos a escribir la tabla de resultados
'Primero los nombres de las columnas (el encabezado de la tabla)
Response.Write "<table width=95% border=0 align=left bordercolor=#000000>"
Response.Write "<tr>"
Response.Write "<td width=215>"
Response.Write "<table width=36% border=1 align=center bordercolor=#000000>"
Response.Write "<tr>"
Response.Write "<td bgcolor=#99CCFF><center>Origen </center></td>" & vbCrLf
Response.Write "<td bgcolor=#99CCFF><center>"& Date()&" </center></td>" & vbCrLf

Response.Write "<tr>"

Response.Write "<tr>" & vbCrLf
Response.write "<td bgcolor=#CCCCCC>CCP</td>"
Response.write "<td><center>" & ccp & "</center></td>"

Response.Write "</tr>" & vbCrLf
conexion.close
Set conexion = Nothing
%>

se los agradeceria mucho ya que soy un aprendiz jejejjejejje

Alexis_m20 · #2 (**permalink**) 23/01/2006, 14:25

seguro que lo muestra vacío??

viene el dato en la fecha o no??

mc_quake · #3 (**permalink**) 23/01/2006, 14:34

mira compadre el dato viene por que lo muestro con un response.write para ver si la variable fecha inicio contiene el valor

si me funciona rebien con la fecha 01/01/2006
que rescato del formulario pero al poner 02/01/2006 hay no me hace nada y me muestra en numero 0 que tiene por defecto la variable ccp

Alexis_m20 · #4 (**permalink**) 23/01/2006, 14:53

Y Has Revisado La Base De Datos Que Tenga Datos Para El Dos De Enero????

mc_quake · #5 (**permalink**) 23/01/2006, 14:56

si compadre tiene hasta el 09-01-2006
no se que hacer

mc_quake · #6 (**permalink**) 23/01/2006, 15:04

compadre ya se lo que pasa lo descubri ahora espero que tu me puedas ayudar lo que sucede es que cuando yo ingreso el numero al formulario yo lo rescato desde la pagina asp con un Request.Form("fechainicio") mejor te pondre el codigo

<%
Dim conexion, registros, sql

fechainicio = Request.Form("fechainicio")
if IsDate(fechainicio) then
fechainicio=CDate(fechainicio)
else
fechainicio=""
end if

function FormateaFecha(fecha)
dia = day(fecha)
mes = Month(fecha)
if len(dia) = 1 then dia="0"&dia
if len(mes) = 1 then mes="0"&mes
FormateaFecha = dia&"-"&mes&"-"&year(fecha)
End function

'response.write fecha

'response.write fechainicio

'FormateaFecha(fechainicio)
Set conexion = Server.CreateObject ("ADODB.Connection")
conexion.Open "DSN=InformeGestion"

Set registros = Server.CreateObject ("ADODB.RecordSet")
fechainicio = FormateaFecha(fechainicio)
response.write fechainicio
sql = "SELECT * FROM InforGestion WHERE Origen = 'CCP' AND Fecha_entrada = #" &FormateaFecha(fechainicio)& "# "

registros.Open sql, conexion

ccp = 0
while not registros.EOF
ccp = ccp + 1
registros.MoveNext
Wend
registros.Close
Set registros = Nothing
conexion.close
Set conexion = Nothing
Response.Write ccp

el problema esta en que cuando consulto la Fecha_entrada = #" &FormateaFecha(fechainicio)& "#
funciona vien solo con la fecha 01/01/2006 ya que el diaa y el mes son iguales
en cambio si pongo para buscar el 02/01/2006 no me muestra nada por que en ves de buscar el 02/01/2006 busca el 01/02/2006 eso lo comprobe cambiado una de las fechas de mi base de datoa a 01/02/2006 y el response.write cpp me dio como resultado 1

dime como soluciono ese problema es urgente compadre