
Tipo de error:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
El controlador ODBC no admite las propiedades solicitadas.
/pagina2.asp, línea 25
La linea 25 es esta: RS.Open sql, oConn, 1,1
Al que me pueda ayudar gracias...
| |||
Login de usuario mediante .mdb Hola les cuento estoy "tratando" de hacer un login de usuario en asp conectado ocn una base de datos de access pero me da el siguiente error ![]() Tipo de error: Microsoft OLE DB Provider for ODBC Drivers (0x80040E21) El controlador ODBC no admite las propiedades solicitadas. /pagina2.asp, línea 25 La linea 25 es esta: RS.Open sql, oConn, 1,1 Al que me pueda ayudar gracias... |
| |||
Re: Login de usuario mediante .mdb Se me olvidaba el codigo es el sgte: <% 'Primero nos fijamos si ambos campos fueron completados. 'Si no se cumple, redireccionamos a pagina1.asp If Request.Form("usuario") = "" OR Request.Form("password") = "" then Response.Redirect "pagina1.asp" Else Dim usuario, password, oConn, RS 'Guardamos los datos del Form en variables. usuario = Trim(Request.Form("usuario")) password = Trim(Request.Form("password")) 'Conectamos a nuestra BD. Set oConn = Server.CreateObject ("ADODB.Connection") Set RS = Server.CreateObject ("ADODB.RecordSet") oConn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("password.mdb") 'Seleccionamos de la tabla solo los registros que concuerden con el usuario del Form. sql = "SELECT * FROM prueba WHERE usuario='"&usuario&"'" RS.Open sql, oConn, 1, 1 'Si el valor EOF (fin de la tabla elegida) es verdadero, no existe el usuario. If RS.EOF = True then Response.Write "<BR>Ese usuario no existe" 'Si el campo de la tabla es igual a nuestra variable, estas logueado. ElseIf RS.Fields("password") = password then Response.Write "<BR>Te logueaste con exito... Bienvenido <B>"& usuario &"</B>" 'Otra cosa, seria cuando el password no es la que seleccionamos. Else Response.Write "<BR>Esa contraseña no concuerda con el usuario ingresado" End If 'Limpiamos y cerramos. RS.Close oConn.Close Set RS = Nothing Set oConn = Nothing End If %> |