Ver Mensaje Individual
  #1 (permalink)  
Antiguo 04/08/2004, 15:49
Ana Alda
 
Fecha de Ingreso: julio-2004
Mensajes: 27
Antigüedad: 20 años, 9 meses
Puntos: 0
Pregunta Insertar Datos en Tablas Relacionadas

hola a todos

tengo una duda no se como insertar datos a dos tablas distintas pero relacionadas desde un solo formulario html.

miren tengo las tres tablas con los guientes campos:

Usuarios: Privilegios: Documentos:

- Clave - Usuario - Nombre
- Usuario - Nombre - Texto (tipo memo)
- Password
- Password2

pero la tabla en las que quiero insertar datos es en la de Privilegios y Usuarios, ya que estas dos estan relacionadas en la tabla de Privilegios, para asi poder dar privilegios a mis usuarios, y asi ellos puedan ver los documentos correspondientes a cada uno, que estan dentro de la tabla Documentos.

estos privilegios se dan desde que el usuario insertar su numero de usuario su password y elegie el nombre del documento (nombre del documentos desde un combo).

este es el codigo:

<html>
<head><title>AxS Tracker</title></head>
<body background="imagenes/fondo.jpg" bgcolor="#000099">
<font color="#99ccff">
<%
Dim Clave, Usuario, Password, Password2, oConn, Sql, Sql2, Sql3, Nombre

Clave = Trim(Session("Clave")) 'aqui se utiliza la variable
Usuario= request.form("Usuario")
Password= request.form("Password")
Password2= request.form("Password2")
Nombre= request.form("Nombre")
Clave = Replace(Session("Clave"),"'","''")


'Conectamos a nuestra BD.
Set oConn = Server.CreateObject ("ADODB.Connection")
oConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source="& Server.MapPath("CustomersData/DataBase/AxSRegistrar.mdb")
Sql ="SELECT * FROM Usuarios WHERE Clave = '"&Session("Clave")&"'

'sentencia sql para insertar los datos
Sql2="insert into Usuarios (Usuario,Password,Password2) values ('"&Usuario&"','"&Password&"','"&Password2&"' )"
Sql3="insert into Privilegios (Usuario,Nombre) values ('"&Usuario&"','"&Nombre&"' )"

oConn.Execute(Sql2, Sql3)

response.write("<center> <h3> Se ha guardado el registro <br> <a href='Consulta2.asp'> regresar </a> </h3> </center>")
oConn.Close
Set oConn=Nothing
%>
</font>
</body>
</html>

esto es valido

espero y me puedan entender ya que es un poco complicado explicarles, muchas gracias por su ayuda

Última edición por Ana Alda; 04/08/2004 a las 15:52