Ver Mensaje Individual
  #1 (permalink)  
Antiguo 30/04/2003, 17:55
mdurzua
 
Fecha de Ingreso: abril-2003
Mensajes: 6
Antigüedad: 21 años, 7 meses
Puntos: 0
Pregunta Ayuda en SQL urgente

Tengo problemas con una SQL que estoy haciendo,
el problema es que me modifica la informacion de toda la tabla
y no solo del registro que yo quiero, ademas le agregue la opcion WHERE
para que solo me modifique es registro pero no lo hace,
alguien me podria ayudar, aqui envio la SQL , de ante mano muchas gracias

Sql = "UPDATE Secreduc SET Secreduc.Nombres = '" & Nombres.Text & "',"
Sql = Sql & "Secreduc.Apellidos = '" & Apellidos.Text & "',"
Sql = Sql & "Secreduc.Departamento = '" & Depto.Text & "',"
Sql = Sql & "Secreduc.Seccion = '" & Seccion.Text & "',"
Sql = Sql & "Secreduc.Tecnico = '" & Tecnicos.Text & "',"
Sql = Sql & "Secreduc.Marca = '" & Marca.Text & "',"
Sql = Sql & "Secreduc.Modelo = '" & Modelo.Text & "',"
Sql = Sql & "Secreduc.Cpu = '" & Cpu.Text & "',"
Sql = Sql & "Secreduc.Ram = '" & Ram.Text & "',"
Sql = Sql & "Secreduc.Hdd = '" & Hdd.Text & "',"
Sql = Sql & "Secreduc.Computername = '" & ComputerName.Text & "',"
Sql = Sql & "Secreduc.SistOperativo = '" & Sistema.Text & "',"
Sql = Sql & "Secreduc.office = '" & Office.Text & "',"
Sql = Sql & "Secreduc.Rut = '" & Rut.Text & "',"
Sql = Sql & "Secreduc.FechaServicio = '" & CDate(FecSolicitud.Text) & "',"
Sql = Sql & "Secreduc.SopTerreno1 = '" & SopTerre & "',"
Sql = Sql & "Secreduc.SopSistema1 = '" & SopSis & "',"
Sql = Sql & "Secreduc.SopUsuario1 = '" & SopUsu & "',"
Sql = Sql & "Secreduc.InfoServidor1 = '" & InfoSer & "',"
Sql = Sql & "Secreduc.InfoIntranet1 = '" & InfoIntra & "',"
Sql = Sql & "Secreduc.RepSoftware1 = '" & RepSoft & "',"
Sql = Sql & "Secreduc.RepHardware1 = '" & RepHard & "',"
Sql = Sql & "Secreduc.Conectividad1 = '" & Conec & "',"
Sql = Sql & "Secreduc.Telefonica1 = '" & Tele & "',"
Sql = Sql & "Secreduc.Remota1 = '" & Remo & "',"
Sql = Sql & "Secreduc.Observaciones = '" & Observaciones.Text & "',"
Sql = Sql & "Secreduc.Terreno1 = '" & Terre & ""
Sql = Sql & " Where Secreduc.Nservicio = " & Val(NServicio.Text) & "'"