[sandysman]

Все здравствуйте, не могу допереть как обработать ошибку на удаление элемента в таблице, пишу так

Код:

procedure TDM.Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
Table1.Delete;
except
on E: Exception do begin
            ShowMessage ('Ошибка удаления'+E.Message);
            exit;
                    end

end;
end;

компилятор ругается на showmessage, может кто подскажет в чем проблема?

[Mrak]

Сообщение от sandysman

Все здравствуйте, не могу допереть как обработать ошибку на удаление элемента в таблице, пишу так

Код:

procedure TDM.Table1DeleteError(DataSet: TDataSet; E: EDatabaseError;
  var Action: TDataAction);
begin
try
Table1.Delete;
except
on E: Exception do begin
            ShowMessage ('Ошибка удаления'+E.Message);
            exit;
                    end

end;
end;

компилятор ругается на showmessage, может кто подскажет в чем проблема?

хз. у меня вот так - работает)

Код:

...
except
    on E : Exception do
    begin
      progressbar1.State:=pbsError;
      messageDlg('Ошибка!'+#13+E.Message, mtError, [mbOK], 0);
      exit;
    end;
...

[M.A.D.M.A.N.]

В uses добавить надо dialogs вроде.

[Alegun]

Да, bro M.A.D.M.A.N. прав, добавьте модуль Dialogs в uses формы.

[sandysman]

Спасиб помогло, но сообщения все равно толком не выводится, пишет sql ошибку. В еще такой вопрос, как при помощи Table сделать автоматический ввод пароли и логина БД? а то задалбливает постоянно вводить их)

[Mrak]

Сообщение от sandysman

Спасиб помогло, но сообщения все равно толком не выводится, пишет sql ошибку. В еще такой вопрос, как при помощи Table сделать автоматический ввод пароли и логина БД? а то задалбливает постоянно вводить их)

сделай loginprompt = True
можно посмотреть про udl файлы

[sandysman]

Еще такой вопрос, пытаюсь сделать

Код:

Table1.Refresh;

Выдает ошибку, пишет не подходит индекс, или не соответствует, в чем может быть ошибка?

[M.A.D.M.A.N.]

Датасет по новой походу вытягивать надо.

[sandysman]

Это значит, надо писать

Код:

Datasource.dataset.fieldbyname();

[Mrak]

может так заработает

Код:

table.close;
table.open;

[sandysman]

Еще такой вопрос, функция lookup, не до конца понимаю как пользоваться. в Table создаю новое поле в котором пишу key, lookupkey, dataset, result, первые два поля должны совпадать вроде по ключевым полям, датасет, как я понял, должен содержать второй table который настроен на таблицу в которой есть ключевое поле из первого table. Подскажите правильно я мыслью?

[sandysman]

С эти разобрался, теперь такой вопрос появился, как Lookup поле создать программно, просто если использовать только одни тайблы это полный ппц, сколько их надо.

[Mrak]

выкинь table
возьми query

http://delphi-box.ru/query-delphi.html

[sandysman]

Вылетает ошибка на дбедит поэтому такой вопрос как его правильно закрыть? пишут так

Код:

dbedit1.dataset:=nil;
dbedit1.tablename:='';

[Mrak]

оригинально

Код:

adoquery.close;

или с чем там у тебя эдит связан