[vah-smile]

БД подключаю с помощью инструмента ADOConnection. На локальном компютере все работает, но когда переношу на другой комп. - говорит, что не видит БД (оно и не удивительно, так как идет жорсткая привязка к пути БД).

БД и exe-файл находятся в одной папке.

Вопрос: как правильно подключить БД через ADOConnection так, чтобы программу можно было переносить на другие компюторы?

[Alegun]

Вот пример

[vah-smile]

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

Вот пример

Пример - работает, но вот только не могу его подключить к своей программе:

Код:

procedure TForm1.FormCreate(Sender: TObject);
begin

  ADOConnection1.ConnectionString:= 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +
  ExtractFileDir(ParamSTR(0)) + '\database.mdb;' +
  'Mode=ReadWrite;Persist Security Info=False';
  ADOConnection1.DefaultDatabase:='database.mdb'
end;

При запуске программы выдает ошибку:

[vah-smile]

Сообщение от vah-smile

При запуске программы выдает ошибку:

Сменил "Mode=ReadWrite;" на "Mode=cmReadWrite;"

Получил следующую ошибку:

[Alegun]

Не мучайтесь, нажмите в обжект инспекторе на свойстве таблицы ConnectionString, соберите строку с помощью мастера, а затем просто замените в получившейся строке фиксированный патч до базы на ExtractFileDir(ParamSTR(0)) + "\database.mdb", прям по образцу (можно проверить потом успешное подключение), его и используйте в сборке

[vah-smile]

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

Не мучайтесь, нажмите в обжект инспекторе на свойстве таблицы ConnectionString, соберите строку с помощью мастера, а затем просто замените в получившейся строке фиксированный патч до базы на ExtractFileDir(ParamSTR(0)) + "\database.mdb", прям по образцу (можно проверить потом успешное подключение), его и используйте в сборке

Да так и делаю (сформировал строку с помощью мастера и вбил в код TForm1.FormCreate).

Код:

prog_dir:=ExtractFileDir(ParamStr(0))+'\';

  ADOConnection1.ConnectionString:='Provider=MSDASQL.1;'+
                                   'Persist Security Info=False;'+
                                   'User ID=admin;'+
                                   'Mode=ReadWrite;'+
                                   'Extended Properties="DSN=MS Access Database;'+
                                   'DBQ='+prog_dir+'database.mdb;'+
                                   'DefaultDir='+ prog_dir +
                                   'DriverId=25;'+
                                   'FIL=MS Access;'+
                                   'MaxBufferSize=2048;'+
                                   'PageTimeout=5;'+
                                   'UID=admin;';
  ADOConnection1.DefaultDatabase:= prog_dir+'database.mdb;'

При запуске получаю ошибку:

Меня еще что смущает в коде так это параметр UID=admin (без пароля). Можно ли здесь обойтись логином и паролем к БД?

[Alegun]

Сообщение от vah-smile

Да так и делаю (сформировал строку с помощью мастера и вбил в код TForm1.FormCreate)...

Здесь прогерства нет вообще - в мастере на вкладке "Соединение" необходимо проверить результат нажав на кнопку "Проверить соединение": если подключение произойдет без ошибок, тогда и в сборке это будет прекрасно работать

[PhoeniX]

Вас вот эта строчка не смущает? Меня смущает...

Код:

Extended Properties="DSN=MS Access Database;