Подписаться на RSS рассылку
Главная » Статьи по Delphi » Базы данных » Подключение ADOConnection из txt файла

Подключение 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;

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

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

0   Спам
(24.01.2009)
4. Евгений (жека)
эм нет)

0   Спам
(21.01.2009)
3. Учиха Итачи (Ekz)
Вот у него и спрашиваю

0   Спам
(21.01.2009)
2. Сергей (Admin)
У жеки спрашивай

0   Спам
(21.01.2009)
1. Учиха Итачи (Ekz)
В инете нашел??? biggrin biggrin biggrin


Имя *:
Email:


Код *:

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

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

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

Хостинг от uCoz

Автор проекта: Борисов Сергей

e-mail: save-x@yandex.ru

Связь с администрацией сайта