Категории раздела
J2me|java [29]
Basic [6]
Delphix [21]
C+|C++|C# [3]
Pascal [10]
Другие [0]
языки которые не войшли в верхние разделы
Главная » Статьи » Программирования » Delphix

Подключение 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;
Категория: Delphix | Добавил: graimp (21.12.2011)
Просмотров: 429 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:
Наш опрос
Оцените мой сайт
Всего ответов: 25
Статистика

Онлайн всего: 1
Гостей: 1
Пользователей: 0