Экспертная система Delphi.int.ru

Сообщество программистов
Общение, помощь, обмен опытом

Логин:
Пароль:
Регистрация | Забыли пароль?

Delphi.int.ru Expert

Другие разделы портала

Переход к вопросу:

#   

Статистика за сегодня:  


Лучшие эксперты

DNK
I. DNK
Баллы: 5

Подробнее »



Вопрос # 1 302

/ вопрос открыт /

Здравствуйте, уважаемые эксперты!Я только начал изучать работу с БД. Поэтому извините за столь глупые вопросы.Я научился создавать каталог с БД при помощи BDE администратора. А как программно создать каталог по технологии BDE и как используя технологию ADO. Ну и если можно уж для примера в нём какую нибудь простенькую таблицу. Заранее спасибо.

GAZ Вопрос ожидает решения (принимаются ответы, доступен мини-форум)

Вопрос задал: GAZ (статус: Посетитель)
Вопрос отправлен: 30 января 2008, 19:01
Состояние вопроса: открыт, ответов: 1.

Ответ #1. Отвечает эксперт: Вадим К

Здравствуйте, GAZ!
Для начала советую забыть о BDE. Сам Borland и CodeGear отказался от этой технологии. Потом появляться сообщения вида "а почему моя программа не работает на другом компютере, где нет делфи?"
Технология АДО получше будет. Хотя и тут не всё так хорошо. В приложении есть код, который умеет создавать пустую базу. А что бы ей добавить таблицы - надо поизучаться SQL.

По этой ссылке - http://delphi.about.com/od/database/l/aa072401a.htm найдёте пример статьи, где описывается похожий метод - там импортируется библиотека и создается база. Правда всё на английском...

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

Приложение:
  1. // Using ADOX:
  2.  
  3. uses
  4. ComObj;
  5.  
  6. // You can with ADOX (Microsoft ADO Extensions for DDL and Security),
  7.  
  8. function CreateAccessDatabase(FileName: string): string;
  9. var
  10. cat: OLEVariant;
  11. begin
  12. Result := '';
  13. try
  14. cat := CreateOleObject('ADOX.Catalog');
  15. cat.Create('Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' + FileName + ';');
  16. cat := NULL;
  17. except
  18. on e: Exception do Result := e.message;
  19. end;
  20. end;
  21.  
  22.  
  23. procedure TForm1.Button1Click(Sender: TObject);
  24. begin
  25. CreateAccessDatabase('c:Testdb.mdb');
  26. end;
  27.  


Ответ отправил: Вадим К (статус: Академик)
Время отправки: 31 января 2008, 01:01
Оценка за ответ: 5


Мини-форум вопроса

Мини-форум пуст.

Чтобы оставлять сообщения в мини-форумах, Вы должны авторизироваться на сайте.

Версия движка: 2.6+ (26.01.2011)
Текущее время: 23 июля 2017, 05:49
Выполнено за 0.13 сек.
Рейтинг@Mail.ru