Insertar registros

jaime
12 de Mayo del 2003
Tengo una pgina que se entra con nombre y contrasea, lo comprueba de una base de datos donde aparece nombre, contrasea, nombre de la persona y empresa.

Al introducir el nombre y contrasea crea un registro en otra tabla de la misma bd con la hora, nombre y contrasea.

El problema es que yo, lo que quiero ver en esos registros es el nombre del usuario y la empresa. Quiero que consulte en la base de datos el nombre y password y cree un registro con el nombre y empresa. No si se entiende.

Lo he probado poniendo esto y me aparece en blanco el nombre y empresa:

rs.AddNew
rs("Usuario") = usuario
rs("Password") = password
rs("Nombre") = nombre
rs("Empresa") = empresa
rs("Id") = Now
rs.Update

La base de datos consta de una tabla donde aparecen los datos (se llama "datos") y otra tabla "registros"

Por favor ayuda!!!!!!!!!!


Santos Pairazam?
12 de Mayo del 2003
Tu primer select debe traer todos los datos es decir Nombre, Password, NombrePersona,Empresa con esto :

select * from tutabla

si password=trim(turecordset("Password") y password=trim(turecordset("Nombre")
' codigo para insertar en new tabla
puedese cerrar tu recordset y realizar tu Update

Const adOpenKeyset = 1
Const adLockOptimistic = 3
OtroRs.CursorType = adOpenKeyset
OtroRs.LockType = adLockOptimistic
OtroRs.open "TuNuevaTabla",TuConexion
OtroRs.addnew
OtroRs("NombrePersona")=rs("NombrePersona")
OtroRs("Empresa")=rs("Empresa")
OtroRs("Hora")=Now
OtroRs.update
OtroRs.close

RS es tu Primer recorset que trae todos tus datos y OtroRS es el que se crea para insertar los datos en una nueva Tabla

Espero esto te ayude
Lima - Perù