|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
ADO - Возможность использования на разных ПК одну БД
Есть приложение Делфи на флешке.
БД с которой работает приложение установлена в той же папке что и само приложение (на флешке). Соединение с БД при помощи ADOConnection и UDL файла. При запуске программы на другом пк теряет путь к базе. Прописывать новый путь в UDL файле ни к чему не приводит - БД не найдена. Вижу как вариант: при запуске программы необходимо проверять путь, если он не совпадает с указанным путем в своействах ADOConnection, есть смысл выдать сообщение с окном, где можно легко указать расположение UDL файла и расположение файла будет прописываться в свойсвах ADO Conn. (при этом в самом UDL файле расположение к базе меняется вручную). Помогите прописать код. Решит проблемы использования одного приложения и одной БД на разных ПК. |
#2
|
||||
|
||||
Попробуй так... Ни каких файлов и ничего писать не нужно.
Код:
var MyPath: String; procedure TFormGeneral.FormCreate(Sender: TObject); begin GetDir(0, MyPath); try ADOConnect.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;' + 'Data Source=' + MyPath + '\NameBase.mdb;' + 'Persist Security Info=False;'; ADOConnect.Connected := True; ADOTableWorker.Active := True; except MessageBox(Handle, 'Произошла ошибка при подключении к базе данных!', 'Ошибка!', MB_ICONERROR + MB_OK); Application.Terminate; end; end; Всегда пишите код так, будто сопровождать его будет склонный к насилию психопат, который знает, где вы живете. |