| Usuario |
Ayuda con SQL URGENTE |
mdurzua
2 Mensaje(s)
|
| Enviado - 30/4/2003 |
| |
Tengo problemas con una SQL que estoy haciendo, el problema es que me modifica la informacion de toda la tablay 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) & "'"
Se que el problema esta en el where pero como no se SQL es por eso que acudo a ustedes
|
| |
|
Oro_58
1 Mensaje(s)
|
| Enviado - 1/5/2003 |
| |
Creo que ya detecte cual es el error,
en las dos ultimas lineas esta la falla
Este es el texto original
Sql = Sql & "Secreduc.Terreno1 = '" & Terre & ""
Sql = Sql & " Where Secreduc.Nservicio = " & Val(NServicio.Text) & "'"
observa que estas utilizando un apostrofo ['] en la primer linea, despues del signo igual pero no lo estas cerrando sino hasta el final de la segunda linea, esto hace que al dato que pueda contener la variable Terre se le agrege literalmente el texto siguiente "Where Secreduc.Nservicio = "
cada vez que tengas un problema similar te sugiero que detengas el programa inmediatamente despues de que hallas generado la sentencia SQL la imprimas en el Debug y la copies a tu manejador de base de datos para ejecutar la instruccion, de esta manera el MBD te indicara en donde esta el error, al menos yo asi le hago y funciona.
Espero que te sirva y si tienes alguna duda al respecto escribeme a [email protected] |
| |
|
|
|
Microsoft Certified