• Registered: 2023-08-19
  • Posts: 95

Topic: Загрузка изображения из БД

Здравствуйте, подскажите пожалуйста, как загрузить изображение с помощью SQL запроса из базы данных, как изменить формат даты (23:59:59)

Post's attachments

Attachment icon SQL_img.zip 457.16 kb, 22 downloads since 2025-03-07 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,643

Re: Загрузка изображения из БД

Записать можно (https://k245.ru/mvdb/fajlovoe-hranilishhe.html) , а прочитать - низя....
Чтение только  скриптовыми командами SaveFileFromDataBase  и SaveFileFromDataBaseToStream. Или с помощью компонента, который вы на форме у себя поставили....

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2023-08-19
  • Posts: 95

Re: Загрузка изображения из БД

k245 wrote:

Записать можно (https://k245.ru/mvdb/fajlovoe-hranilishhe.html) , а прочитать - низя....
Чтение только  скриптовыми командами SaveFileFromDataBase  и SaveFileFromDataBaseToStream. Или с помощью компонента, который вы на форме у себя поставили....

Скорее всего не правильно выразился, как показать изображение из базы данных в DBImage1 и как отобразить дату в label2 в формате дата.месяц.год

4 Reply by Новичок (edited by Новичок 2025-03-07 17:24:14)

  • Registered: 2023-08-19
  • Posts: 95

Re: Загрузка изображения из БД

Во так получилось...
Есть какие нибудь предложения как облегчить код?
Как отобразить дату в Form2.Label2 в формате (30.12.2025)

procedure Form1_Edit1_OnChange (Sender: TObject);
begin
    form1.tablegrid1.dbfilter := 'work.name = "' + Form1.Edit1.Text + '"';
    Form1.TableGrid1.dbUpdate;
end;

procedure Form2_OnClose (Sender: TObject; Action: string);
begin
    Form1.Edit1.Text := '';
    updateDataBase('Work');
    Form1.Edit1.SetFocus;
    Form2.DBImage1.Clear;
end;

procedure Form1_Button1_OnClick (Sender: TObject; var Cancel: boolean);
begin

    if (Form1.Edit1.Text <> '') then
    begin
    Form2.Label1.Caption := SQLExecute('SELECT name FROM work WHERE work.name='''+Form1.Edit1.Text+'''');
    Form2.Label2.Caption := SQLExecute('SELECT date_1 FROM work WHERE work.name='''+Form1.Edit1.Text+'''');
    form1.tablegrid1.selectedrow := 0;
    Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);
    Form2.ShowModal;
    end
    else ShowMessage('Заполните поле');

end;
Post's attachments

Attachment icon SQL_img_1.zip 458.66 kb, 22 downloads since 2025-03-07 

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,643

Re: Загрузка изображения из БД

Для SQLite:

Form2.Label2.Caption := SQLExecute('SELECT STRFTIME(''%d.%m.%Y'',date_1) FROM work WHERE work.name='''+Form1.Edit1.Text+'''');

https://k245.ru/mvdb/funktsii.html

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2023-08-19
  • Posts: 95

Re: Загрузка изображения из БД

k245 wrote:

Для SQLite:

Form2.Label2.Caption := SQLExecute('SELECT STRFTIME(''%d.%m.%Y'',date_1) FROM work WHERE work.name='''+Form1.Edit1.Text+'''');

https://k245.ru/mvdb/funktsii.html

Спасибо, все получилось.

  • Registered: 2023-08-19
  • Posts: 95

Re: Загрузка изображения из БД

Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!

  • k245
  • k245
  • Member
  • Offline
  • From: Deep
  • Registered: 2017-10-12
  • Posts: 1,643

Re: Загрузка изображения из БД

Новичок wrote:

Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!

Ваш вариант оптимальный - простой и понятный метод:

Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);

Ещё есть функция сохранения данных (в том числе - изображений) в файл:
SaveFileFromDataBase - https://myvisualdatabase.com/forum/sear … =287649012

Визуальное программирование: блог и телеграм-канал.

k245's Website

  • Registered: 2023-08-19
  • Posts: 95

Re: Загрузка изображения из БД

k245 wrote:
Новичок wrote:

Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!

Ваш вариант оптимальный - простой и понятный метод:

Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);

Ещё есть функция сохранения данных (в том числе - изображений) в файл:
SaveFileFromDataBase - https://myvisualdatabase.com/forum/sear … =287649012


Спасибо за ответ Вам
Подумаю еще, может выход есть другой...