| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как удалить фотографию из Access
delphoto © (2009-04-22 01:37:00)Написал БД в Delphi 7, использовал базы Access, одно из полей в таблице сделал типа "Поле объекта OLE", для хранения фотографии. Загрузил фотографию, всё работает отлично, теперь хочу её удалить, удалил также без проблем методом clear, но смотрю на размер файла базы данных Access, он не изменился, стал большого размера, фотография там всё ещё хранится, просто не отображается. Подскажите пожалуйста, как можно её оттуда удалить полностью?
delphoto (2009-04-22 17:07:00) [1]MonoLife, спасибо за совет, так и сделаю
MonoLife (2009-04-22 15:27:00) [2]
> delphoto (22.04.09 02:35) [11]
имхо, если позволяет ТЗ, то лучше хранить изображения в виде файлов, а в базе - ссылки на них..
Anatoly Podgoretsky (2009-04-22 07:27:00) [3]> delphoto (22.04.2009 2:35:11) [11]
Ну напиши баг репорт.
Amoeba (2009-04-22 02:41:00) [4]
> delphoto (22.04.09 02:35) [11]
>
>
> > Ну на то она и БД, чтобы грамотно работать с добавлением/удалением
> > данных.
>
> а помоему такую базу данных можно назвать никак иначе, как
> мусорной, которая хранит в себе всякий хлам, который уже
> давно был удалён. И как я понял это не исправить, ошибка
> разработчиков Access, методы хранения данных нужно новые
> придумывать...
Не надо наводить тень на плетень. Ваша гневная тирада отдает ламерством. Все нормальные СУБД, а не только Access, работают именно так, как тебе не нравится. И это как раз правильно. А для удаления т.н. "хлама" предусмотрена операция сжатия.
Германн (2009-04-22 02:38:00) [5]
> delphoto (22.04.09 02:35) [11]
>
>
> > Ну на то она и БД, чтобы грамотно работать с добавлением/удалением
> > данных.
>
> а помоему такую базу данных можно назвать никак иначе, как
> мусорной, которая хранит в себе всякий хлам, который уже
> давно был удалён. И как я понял это не исправить, ошибка
> разработчиков Access, методы хранения данных нужно новые
> придумывать...
Ну. ну :)
Дерзай, если сможешь!
delphoto (2009-04-22 02:35:00) [6]
> Ну на то она и БД, чтобы грамотно работать с добавлением/удалением
> данных.
а помоему такую базу данных можно назвать никак иначе, как мусорной, которая хранит в себе всякий хлам, который уже давно был удалён. И как я понял это не исправить, ошибка разработчиков Access, методы хранения данных нужно новые придумывать...
delphoto (2009-04-22 02:30:00) [7]Попробовал сжать с помощью Access, размер файла уменьшился в 5 раз, с 10Мб до 2Мб, но без фотографии файл занимал 352Кб.
Германн (2009-04-22 02:30:00) [8]
> Как удалить фотографию из Access
>
> delphoto (22.04.09 01:37)
Не надо "ёрзать". Всё и так нормально "удаляется"!
И работа с памятью ведется нормально.
Ну на то она и БД, чтобы грамотно работать с добавлением/удалением данных.
delphoto (2009-04-22 02:21:00) [9]Может быть для удаления нужно использовать не clear, а другой метод?
delphoto (2009-04-22 02:16:00) [10]
> место будет использоваться в дальнейшем
вот и проблема в том, что место в дальнейшем не используется, когда снова загружаю фотографию, то снова добавляется ещё 5Мб и база становится ещё массивнее, удаляю, снова загружаю и снова на 5Мб больше...
Использую MS Access 2003 SP2
Amoeba (2009-04-22 02:07:00) [11]
> как удалить эти 5Мб из самого файла БД?
Очень просто! Выполнив операцию сжатия базы Access.
Вот код из работающей программы:
uses ... , JRO_TLB;
const
SProvider = 'Provider=Microsoft.Jet.OLEDB.4.0; Data Source=';
procedure DataBaseCompact(const sdbName: WideString);
var
sdbTemp: WideString;
JE: TJetEngine;
//Splash: TSplashWindow;
begin
Splash := ShowSplashWindow(Application.Icon, Msg12, False,
Application.MainForm);
//sdbTemp := ExtractFileDir(sdbName) + '\TEMP' + ExtractFileName(sdbName);
sdbTemp := ChangeFileExt(sdbName, '.tmp');
if FileExists(sdbTemp) then
DeleteFile(sdbTemp);
JE := TJetEngine.Create(Application);
try
try
JE.CompactDatabase(SProvider + sdbName, SProvider + sdbTemp);
DeleteFile(sdbName);
RenameFile(sdbTemp, sdbName);
except
on E: Exception do
ShowMessage(E.Message);
end;
finally
JE.FreeOnRelease;
//Splash.Free;
end;
end;
Чтобы получить в свое распоряжение файл JRO_TLB.pas необходимо будет импортировать библиотеку типов.
sniknik (2009-04-22 02:06:00) [12]зря волнуешься, фотография удалилась, это место из под нее осталось. место будет использоваться в дальнейшем, потому и нет смысла на каждую операцию удаления пережимать базу.
все серьезные базы по такому принципу работают. без исключений. т.что ...
если хочешь сам делай сжатие (см. функции jro), но это не рекомендуемая для частого использования операция (а раз в полгода могут и акцессом сжать).
delphoto (2009-04-22 01:48:00) [13]
> Ну так чего же ещё тебе надобно старче?
фотография не удаляется фактически, она всё равно находится в самом файле базы данных Access, в результате чего размер базы данных резко возрастает, скажем если загрузить фотографию в 5Мб и затем удалить, то размер файла БД увеличится безвозвратно на 5Мб, как удалить эти 5Мб из самого файла БД?
delphoto (2009-04-22 01:47:00) [14]Удалено модератором
delphoto (2009-04-22 01:47:00) [15]Удалено модератором
Германн (2009-04-22 01:42:00) [16]
> Как удалить фотографию из Access
>
> delphoto (22.04.09 01:37)
>
> Написал БД в Delphi 7, использовал базы Access, одно из
> полей в таблице сделал типа "Поле объекта OLE", для хранения
> фотографии. Загрузил фотографию, всё работает отлично, теперь
> хочу её удалить, удалил также без проблем методом clear
Ну так чего же ещё тебе надобно старче?
(с) Золотая Рыбка.
| |
