Agregar datos a más de una tabla

En este artículo veremos cómo agregar datos a más de una tabla utilizando Recorset, en el ejemplo que describiremos a continuación se agregarán 2 registros en cada tabla.

Primero que nada debemos tener en claro que datos vamos a almacenar, para ello crearemos un simple formulario en donde se pediran cuatro datos: nombre, apellido, email y password.

formulario.htm

<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>

agregar.asp

Es la página encargada de procesar el formulario y agregar los registros a las tablas correspondientes:

<%
' 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 "conexionDSN"

' 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
%>

Con el código anterior podrán agregar registros a diferentes tablas utilizando Recordsets.