Ayuda en SQL urgente

[mdurzua]

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) & "'"

[Manoloweb]

Que tipo de valores tiene el campo Nservicio, y que tipo de dato trae NServicio.Text?

[Manoloweb]

Parece que te esta fallando una comilla antes de Val(NServicio.Text)

Sql = Sql & " Where Secreduc.Nservicio = '" & Val(NServicio.Text) & "'"


Pruebalo

[Renegado]

Aqui respondi algo mas

http://www.forosdelweb.com/showthrea...hreadid=128290