Ayuda para actualizar una base de datos!!!!!!!

dan141 · #1 (**permalink**) 27/03/2004, 15:55

Estoy tratando de hacer una actualizacion de una base de datos...y me da error...Estas son los codigos

1- para conseguir la info:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
<FORM ACTION="pag2.asp" METHOD="post"><BR>
<B>Usuario:</B> <INPUT NAME="usuario" SIZE="12"><BR>
<B>Contraseña:</B> <INPUT NAME="password" SIZE="12"><BR><BR>
<INPUT TYPE="Submit" VALUE="Ingresar">
</FORM>
<body>
</body>
</html>

2- el codigo para la actualizacion

<%
Dim oConn, usuario, password
'capturamos la informacion que viene de algún formulario...
usuario = Request.Form("usuario")
password = Request.Form("password")
'hacemos toda la conexion a la BD.
Set conexion = Server.CreateObject("ADODB.Connection")
files = server.MapPath("basedatos.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"
'Hago el INSERT, creando un nuevo registro.
oConn.Execute "INSERT INTO Tabla1 (usuario,password) VALUES ('" + Request.Form("usuario") + "','" + Request.Form("password") + "')"
Response.Write("Se ha agregado el registro con exito.")
oConn.Close
Set oConn = nothing
%>

Me da el error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A01A8)
Se requiere un objeto: ''
/pag2.asp, línea 11

cayo · #2 (**permalink**) 27/03/2004, 18:30

para empezar la la etiqueta body no debe ir alli, despues de /head.

u_goldman · #3 (**permalink**) 27/03/2004, 18:30

Viéndolo rápidamente pues estás mal en tus objetos de tipo conexión

Set conexion = Server.CreateObject("ADODB.Connection")
files = server.MapPath("basedatos.mdb")
conexion.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & files & ";Persist Security Info=False"
'Hago el INSERT, creando un nuevo registro.
oConn .Execute "INSERT INTO Tabla1 (usuario,password) VALUES ('" + Request.Form("usuario") + "','" + Request.Form("password") + "')"
Response.Write("Se ha agregado el registro con exito.")
oConn.Close
Set oConn = nothing

Estás creando como objeto conexión uno llamado conexion, sin embargo tratas de utilizar con el método execute a oConn, que si bien está dimensionado, no está instanciado como objeto...es decir, debes ponerle un solo nombre, o todo se llama conexion o todo se llama oConn.

Salu2,

dan141 · #4 (**permalink**) 28/03/2004, 00:43

gracias por la rapida respuesta...pero sigue sin funcionar! Asi quedo reparado;

<%
Dim usuario, password, oConn
'capturamos la informacion que viene de algún formulario... '
usuario = Request.Form("usuario")
password = Request.Form("password")
'hacemos toda la conexion a la BD. '
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("/basedatos.mdb")
oConn.Execute "INSERT INTO Tabla1 (usuario,password) VALUES ('" & usuario & "','" & password & "')"
Response.Write("Se ha agregado el registro con exito.")
oConn.Close
Set oConn = nothing
%>

Y ahora tira el siguiete error
Tipo de error:
Microsoft JET Database Engine (0x80040E14)
Error de sintaxis en la instrucción INSERT INTO.
/pag2.asp, línea 9

u_goldman · #5 (**permalink**) 28/03/2004, 11:02

oConn.Execute "INSERT INTO Tabla1 (usuario,password) VALUES ('" & usuario & "','" & password & "')"

Esta es la sentencia que te está arrojando el error, asegúrate que tengas esa tabla, los campos y que las variables usuario y password no lleguen vacias...

Salu2,