Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Error Al Modificar (https://www.clubdelphi.com/foros/showthread.php?t=62551)

tebre 31-12-2008 20:12:31

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

coso 31-12-2008 21:34:52

hola, seguramente numeroempleado es un campo numerico, deben ir sin comillas. saludos.

Neftali [Germán.Estévez] 02-01-2009 11:11:39

(1º) Estaría bien que nos dijeras el error que te da. Eso ayudaría a nuestras dotes de adivinación... :D:D

Otro consejo, es que en lugar de tantas comillas (que al final te harás un lío) es que utilices la función QuotedStr, que ya te añade las comillas a una cadena; De esta forma, esta línea:

Código Delphi [-]
Datos.QryEmpleado.SQL.Add('Login=' + '''' + EdMlogin.Text + '''' + ',');

Te quedará así:
Código Delphi [-]
Datos.QryEmpleado.SQL.Add('Login=' + QuotedStr(EdMlogin.Text) + ',');

¿Mejor no? ;) (incluso mejor quedará si usas parámetros, pero eso ya es otro tema...).

javier7ar 02-01-2009 16:32:15

la ultima coma no va, la que esta despues de que actualizas el campo Nivel y antes del Where, por eso el mensaje de error te dice que hay error de sintaxis cerca de la palabra clave Where.

tebre 02-01-2009 17:01:16

problema resuelto
 
bueno pues gracias por los comentarios...el problema era la como gracias amigos


La franja horaria es GMT +2. Ahora son las 17:27:55.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi