Подключение ADOConnection из txt файла

Автор: жека

Рассмотрю пример подключения 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;

Просмотров: 7947

Обсудить на форуме

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.