My Visual Database — Загрузка изображения из БД

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

null@example.com (Новичок) — Tue, 11 Mar 2025 14:37:54 +0000

k245 wrote:

Новичок wrote:
Может есть другие варианты как с помощью SQL загрузить изображение из базы данных?!?!
Ваш вариант оптимальный - простой и понятный метод:
Form2.DBImage1.LoadFromDatabase('work', 'img', Form1.TableGrid1.dbItemID);
Ещё есть функция сохранения данных (в том числе - изображений) в файл:
SaveFileFromDataBase - https://myvisualdatabase.com/forum/sear … =287649012

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

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

null@example.com (k245) — Tue, 11 Mar 2025 11:42:54 +0000

Новичок wrote:

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

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

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

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

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

null@example.com (Новичок) — Mon, 10 Mar 2025 14:08:17 +0000

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

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

null@example.com (Новичок) — Mon, 10 Mar 2025 14:05:28 +0000

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

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

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

null@example.com (k245) — Mon, 10 Mar 2025 13:24:21 +0000

Для 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

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

null@example.com (Новичок) — Fri, 07 Mar 2025 17:07:58 +0000

Во так получилось...
Есть какие нибудь предложения как облегчить код?
Как отобразить дату в 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;

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

null@example.com (Новичок) — Fri, 07 Mar 2025 15:53:51 +0000

k245 wrote:

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

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

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

null@example.com (k245) — Fri, 07 Mar 2025 13:37:12 +0000

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

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

null@example.com (Новичок) — Fri, 07 Mar 2025 09:57:00 +0000

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