Добавление двоичных данных в Access

@Dragjj · Регистрация: 26.07.2009

Студворк — интернет-сервис помощи студентам

Всем доброго времени суток.
Начал писать одну программулину с использованием БД Access, возник вопрос, как добавить двоичные данные в поле объекта OLE. При добавлении строк и цифр проблем нет, но не могу понять как добавить картинку. Картинка находится в компоненте Image1->Picture, пробовал следующий код:

C++
1
2
3
4
NMBForm->ADOTable1->Insert();
      NMBForm->ADOTable1->FieldByName("image1")->Value = Image1->Picture;
   NMBForm->ADOTable1->Post();
      Close();

код компилируется без ошибок, но после нажатия на кнопку "Добавить картинку" программа падает и вылетает окно "Stream read error", что я не так делаю? Или может кто подскажет иной способ добавить картинку в БД?

@Sasha · 01.08.2012, 12:45

Для хранения двоичных данных в БД у различных типов СУБД существуют специальные BLOB поля:
Файловые СУБД:
- MS Access - "Поле объекта OLE"
- Paradox 7 (BDE) - "Binary" - общий формат для двоичных данных
- Paradox 7 (BDE) - "Graphics" - формат для хранения изображений
Серверные СУБД:
- MS SQL Server (7.0 - 2005) - "Image"/ "Varbinary"
- Interbase - "BLOB"

Запись в BLOB-поле таблицы:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Query1->SQL->Clear();
Query1->SQL->Text = "INSERT INTO TableName (BlobField) VALUES (:BlobValue)";
// берем из файла
Query1->Params->ParamByName("BlobValue")->LoadFromFile(FileName); 
//
 
//либо берем из потока:
TMemoryStream *stm = new TMemoryStream();
Image1->Picture->Bitmap->SaveToStream(stm); // Image1 лежит на форме и в него уже загружена картинка
stm->Seek(0, 0);
Query1->Params->ParamByName("BlobValue")->LoadFromStream(stm);
delete stm;
//
 
Query1->ExecSQL();

@Dragjj · 04.01.2013, 11:01 **[ТС]**

Сообщение от Sasha

Для хранения двоичных данных в БД у различных типов СУБД существуют специальные BLOB поля:
Файловые СУБД:
- MS Access - "Поле объекта OLE"
- Paradox 7 (BDE) - "Binary" - общий формат для двоичных данных
- Paradox 7 (BDE) - "Graphics" - формат для хранения изображений
Серверные СУБД:
- MS SQL Server (7.0 - 2005) - "Image"/ "Varbinary"
- Interbase - "BLOB"

Запись в BLOB-поле таблицы:

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Query1->SQL->Clear();
Query1->SQL->Text = "INSERT INTO TableName (BlobField) VALUES (:BlobValue)";
// берем из файла
Query1->Params->ParamByName("BlobValue")->LoadFromFile(FileName); 
//
 
//либо берем из потока:
TMemoryStream *stm = new TMemoryStream();
Image1->Picture->Bitmap->SaveToStream(stm); // Image1 лежит на форме и в него уже загружена картинка
stm->Seek(0, 0);
Query1->Params->ParamByName("BlobValue")->LoadFromStream(stm);
delete stm;
//
 
Query1->ExecSQL();

Спасибо, но к сожалению, ни один из вариантов у меня не заработал. Вылетали ошибки, после устранения ошибок, программа не работала, не смотря на компиляцию без ошибок((
Придумал другой способ засунуть картинку в базу. Просто тупо копируя путь до картинки:

C++
1
2
3
4
5
NMBForm->ADOTable1->Insert();
str1 = ExtractFileDir(OpenPictureDialog->FileName)+"\\" +ExtractFileName(OpenPictureDialog->FileName);
NMBForm->ADOTable1image1->LoadFromFile(str1);
NMBForm->ADOTable1->Post();
      Close();

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита табличной части. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Функция заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем