Я слышал, что Enterprise Architect имеет генератор структуры сущности / ORM для VB6, но точно сказать не могу. Я предлагаю вам начать искать там. ссылка
Мне пришлось свернуть свой собственный на работе, но он защищен авторским правом компании, поэтому я не смог бы опубликовать его здесь. Я могу дать вам краткий обзор, если вы хотите попробовать сами:
- Я создал «базовый класс» для сущности (VB6 не поддерживает наследование, поэтому на самом деле это был «обернутый» базовый класс)
- Имеет такие методы, как Вставка, Обновление, LoadByPrimaryKey и т. Д.
- Я создал аналогичный «базовый класс» для коллекции сущностей.
- Поддерживает простые методы .Where и .OrderBy, которые создают запрос
- Я создал генератор кода, который извлек список таблиц из базы данных.
- Он генерирует модуль для каждой таблицы с перечислением Enum, перечисляющим имя каждого столбца в качестве идентификатора, и таблицы поиска для перехода от перечисления столбца к имени столбца и обратно
- Он генерирует класс сущности для каждой таблицы, которая оборачивает базовую сущность, и имеет установщики / получатели свойств, соответствующие имени каждого столбца
- Он генерирует класс коллекции сущностей для каждой таблицы, в которую входит базовый класс коллекции