Ver Mensaje Individual
  #1  
Antiguo 31-12-2008
tebre tebre is offline
Miembro
 
Registrado: nov 2008
Posts: 93
Reputación: 18
tebre Va por buen camino
Error Al Modificar

bueno aquie de nuevo..el problema es el siguiente quiero modificar...pero me marco un error.. algo asi la sintaxis de where es incorrecta...quie les dejo el codigo para ver si alguien me puede ayudar diciendome que hago mal...gracias amigos.

Código Delphi [-]
 
if Application.MessageBox('Los datos seran modificados. Esta usted seguro ?','Advertencia', MB_OKCANCEL+MB_ICONWARNING)= mrOK then
Begin
         {Actualización de los datos}
         Datos.QryEmpleado.Active:= False;
         Datos.QryEmpleado.SQL.Clear;
         Datos.QryEmpleado.SQL.Add('UPDATE Empleado SET');
         Datos.QryEmpleado.SQL.Add('Login=' + '''' + EdMlogin.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('Password='  + '''' + EdMpassword.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('Nombre=' + '''' + EdMNombre.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('Appaterno=' + '''' + EdMAppaterno.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('Apmaterno=' + '''' + EdMApmaterno.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('Nivel=' + '''' + EdMNivel.Text + '''' + ',');
         Datos.QryEmpleado.SQL.Add('WHERE NumeroEmpleado=' + '''' + LblClave.caption + '''' + ';');
         Datos.QryEmpleado.ExecSQL;
end
Responder Con Cita