09/06/2002, 20:51
|
| | | Fecha de Ingreso: enero-2002
Mensajes: 57
Antigüedad: 23 años, 3 meses Puntos: 0 | |
| PROBLEMA "EXCEPCION"
Estoy haciendo una aplicacion que trabaja con dos bases de datos una que checa el nombre de usuario y otra que desplega los datos cuando ha sido validada de la anterior el problema es que tengo un formulario donde el cliente por medio de unos select pone el dia , mes y año que quiere para sacar la nota esto lo mando por request.form separados y uno asi:
FECHA = Request.Form("Dia") & "/" & Request.Form("Mes") & "/" & Request.Form("Ano")
que me da como resultado 26/08/02 pero a la hora de hacer una consulta asi:
SQL1 = "SELECT * FROM NOTCRED WHERE Cliente = '" & CLIENTE & "' AND "
SQL1 = SQL1 & "fecha = '" & FECHA & "'"
Set Rs1 = Base1.Execute(SQL1)
AL imprimir los datos me sale
error '80020009'
Ocurrió una excepción.
/version2/notas.asp, line 43
OJALA ALGUIEN PUEDA AYUDARME YA ESTUBE INTENTANDO PERO NO LO HE LOGRADO SIN EN CAMBIO SI PONGO DIRECTAMENTE
Dim FECHA
FECHA = "26/08/02"
si jala perfecto esto quiere decir que el problema esta en la union de la fecha.
aqui les pongo todo el codigo a ver si por ahi hay otro problema que este ocacionando esto yo la verdad no encontre otro.
<HTML>
<HEAD>
<link href="Estilo.css" rel="stylesheet">
<TITLE>Notas de Credito</TITLE>
</HEAD>
<BODY BGCOLOR=#FFFFFF>
<%
Dim Base, SQL, Rs
Dim CLIENTE,CLAVE
CLIENTE = Request.Form("Cliente")
CLAVE = Request.Form("Clave")
Set Base = Server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Base.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("cliente.mdb")
SQL ="SELECT * FROM Clientes WHERE Cliente = '" & CLIENTE & "' AND "
SQL = SQL & "Clave = '" & CLAVE & "'"
Set Rs = Base.Execute(SQL)
If Rs.Eof Then
Response.write("<FONT COLOR=#000000><h1>La Clave no concuerda.</h1></FONT>")
Response.write("<TT Class=Datos>Por favor vuelva a interntarlo.<BR>(Para regresar de un click en el boton ""ATRAS"" de su explorador.)")
Response.Write("<p><A HREF=""recuperar.asp"">< TT Class=Azul> |