No puedo ingresar datos en una bd

alf555 · #1 (**permalink**) 19/02/2002, 01:36

Al intentar introducir datos en una tabla mediante un formulario me dice lo siguiente:
la base de datos o el objeto es solo de lectura
a que se debe eso?(ya he mirado las propiedades del archivo de access y eso esta bien
Os pongo el código(el error me lo da en la linea del update):
<%@ LANGUAGE="VBSCRIPT" %>
<%
Const adOpenKeyset = 1
Const adLockOptimistic = 3
d1=request.form("Dato1")
d2=request.form("Dato2")
d3=request.form("Dato3")
%>
<html>
<head>
<title>Ingreso de Datos</title>
</head>
<body>
<%
Set Conn=Server.CreateObject("adodb.connection&qu ot;)
Conn.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("correo.mdb")
Set rs=server.CreateObject("adodb.recordset" )
rs.CursorType = adOpenKeyset
rs.LockType = adLockOptimistic
rs.open "Tabla1", conn
rs.addnew
rs("Nombre") = Request("d1")
rs("Apellido") = Request("d2")
rs("Email") = Request("d3")
rs.Update
rs.Close
Conn.Close
response.redirect"listado.asp"
%>
</body>
</html>

urjose · #2 (**permalink**) 19/02/2002, 01:38

hi,

lo mismo me pregunte hace menos de una semana y no lo pude resolver bueno al menos no como estaba trabajando te recomiendo que mejor hagas lo siguiente, así lo solucione yo

SQL="Insert Into tabla....."
Set rs=Conn.Execute(SQL)

espero que lo puedas hacer asi ya que yo asi lo solucione

saludos :) ;)

alf555 · #3 (**permalink**) 20/02/2002, 01:37

gracias, pero donde pones los puntos suspensivos .... q debería ir???
esq toy empezando, y no se q poner ahi

urjose · #4 (**permalink**) 20/02/2002, 01:45

oks vamonos por partes para empezar algo importante si tus campos son cadenas de texto deben de ir entre ' si son numericos no llevan el ' ok?

aqui vamos

recoges todo el formulario

Localidad=Trim(request.Form("Localidad") )
.
.
.
.

Sql="INSERT INTO Apartamentos(IdApartamento,Nombre,Tipo,Direccion,L ocalidad,Ciudad,Entorno,Condiciones"
Sql= Sql &",Precio,Descuento,Suplemento,PolCancela cion,Dueno) VALUES('"&IdApartamento&"','&quo t;&Nombre&"','"&Tipo&&qu ot;'"
Sql=Sql & ",'"&Direccion&"','"&a mp;Localidad&"','"&Ciudad&&q uot;'"
Sql= Sql & ",'"&Entorno&"','"&amp ;Condiciones&"',"&Precio
Sql= Sql & ",'"&Descuento&"',"&am p;Suplemento&",'"&PolCancelacion &"'"
Sql= Sql & ",'"&Dueno&"')"

en la primera parte nombro los campos que tengo en mi tabla y despues de "values" ingreso el valor de las variables
fijate que hay unas que no llevan el ' ya que en mi bd esos campos los tengo declarados como numericos

despues de esto pones algo asi

Set Rs=Conn.Execute(SQL)

espero haber sido un poquitin claro

saludos :) ;)