Ver Mensaje Individual
  #3 (permalink)  
Antiguo 12/03/2007, 08:37
antonio020784
 
Fecha de Ingreso: marzo-2007
Mensajes: 8
Antigüedad: 18 años, 1 mes
Puntos: 0
Pregunta Re: Ayuda con Guardar,Modificar,Eliminar datos de una base de datos

Lo que yo quiero hacer es Guardar registros desde un formulario a mi base de datos, como tambien quiero modificar datos de mi base de datos y tambien en un formulario y lo ultimo es tratar de eliminar los registros asociados a un rut, borrar todos los campos q lo componen

yo tengo este codigo pero no me funciona nada.

<%
dim rut
dim nombre
dim clave
dim perfil
dim sucursal

rut=request.form("text1")
nombre=request.form("text2")
clave=request.form("text3")
perfil=request.form("text4")
sucursal=request.form("text5")

function Ingreso(rut,nombre,clave,perfil,sucursal)
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3

Dim cnn, rcs, SQL
set cnn=Server.CreateObject("ADODB.Connection")
set rcs=Server.CreateObject("ADODB.Recordset")
cnn.Open "driver={SQL Server};server=EFUENTES; database=Osiris; uid=sa;pwd="

rcs.CursorType=adopenkeyset
rcs.LockType = adLockOptimistic


SQL=" insert into usuarios(per_rutper,per_nombre,cep_contra,pep_codp er,GlsSucursal)values('" & rut & "', '" & nombre & "', '" & clave & "', '" & perfil & "', '" & sucursal & "');"
rcs.Open SQL,cnn

'necesito validar para q no ingrese un rut duplicado

rcs.AddNew
rcs("per_rutper")=rut
rcs("per_nombre")=nombre
rcs("cep_contra")=clave
rcs("pep_codper")=perfil
rcs("GlsSucursal")=sucursal
rcs.Update
rcs.Close
set rcs=nothing
cnn.Close
set cnn=nothing
Response.Write("Los datos fueron bien Guardados")
end function
%>