[stil]

При добавлении в БД через ADOQuery существующей таблицы возникает исключение класса EOleException. Помогите обработать

Код:

try try
//............
Except
  On EOleException do ShowMessage('невозможно создать таблицу');
end;
finally
Free

[Страдалецъ]

Так кто вам мешает ее изначально не совершать? Проверьте на наличие уже имеющейся таблицы в БД.

Код:

function TableExists(AdoConnection: TAdoConnection; TableName: String): Boolean;
Var
  TableNames: TStringList;
  i: Integer;
begin
 Result := False;
 TableNames := TStringList.Create;
 ADOConnection.GetTableNames(TableNames);
 for i := 0 to TableNames.Count - 1
 do if TableNames.Strings[i] = TableName
    then begin
         Result := True;
         Break;
         end;
 TableNames.Free;
end;

[MMM_Corp]

во первых!

Код:

try
//............
Except
  On e:exception do ShowMessage('ошибка'+e.message);
end;

иначе вообще непонятно вы хотите одним методом обработать целый класс ошибок? нужно точно знать что за ошибка и обрабатывать ее отдельно (конечно если это нужно)