Рассмотрю пример подключения ADOConnection через обычный текстовой файл, очень удобно если место расположение базы часто меняется.
Итак создаем файл с разрешением txt например link.txt, где записываем путь к нашей базе, и кидаем его в папку с проектом. Открываем проект и пишем такую процедуру: procedure OpenBD; var FP: TextFile; StringPath: string; NameOfFile: string; begin NameOfFile:=ExtractFileDir(Application.ExeName)+'\link.txt'; if FileExists(NameOfFile) then begin Assign(Fp, NameOfFile); try Reset(FP); Read(FP,StringPath); Form1.ADOConnection1.Connected:=false; Form1.ADOConnection1.ConnectionString:=StringPath; Form1.ADOConnection1.Connected:=True; finally CloseFile(FP); end; end else begin ShowMessage('Отсутствует файл подключения'); Application.Terminate; end; end;
Далее в Obgect Inspector Form1, в закладке Events находим OnCreate и вызываем нашу процедуру: procedure TForm1.FormCreate(Sender: TObject); begin OpenBD; //наша процедура end;
|