Insertar datos a dos distintas tablas desde el mismo formulario

[Potro]

Hola amigos pues si estoy buscando un ejem,plo en el cual yo pueda con un mismo formulario insertar en dos distintas tablas de una base de datos en ACCESS vi un ejemplo en webexperto pero no me sale ojala y ustedes me puedan ayudar les doy el codigo...

Este es el codigo del html:

<form method="POST" action="agregar.asp">
<p>Nombre <input type="text" name="nombre" size="20"><br>
Apellido <input type="text" name="apellido" size="20"><br>
Email <input type="text" name="email" size="20"><br>
Password <input type="text" name="password" size="20"><br>
<input type="submit" value="Agregar" name="enviar"></p>
</form>

[Potro]

y este es el codigo del agregar.asp

<%
' tomamos los datos del formulario
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
email = Request.Form("email")
password = Request.Form("password")

' creamos la conexion y los 2 recordset
Set Con=Server.CreateObject("ADODB.Connection")

Set RS=Server.CreateObject("ADODB.RecordSet")
Set RS2=Server.CreateObject("ADODB.RecordSet")

Con.Open "gema"

' ejecutamos una consulta para cada recorset
RS.Open "SELECT * FROM Usuarios", Con, adOpenDynamic, adLockPessimistic, adCMDText
RS2.Open "SELECT * FROM UsuariosPassword", Con, adOpenDynamic, adLockPessimistic, adCMDText

' agregamos los datos a la primera tabla
RS.AddNew
RS("nombre")= nombre
RS("apellido")= apellido
RS.Update

' agregamos los datos a la segunda tabla
RS2.AddNew
RS2("email")= email
RS2("password")= password
RS2.Update

' cerramos los objetos y liberamos memoria
RS.Close
RS2.Close
MyConn.Close
Set RS = Nothing
Set RS2 = Nothing
Set MyConn = Nothing
%>




*******************

gema es el nombre de mi DSN y todo esta en la misma carpeta pero cuando trato de insertarlos me marca error..

este es el link

http://www.ameg.org.mx/cgi-bin/news/formulario.htm

ojala me puedan ayudar...

[8461277]

Y donde esta el comando que apunta a la base de datos?

[univercity]

Ok. pruebalo con los cambios que le hize, si no te funciona, lo reviso de nuevo...
no te funciona porque el conflicto lo generas al intentar dos Con, estando uno ya abierto...



<%
' tomamos los datos del formulario
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
email = Request.Form("email")
password = Request.Form("password")

' creamos la conexion y los 2 recordset
Set Con=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")

Con.Open "gema"

' ejecutamos una consulta para cada recorset
RS.Open "SELECT * FROM Usuarios", Con, adOpenDynamic, adLockPessimistic, adCMDText


' agregamos los datos a la primera tabla
RS.AddNew
RS("nombre")= nombre
RS("apellido")= apellido
RS.Update

RS.Close
Set RS = Nothing
con.close




Set Con2=Server.CreateObject("ADODB.Connection")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Con.Open "gema"
RS2.Open "SELECT * FROM UsuariosPassword", Con, adOpenDynamic, adLockPessimistic, adCMDText



' agregamos los datos a la segunda tabla
RS2.AddNew
RS2("email")= email
RS2("password")= password
RS2.Update

' cerramos los objetos y liberamos memoria
RS2.Close
Con2.Close
Set RS2 = Nothing
Set Con2 = Nothing
%>

[univercity]

ahhhh, y a la password en el form colocale type = "password" , para que no te muestre los caracteres...

y buscate un validador de email... pero hay andan codigos...

[Prefontaine]

Set Con=Server.CreateObject("ADODB.Connection")

aquí lo tines, ahora crea la conexion...

Un saludo

[univercity]

de que hablas Prefontaine?????... si la conexion la tiene hecha y esta trabajando con Odbc... Con.Open "gema"

Distinto es con OleDb ahí se escribe el Path...

[Potro]

univercity muchas gracias por contestar pero que te crees que no salio me marca error tambien se rompe la página...

Que estara pasando...

[Myakire]

Coloca +-5 lineas de la linea 15 (que es la que truena), para ver que haces.

[univercity]

Sorry, es que se me olvido arreglar un detalle...

Set Con2=Server.CreateObject("ADODB.Connection")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Con2.Open "gema"
RS2.Open "SELECT * FROM UsuariosPassword", Con2, adOpenDynamic, adLockPessimistic, adCMDText


repara eso y nos cuentas...

[Potro]

ok ,uchas gracias lo pondre a ver que pasa les cuento al rato...

[Potro]

mmmmmmmmmmmmmm pues que se creen que nop...

Este es el codigo que actualmente tengo...


<%
' tomamos los datos del formulario
nombre = Request.Form("nombre")
apellido = Request.Form("apellido")
email = Request.Form("email")
password = Request.Form("password")

' creamos la conexion y los 2 recordset
Set Con=Server.CreateObject("ADODB.Connection")
Set RS=Server.CreateObject("ADODB.RecordSet")

Con.Open "gema"

' ejecutamos una consulta para cada recorset
RS.Open "SELECT * FROM Usuarios", Con, adOpenDynamic, adLockPessimistic, adCMDText


' agregamos los datos a la primera tabla
RS.AddNew
RS("nombre")= nombre
RS("apellido")= apellido
RS.Update

RS.Close
Set RS = Nothing
con.close


Set Con2=Server.CreateObject("ADODB.Connection")
Set RS2=Server.CreateObject("ADODB.RecordSet")
Con2.Open "gema"
RS2.Open "SELECT * FROM UsuariosPassword", Con2, adOpenDynamic, adLockPessimistic, adCMDText


' agregamos los datos a la segunda tabla
RS2.AddNew
RS2("email")= email
RS2("password")= password
RS2.Update

' cerramos los objetos y liberamos memoria
RS2.Close
Con2.Close
Set RS2 = Nothing
Set Con2 = Nothing
%>


--------------------------------
en que ando mal ayudenme... me serviria mucho este ejercicio....

[univercity]

y que error te dio...????

[univercity]

Sqltext2 ="SELECT * FROM UsuariosPassword"

RS2.open Sqltext2,Con2,3,3

cambia ambas conexiones para que te queden de esta manera, haz que la primera te quede igual a esta.



si aun asi te da error sacale los Con, Con2

Sqltext2 ="SELECT * FROM UsuariosPassword"

RS2.open Sqltext2,3,3