Delphi World - Как проверять корректность доступа к базе данных
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как проверять корректность доступа к базе данных

Билл Гейтс женился. Лег спать с молодой женой, а на следующее утро она говорит ему:
- Билли, теперь я знаю, почему твоя фирма называется Microsoft ...

Следующая функция проверяет доступ к базе данных и выдает возможные причины, если доступ не удается осуществить. Функция возвращает значение True в случае успешной операции и False в противном случае.


function TBDEDirect.CheckDatabase: Boolean;
var
  DS: TDataSource;
begin
  Result := False;
  DS := GetDataSource;
  if DS = nil then
  begin
    MessageDlg('Не установлена связь с элементом-источником данных.'+
    'Проверьте установку свойства DataSource.',
    mtError, [mbOK], 0);
    Exit;
  end;
  if DS.DataSet = nil then
  begin
    MessageDlg('Доступ к базе данных невозможен.', mtError,
    [mbOK], 0);
    Exit;
  end;
  if TDBDataSet(DS.DataSet).Database = nil then
  begin
    MessageDlg('Доступ к базе данных невозможен.', mtError,
    [mbOK], 0);
    Exit;
  end;
  if TDBDataSet(DS.DataSet).Database.Handle = nil then
  begin
    MessageDlg('Дескриптор (Handle) БД недоступен.', mtError,
    [mbOK], 0);
    Exit;
  end;
  if DS.DataSet.Handle = nil then
  begin
    MessageDlg('Дескриптор курсора (Cursor-Handle) недоступен.', mtError,
    [mbOK], 0);
    Exit;
  end;
  Result := True;
end;

Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования