Conexion ODBC ???No puedo insertar DATOS en ACCESS

cyberleon · #1 (**permalink**) 06/11/2004, 05:01

como puedo hacerlo,,
necesito insertar dato en una base de datos ACCESS y aun no he podido,,que es lo que te ngo mal..????

ayudenme porfavor

<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<%
Dim miconexion, micomando
Set miconexion = Server.CreateObject("adodb.connection")
miconexion.ConnectionString = "DSN=servicios"
miconexion.Open
Set micomando = Server.CreateObject("adodb.command")
micomando.ActiveConnection = miconexion
stql = "INSERT INTO clientes (rut,nombre,estado) VALUE ('11','123','1234')"
micomando.Execute (stql)
%>
<body>
</body>
</html>

Trulala de cordoba · #2 (**permalink**) 06/11/2004, 08:41

Para guia, deberias publicar el error que tenes.
Te sale algun aviso en la pagina? si te sale pegalo aca asi lo vemos
Suerte

cyberleon · #3 (**permalink**) 06/11/2004, 11:46

[img]res://C:WINDOWSsystem32shdoclc.dll/pagerror.gif[/img]No se puede mostrar la página

Hay un problema con la página solicitada y no puede ser mostrada..Pruebe lo siguiente:

<LI id=instructionsText1>Abra la página principal de Homepage(); localhost y busque vínculos a la información que desea. <LI id=instructionsText2>Haga clic en el botón [img]res://C:WINDOWSsystem32shdoclc.dll/refresh.gif[/img] Actualizar o vuelva a intentarlo más tarde.
<LI id=instructionsText3>Haga clic en [img]res://C:WINDOWSsystem32shdoclc.dll/search.gif[/img] Búsqueda para buscar información en Internet.
También puede ver http://<font color="#ff0000">una lis...onados.</font>

HTTP 500 - Error interno del servidor
Internet Explorer

Eso envia..no encuentra nada..
y el ODBC tiene bien configurada la Base de Datos...ya que con consultas me resulta bien...

Mi pregunta es ESTA BIEN ESCRITA LA INSERCION??????
segundo, ta correrta la forma que estoy ocupando en general????

Muzztein · #4 (**permalink**) 06/11/2004, 12:00

stql = "INSERT INTO clientes (rut,nombre,estado) VALUESSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSS ('11','123','1234')"

te falta la S en values

cyberleon · #5 (**permalink**) 06/11/2004, 13:01

pero no pasa nada....no es ese el problema..
no entiendo que pueda ser?

Muzztein · #6 (**permalink**) 06/11/2004, 13:59

bueno... entonces tenias mas de un problema.

jejeje =P

tork · #7 (**permalink**) 06/11/2004, 14:44

Yo te recomendaría que mejor copies el código siguiente, y en negritas estará lo que debas acomodar para tu web:

<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
' Configura aquí tu db
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db_1.mdb"))
strSQL = "select nombre from usuarios where nombre = '"& Request.Form("nombre") &"'"
Set objRS = oConn.Execute(strSQL)
if (objRS.Eof) then
strSQL = "insert into usuarios (nombre, clave, usuario) values ('"& Request.Form("nombre") & "' , '"& Request.Form("clave") & "' , '"& Request.Form("usuario") & "')" oConn.Execute(strSQL)
Response.Redirect("login.asp")
else
Response.Write("Ya existe un usuario con ese nombre, vuelva al <a href=form.asp>formulario</a>")
end if
%>

En tu formulario deberás tener lo que es nombre, usuario y clave...igualmente en tu base de datos...Espero que te sirva!

cyberleon · #8 (**permalink**) 06/11/2004, 15:09

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>

</head>
<%
Dim oConn
Set oConn = Server.CreateObject("ADODB.Connection")
' Configura aquí tu db
oConn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("servicios.mdb"))
strSQL = "select rut,nombre,estado from clientes where rut = '"& Request.Form("rut") &"'"
Set objRS = oConn.Execute(strSQL)
if (objRS.Eof) then
strSQL = "insert into clientes (rut, nombre, estado) values ('"& Request.Form("rut") & "' , '"& Request.Form("nombre") & "' , '"& Request.Form("estado") & "')"
oConn.Execute(strSQL)
Response.Redirect("index.asp")
else
Response.Write("Ya existe un usuario con ese nombre, vuelva al <a href=a.htmls>formulario</a>")
end if
%>
<body>
</body>
</html>

***pero aun no me funciona
y le di permisos solo de lectura y escritura a la carpeta wwwroot
pero aun no pasa nada!!!
que sera

cyberleon · #9 (**permalink**) 06/11/2004, 15:12

arregle el BODY porsiacaso!!!

cyberleon · #10 (**permalink**) 06/11/2004, 15:19

Ya existe un usuario con ese nombre <<<---
la Consulta la HACE pero No la INSERTA NADA??
porque sera.

cyberleon · #11 (**permalink**) 06/11/2004, 16:11

ayudenme please!!!

tork · #12 (**permalink**) 06/11/2004, 20:38

Ok...pon el codigo que usas en el formulario de Registro!!!!

cyberleon · #13 (**permalink**) 06/11/2004, 21:09

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>

</head>
<body>
<%
Dim oConn
set conexion = Server.Createobject("adodb.connection")
conexion.open "prueba"
strSQL = "insert into clientes (rut, nombre, estado) values ('chanchi', 'hermosa', 'linda')"
set rs = conexion.Execute(strSQL)

%>

</body>
</html>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<title>Documento sin título</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>
<form name="form" method="post" action="prueba2.asp">
<p>
<input name="rut" type="text" id="rut">
</p>
<p>
<input name="nombre" type="text" id="nombre">
</p>
<p>
<input name="estado" type="radio" value="ok">
OK
<input name="estado" type="radio" value="no ok">
NO OK
</p>
<p>
<input type="submit" name="Submit" value="Enviar">
</p>
</form>
</body>
</html>

Presenta problemas que no inserta datos a la tabla...solo hace consultas...

Muzztein · #14 (**permalink**) 07/11/2004, 09:51

Cita:

Iniciado por cyberleon

Ya existe un usuario con ese nombre <<<---
la Consulta la HACE pero No la INSERTA NADA??
porque sera.

no entiendo mucho tu drama, pero...estas tratando de insertar un usuario que ya existe ?????

si es asi, fijate si es que tienes una llave primaria definida.
si es asi, no vas a poder duplicar ese registro.

tork · #15 (**permalink**) 07/11/2004, 13:14

Está grave tu caso

!