Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/01/2003, 11:47
Avatar de 8461277
8461277
 
Fecha de Ingreso: diciembre-2002
Ubicación: san juan de los morros
Mensajes: 887
Antigüedad: 22 años, 5 meses
Puntos: 1
Al modificar registro me pasa.....

Hola amigos

Tengo un bd en acces y cuando modifico un registro de dicga base me modifica todos los registros, que pasa solo debe modificar uno(el de campo cedula) ya que es este que diferencia a que registro pertenece cada usuario, y a partir de aqui modificar su nombre y apellido. Le dejo el codigo de modificar a ver si hay un error:
<html>
<body>
<%
'Declaracion de variables
Dim Obj_Conn
Dim Obj_RS
Dim Cedula
Dim Nombre
Dim Apellido
Dim strSQL

'Fin declaracion de variables

cedula = Request.Form ("cedula")
nombre = Request.Form ("nombre")
apellido = Request.Form ("apellido")


SET Obj_Conn = Server.CreateObject("ADODB.Connection")

Obj_Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=C:\inetpub\asp\cliente.mdb;"

'Suponiendo que la Tabla se llamada clientes y el campo cedula, comprobamos que la persona existe.
strSQL = "select cedula, nombre, apellido from clientes where cedula like '%"&ccedula&"%'"
SET Obj_RS = Obj_Conn.Execute(strSQL)

IF NOT Obj_RS.EOF THEN
' Usuario correcto, actualizar datos.
strSQL = "update clientes set nombre = '" & nombre & "', apellido = '" & apellido & "' where cedula like '%"&ccedula&"%'"

Obj_Conn.Execute(strSQL)

response.write "Los datos del alumno se han actualizado correctamente"

ELSE

response.write "El usuario no existe en la base de datos"

END IF


Obj_RS.Close
Obj_Conn.Close
SET Obj_RS = Nothing
SET Obj_Conn = Nothing


%>

</body>
</html>


Gracias Miguel los saludas desde venezuela,,,, por favor ayudenme