| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Помогите а то я уж запарился! [D1, D5, D6, MS Access]

Nona ©   (2002-10-07 21:12:00) 

Работаю с базой данных MS Access и мне приходится ручками указывать путь к моей базе и прочие параметры, но я хочу все автоматизировать но как не знаю, главное чтоб вся автоматизация выполнялась во время выполнение программы?

---

_VaaL_   (2002-10-09 09:49:00) [1]

Если для АДО и без УДЛ-файла то так:
...
var
Str: WideString;
...
Str:=ADODB.PromptDataSource(0,Form1.ADOConnection1.ConnectionString);
// Эта функция вызывает то-же окно что и двойной щелчок по удл-файлу
//В Str у тебя будет ConnectionString
Form1.ADOConnection1.ConnectionString:=Str;
Form1.ADOConnection1.Connected:=true;
// И пошло поехало...

---

USTAS   (2002-10-08 08:53:00) [2]

Если базу ложить в один каталог с экзэшником, то это очень упрощает дело (при условии что работаешь без АДО), можно накатать функцию примерно такого вида

аunction FindDatabase :Boolean;
var DataFile:TSearchRec;
begin
Result := False;
if FindFirst(ExtractFileDir(Application.ExeName) + "\database.mdb",faAnyFile,DataFile) = 0 then
Result := True;
while FindNext(DataFile) = 0 do
Result := True;
FindClose(DataFile);
end;

ну а затем при создании главной формы, указываешь все нужные
параметры для базы (их не много) и подключаешся

...
if FindDatabase then
begin
...
Database.DatabaseName := ExtractFileDir(Application.ExeName) + "\" + "database.mdb";
DataBase.Connected := True;
...
end;

---

Tornado   (2002-10-08 08:14:00) [3]

var
path, path_odbc:string;

begin

path_odbc := ExtractFilePath(paramstr(0)) + "MS Access 97 Database (not sharable).dsn"; (* ODBC Driver *)

path := ExtractFilePath(paramstr(0)) + "Baza.mdb"; (* Путь к БД *)

DataModul1.ADOConnection1.ConnectionString := "Provider=MSDASQL.1;Mode=Read|Write;Extended Properties="DSN=MS Access 97 Database;DBQ=" + path + ";FILEDSN=" + path_odbc + ";""; (* Подключение к БД *)

end;


---

sniknik   (2002-10-07 22:23:00) [4]

подробнее надо указывать с чем работаеш.

этот метод для ADO. там все для подключения указывается в строке подключения. для примера сдалай любой файл с расширением udl (*.udl) и "запускай его" двойной клик в проводнике или через пуск выполнить. посмотриш как настраивается. если указать такой файл в строке подключения настройку можно произвести в любой момент и не переколпилируя программу.

---

nona   (2002-10-07 22:04:00) [5]

А по подробнее нельза а то я что то е поняла...

---

sniknik   (2002-10-07 21:51:00) [6]

в строке коннекта указывай udl файл у него максимальные возможности настройки.

---

Наверх