Управление БД и таблицами

@Kaktuz · Регистрация: 28.05.2012

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

Уважаемые знатоки Delphi & Access. Дабы упростить себе жизнь, хочу изначально проконсультироваться. Можно ли будет реализовать мой замысел и будет ли это нормально работать.
Первая и главная таблица будет содержать текст (путь к файлу). Каждый файл (строка таблицы), должна быть связь с личной таблицей, таблицей только для этого файла. Файлов будет много, соответственно и таблиц тоже. На рисунке сделал примерный обзор как я это себе представляю. Где-то на англ. сайте подобное было и поэтому заинтересовало.

При запуске проверяем наличие файла БД. Если его нет, создаем.

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
if not FileExists(WorkingFolder + 'db.mdb') then
  begin
    s := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + WorkingFolder + 'db.mdb;';
    try
      db := CreateOleObject('ADOX.Catalog');
      db.Create(s);
      db := NULL;
    except on e: Exception do
      ShowMessage(e.message);
    end;
  end;
  ADOConnection1.ConnectionString := s;
  ADOConnection1.Connected := True;

Далее будет запущена функция которая построить дерево каталогов и файлов и выведет структуру в TreeView (такая есть, работает). Совместно запускаться функция которая должна:
- Проверить наличие таблицы `FileList`, если нету, создать её и по ходу дела записывать туда пути всех файлов (естественно которые там еще не записаны).
Ну и после создания дерева файлов можно выбрать любой файл и загрузить его таблицу.

Delphi
1
2
ADOCommand1.CommandText := 'CREATE TABLE FilePNG (id INT(11), file TEXT(255) );';
ADOCommand1.Execute;

Вообщем так как раньше не приходилось работать с большим количеством файлов и данных, в таблицы не вникал, а сейчас очень нужно и тупик. Поделитесь знаниями, ссылками, опытом.

@mss · 25.08.2015, 20:12

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

Дабы упростить себе жизнь

Плодя ран-тайм таблицу за таблицей в своей базе ты не то что упростишь - усложнишь жизнь .. И себе и тем кому вероятно суждено будет разбираться в этом хозяйстве..

Достаточно всего двух таблиц - главной и подчиненной, - связанных в отношении "многие к одному".

Подчиненная снабжается полем вторичного ключа (file_id), по значению которого каждая группа записей этой таблицы однозначно сопоставляется с одной конкретной записью в главной таблице, имеющей в поле первичного ключа (id) то же самое значение.

Для ускорения поиска, сортировки и фильтрации в различных наборах данных, формируемых по запросам к этим таблицам, а так же для автоматического контроля уникальности значений перв.ключа и межтабличной ссылочной целостности поле id снабжается уникальным индексом, а поле file_id - неуникальным индексом. Ограничения ссылочной целостности могут быть сформированы единожды и поддерживаться самой СУБД как в дизайн-, так и в ран-тайм.

Все это подробнейшим образом разжевано в любом мало-мальски приличном букваре по принципам построения и функционирования реляционных баз данных.

@Kaktuz · 26.08.2015, 14:52 **[ТС]**

Вот только там не сказано как это реализовать в Delphi без наличия Access. Во всяком случае я такого не встречал.

@mss · 26.08.2015, 15:05

Что ты подразумеваешь под "Access" - приложение MS Access или базу данных в формате MS Access ?

@Kaktuz · 26.08.2015, 15:36 **[ТС]**

База данных Access. В целом я могу создать БД в Access 2003, две таблицы, связать их, но дальнейшая работа должна проходить через саму программу. Добавлять новые записи в таблицу #1 если появится новый файл в каталоге который не записан в этой таблице. Связать его с таблицей #2 для добавление новых данных (заметок). И все это выводить, обрабатывать, показывать, возможность редактирования.

Кликните здесь для просмотра всего текста

Через ini файл все это сделано, работает, может проще увеличить в исходнике размер буфера. Сам с таблицами явно не осилю разобраться.

@mss · 26.08.2015, 15:50

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

База данных Access

Ну и в чем проблема ?
ADOX же ты взялся использовать ? Так и продолжай его использовать на всю катушку !

Пример создания различных объектов метаданных в БД Access с использованием ADOX

@Kaktuz · 27.08.2015, 21:13 **[ТС]**

не поддается мне access. может кто желает помочь кто в этом знается?

@northener · 28.08.2015, 01:06

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

не поддается мне access. может кто желает помочь кто в этом знается?

Не по теме:

В разделе фриланс желающих найдётся, хоть отбавляй.

@Kaktuz · 29.08.2015, 16:18 **[ТС]**

Уточнить хочу. В таблице текст ограничен до 255 символов. А Memo не виден в таблице Delphi. Это решаемо?

Новые блоги и статьи Все статьи Все блоги /
Управление камерой с помощью скрипта OrbitControls.js на Three.js: Вращение, зум и панорамирование 8Observer8 05.03.2026 Содержание блога Финальная демка в браузере работает на Desktop и мобильных браузерах. Итоговый код: orbit-controls-threejs-js. zip. Сканируйте QR-код на мобильном. Вращайте камеру одним пальцем,. . .	SDL3 для Web (WebAssembly): Синхронизация спрайтов SDL3 и тел Box2D 8Observer8 04.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-sync-physics-sprites-sdl3-c. zip На первой гифке отладочные линии отключены, а на второй включены:. . .	SDL3 для Web (WebAssembly): Идентификация объектов на Box2D v3 - использование userData и событий коллизий 8Observer8 02.03.2026 Содержание блога Финальная демка в браузере. Итоговый код: finish-collision-events-sdl3-c. zip Сканируйте QR-код на мобильном и вы увидите, что появится джойстик для управления главным героем. . . .	Реалии Hrethgir 01.03.2026 Нет, я не закончил до сих пор симулятор. Эта задача сложнее. Не получилось уйти в плавсостав, но оно и к лучшему, возможно. Точнее получалось - но сварщиком в палубную команду, а это значит, в моём. . .
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка библиотек: SDL3, Box2D, FreeType, SDL3_ttf, SDL3_mixer и SDL3_image из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .

@Kaktuz 7 / 7 / 4 Регистрация: 28.05.2012 Сообщений: 169
	26.08.2015, 14:52 [ТС]
	Вот только там не сказано как это реализовать в Delphi без наличия Access. Во всяком случае я такого не встречал. 0

@mss 3530 / 2270 / 279 Регистрация: 24.12.2010 Сообщений: 13,723
	26.08.2015, 15:05
	Что ты подразумеваешь под "Access" - приложение MS Access или базу данных в формате MS Access ? 0

@Kaktuz 7 / 7 / 4 Регистрация: 28.05.2012 Сообщений: 169
	26.08.2015, 15:36 [ТС]
	База данных Access. В целом я могу создать БД в Access 2003, две таблицы, связать их, но дальнейшая работа должна проходить через саму программу. Добавлять новые записи в таблицу #1 если появится новый файл в каталоге который не записан в этой таблице. Связать его с таблицей #2 для добавление новых данных (заметок). И все это выводить, обрабатывать, показывать, возможность редактирования. Кликните здесь для просмотра всего текста Через ini файл все это сделано, работает, может проще увеличить в исходнике размер буфера. Сам с таблицами явно не осилю разобраться. 0

@Kaktuz 7 / 7 / 4 Регистрация: 28.05.2012 Сообщений: 169
	27.08.2015, 21:13 [ТС]
	не поддается мне access. может кто желает помочь кто в этом знается? 0

@Kaktuz 7 / 7 / 4 Регистрация: 28.05.2012 Сообщений: 169
	29.08.2015, 16:18 [ТС]
	Уточнить хочу. В таблице текст ограничен до 255 символов. А Memo не виден в таблице Delphi. Это решаемо? 0