Локальные базы данных для Delphi

[Марк Охман]

Здравствуйте.
Сразу объясню суть того, что мне нужно, но честно признаюсь - я не гений программирования, а простой парень, который учится.
Нужно создать программу, которая бы использовала файл базы данных, который находится в одной папке с самой программой (ну или в соседней директории, главное, чтобы он всегда был доступен, несмотря на перемещения самой программы, т.к. программа будет устанавливаться на компьютеры без SQL Explorer). В этой базе данных будет около 50 таблиц, заполнять которые нужно из самой программы, так же их нужно будет потом открывать, изменять и сохранять изменения. Проблема в том - как создать такую базу данных, а потом связать ее с Delphi. Я все перепробовал, и ClientDataSet и Query, но у меня не получается.
Дайте совет пожалуйста. Честно-говоря мне это нужно очень скоро, пожалуйста, помогите. Спасибо заранее.

[Stilet]

Совет:
Создай базу в ACCESS, и с помошью компонента ADOQuery подключись к ней (она может при этом лежать рядом с программой, и работать на всех виндовсах NT)

[Serge_Bliznykov]

1) гуглить пробовали? именно по фразе, что у Вас в тему вынесена...
2) навскидку, самый простой вариант - использовать через ADO (провайдер Microsoft JET OLE DB provider) доступ к файлам Access (.mdb )
либо Firebird embedded
либо SQLite

[Son]

Помещаем на форму компоненты: ADOConnection, ADOQuery с вкладки ADO, DataSource с вкладки DataAccess и компонент DBGrid с вкладки Data Controls. ADOQuery в свойстве Connection выбираем ADOConnection, у DataSource в свойстве DataSet выбираем ADOQuery и наконец у DBGrid в свойстве DataSource выбираем DataSource. Теперь налаживаем связ с БД. Делаем ее в Access и сохраняем в папку с прогой. Теперь компонент ADOConnection свойство ConnectionString.
1. В появившемся окне выбираем Use Connection String и Build
2. "Использовать строку подключения" и "сборка"
3. Создадим новое имя источника данных. Выбираем "New"
4. Driver do Microsoft Access -> Далее-> Browse
5. Указываем любое имя файла и "Сохранить"
6. Далее -> Готово
7. В новом окне "Выбрать" и ищем сохраненную БД. Ок -> сохранить. Потом снова ок
Если все сделано правильно при нажатии на кнопку "Проверить соеденение" выдаст сообщение "Проверка подключения выполнена". Снова Ок и Ок и мы у формы.
Свойство Connected отвечает за подключение к БД. Выскочит запрос с логином и паролем. Если их нет то просто окей. LoginPrompt отключает его. В ConnectionString у нас сформирована строка подключения. Разобраться в ней думаю труда не составит. Все предыдущее можно было не делать а сразу передать в ConnectionString сформированную правильно строку и в Connected передать true).
Ну и последнее. ADOQUery свойство SQL пишем запрос типа 'SELECT * FROM <тут имя нужной таблицы>' и в свойстве Active выбираем true. Дальше все реализуеш запросами через ADOQuery. Надеюсь помог.

[Марк Охман]

Спасибо огромное всем кто ответил)) Все работает, просто классно. Stilet, serge и son, не представляете как вам благодарен.

еще такой вопрос появился. если будет примерно 10 баз, как можно сделать что-то вроде поиска по ним? пожалуйста, если можете помогите!!!

[Stilet]

если будет примерно 10 баз

А если 100?
Для чего так много баз?
Не лучше ли много таблиц в одной базе, но СУБД выбрать посерьезнее например MSSQL?

[Serge_Bliznykov]

Марк Охман, а действительно, зачем поиск по РАЗНЫМ БД ?! И где будет задаваться, где эти самые БД брать? Может, действительно, имеет смысл собрать все эти 10 БД в рамках одной БД?

Впрочем, хозяин — барин.
Решить эту задачу можно множеством разных способов.
Перечислю некоторые из них.
1) обычно в БД существует возможность создавать линки на БД/Таблицы из других БД. В этом случае выполняя запрос к прилинкованной таблице, фактически будет выборка из таблицы другой БД.

2) можно накидать на форму столько AdoConnection и AdoQuery - сколько различных БД. Все их связать и открывать одновременно в процедуре поиска.

3) но, скорее всего, Вам наиболее удобным будет третий вариант.
искать в цикле:

for i:=1 to 10 do begin
  AdoConnection1.ConnectionString := 'Подключение к I-й БД';
  AdoConnection1.Active := true;
  ADOQuery1.Open;
  ---> результаты поиска перенести (например, во временную таблицу
  ADOQuery1.Close;
  AdoConnection1.Active := false;
end;

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

p.s. ЕЩЁ раз подумайте, очень похоже, что Вы либо не ту задачу перед собой поставили, либо метод решения выбрали не совсем подходящий. в 99.99 случаев не должно быть в программе одновременная работа с разными БД.

[Grag]

Если посмотреть на даты публикаций первых постов ТС, то проблема изжила себя еще полгода назад...

[Stilet]

то проблема изжила себя еще полгода назад

Странно... А темка то всплыла в последних недавно...

[Grag]

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

А темка то всплыла в последних недавно...

Не далее как вчера, благодаря всеми уважаемому Stilet'у... Ну, это просто так, к слову...