Выкладываю OCX библиотеку и программу визуального управления базой.
Вот пример использования:

Код

Option Explicit ЗЫ Хотелось бы услышать комментарии. А еще лучше увидеть багрепорты. Private Sub Form_Load()   Dim db As Object   Dim index As Long   Set db = CreateObject("MyDB_Engine.MyDataBase")   If Not db.OpenDatabase("c:\MyDb.sdb") Then     If Not db.CreateDataBase("c:\MyDb.sdb") Then       MsgBox "Database not found.", vbAbortRetryIgnore, "Error"       Exit Sub     End If   End If      db.AddTable "Table"   index = db.TableCount - 1   db.Table(index).AddField "Time"   db.Table(index).AddField "Message"   db.Table(index).AddNew   db.Table(index).Fields(0) = Now   db.Table(index).Fields(1) = "Message for time"   db.CloseBase End Sub

Вот основные характеристики:
ПАРАМЕТРЫ И ТЕХНИЧЕСКИЕ ХАРАКТЕРИСТИКИ
+ контроль уникальности имен таблиц
+ при открытии следующей базы, предыдущая не освобождалась
+ если переименовать таблицу в более короткое название, в имени оставалась часть предыдущего имени таблицы
+ теперь можно задавать полям имена (макс длина 256 байт)
+ максимальное количество полей в одной таблице 1024
+ можно задать пароль на таблицу длиной 512 байт
+ максимальная длина имени таблицы 512 байт
+ максимальное количество таблиц в базе 1024
+ максимальная длина имени базы 256 байт
+ моментальное добавление новых полей или таблиц в базу с любым объемом данных
+ максимальное количество записей в одной таблице пока 16000000, но в принципе скоро сделаю 3 145 722 000 (физически ограничено 32битной адресацией, т.е. 4 гигабайтами)

НОВОЕ
+ реализовано удаление таблиц
+ проверена стабильность и корректность работы при добавлении 1000000 записей
+ контроль уникальности имен полей
+ теперь в поля можно записывать байтовые массивы (vbArray+vbByte)
+ реализовано удаление полей
+ Добавлены примеры работы с базой в меню [Сервис]->[Тестирование]
+ реализовал функцию CreateDataBase, возвращается True при успешном создании
+ усовершенствовал функцию OpenDataBase, возвращается True при успешном открытии

Это сообщение отредактировал(а) SCINER - 24.10.2005, 00:36

Присоединённый файл ( Кол-во скачиваний: 19 )
 sdb.zip 34,01 Kb

Вроде бы все работает
Лично мне было бы интереснее посмотреть на исходник.

Жалко в баське не реализованы в полной мере системы тестирования... Надо бы еще проверить, не течет ли память. А так все хорошо

+1
а как расшифруешь sdb?
ЗЫ надо сделать .НЕТ-провайдера :)

Цитата

Жалко в баське не реализованы в полной мере системы тестирования... Надо бы еще проверить, не течет ли память. А так все хорошо

было бы очень здорово, а то пока столько идей по поводу усовершенствованию, что на тестирование не хватает времени.

Пока придумал 2 вещи:
1. Релизовать функции для организации реестра как в Windows
т.е. записывать значения адресуясь строкой вида HKLM\Software\Windows\ ...
2. Реализовать функии файловой системы
Функции создания диска, папки и файла

Думаю библиотека в результате должна получиться хорошая.

Цитата

а как расшифруешь sdb? ЗЫ надо сделать .НЕТ-провайдера

банально - ScinerDataBase
но .НЕТ, мне больше нравится. В твоем предложении целая маркетинговая концепция заложена. Хороший рекламный трюк!
Переименую на .НЕТ

Это сообщение отредактировал(а) SCINER - 25.10.2005, 18:51

слушай.. я не про это. знаешь технологию дотНет? там есть возможность привинтить к АДО.НЕТ любую БД. Я могу этим заняться.. если бы ты предоставил сорсы. а сдб лучше переименовать в
fdb и расшифровать как flexible database вроде того.. если про дотНет не знаешь, постучись мне в асю, объясню..