Por que da error en fechas?

arnage · #1 (**permalink**) 30/07/2002, 09:20

Hola maestros.

Tengo una BBDD en Access a la cual accedo mediante ASP. Al consultar la BBDD y poner en un campo fecha por ejemplo 5/6/2002 me funciona perfectamente, pero sin embargo si pongo 29/7/2002 no me funciona. He probado varias cosas como poner 7/29/2002, cambiar la configuracion regional..., y sigue sin darme el resultado esperado. Alguno de vosotros puede ayudarme?

dagui · #2 (**permalink**) 30/07/2002, 09:37

Creo que deberías colocar el código, por lo menos el de la consulta que e da error.
Mientras tanto, verifica si estás pasando la fecha como se debe en el SQL, si colocas entre comillas simples, así: '29/07/2002'
Y si es una variable, así: '"&varFecha&"'

Suerte.

arnage · #3 (**permalink**) 30/07/2002, 09:44

La cadena sql es la siguiente:

SELECT Fecha, Sum(Cantidad) AS TotCantidad, Sum(Cargo) AS TotCargo FROM Formularios Where Fecha=#" & pFecha & "# GROUP BY Fecha

Pero funciona perfectamente en unas fechas y en otras no.

dagui · #4 (**permalink**) 30/07/2002, 10:37

Disculpa la tardanza.

Aquí te anexo un código de una página de ejemplo, la cual hace lo que tu quieres.
Utilicé tu sentencia SQL y me funciona perfectamente.

<%@ Language=VBScript %>
<%Response.Buffer = true%>
<HTML>
<HEAD>
<%
function buscar(pFecha)
'Variable a utilizar
Dim objCon, strSQL, RS

'Conexión con la base de datos
Set objCon = Server.CreateObject("ADODB.Connection")
objCon.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("archivoDeDatos"))
'Verificando si hay una próxima pregunta
strSQL = "SELECT Fecha, Sum(Cantidad) AS TotCantidad, Sum(Cargo) AS TotCargo FROM Formularios Where Fecha=#" & pFecha & "# GROUP BY Fecha"
Set buscar = objCon.Execute(strSQL)
end function
%>
</HEAD>
<BODY>
<%
Dim RS, v
v = Request.Form("miFecha")
Response.Write("Fecha: " & v)
%>
<form id=form1 name=form1 action="aja.asp" method="post">
Fecha: <INPUT type="text" id="miFecha" name="miFecha"> <br>
<INPUT type="submit" value="Submit" id=submit1 name=submit1><br>
<%
if (v <> "") then
%>
<table BORDER="1" bgcolor="#FFFFFF" bordercolor="#003399">
<b>
<tr bgcolor="#000000">
<td>
<font color="#FFFFFF">
FECHA
</font>
</td>
<td>
<font color="#FFFFFF">
Total Cantidad
</font>
</td>
<td>
<font color="#FFFFFF">
Total Cargo
</font>
</td>
</tr>
</b>
<%
set RS = buscar(v)
while (not RS.Eof)
%>
<tr>
<td>
<font color="#000000">
<%Response.Write(RS("Fecha"))%>
</font>
</td>
<td>
<font color="#000000">
<%Response.Write(RS("TotCantidad"))%& gt;
</font>
</td>
<td>
<font color="#000000">
<%Response.Write(RS("TotCargo"))%& gt;
</font>
</td>
</tr>
<%
RS.MoveNext
wend
end if
%>
</table>
</form id=form1 name=form1>
</BODY>
</HTML>

Me imagino que ya sabes hacerlo, pero igual.
En la conexión a la base de datos, en donde dice archivoDeDatos coloca el nombre de tu base de datos.

Espero te sirva