Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > Разрабатываю свой формат БД

Автор: SCINER 23.10.2005, 20:40

Выкладываю 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 при успешном открытии

Автор: bom 24.10.2005, 23:57

Вроде бы все работает smile

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

Автор: Kergan 25.10.2005, 17:40

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

Автор: Exception 25.10.2005, 17:49

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

Автор: SCINER 25.10.2005, 18:51

Цитата

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

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

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

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

Цитата

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

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

Автор: Exception 26.10.2005, 14:49

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