Usar UpdateSQL
Hola,
¿alguien puede decirme cómo usar el control UpdateSQL?
Tengo el siguiente código y en el segundo me da error:
//AVISOS
ActAvisos.ModifySQL.Clear;
ActAvisos.ModifySQL.Add('UPDATE Avisos');
ActAvisos.ModifySQL.Add('SET CENTRO = ' + #34 + ComCodCentro.text + #34);
ActAvisos.ModifySQL.Add('WHERE CODRUT = ' + #34 + ComCodRuta.text + #34);
try
ActAvisos.ExecSQL(ukModify);
except
on EDataBaseError do
begin
Application.MessageBox('Error al modificar la tabla Avisos.','Atención', MB_ICONERROR);
Exit;
end;
end;
//BASCULA
ActBascula.ModifySQL.Clear;
ActBascula.ModifySQL.Add('UPDATE Bascula');
ActBascula.ModifySQL.Add('SET CENTRO = ' + #34 + ComCodCentro.text + #34);
ActBascula.ModifySQL.Add('WHERE CODRUT = ' + #34 + ComCodRuta.text + #34);
try
ActBascula.ExecSQL(ukModify);
except
on EDataBaseError do
begin
Application.MessageBox('Error al modificar la tabla Bascula.','Atención', MB_ICONERROR);
Exit;
end;
end;
GRACIAS
|