|
#1
|
|||
|
|||
Обработать ошибку
При добавлении в БД через ADOQuery существующей таблицы возникает исключение класса EOleException. Помогите обработать
Код:
try try //............ Except On EOleException do ShowMessage('невозможно создать таблицу'); end; finally Free Последний раз редактировалось stil, 09.12.2010 в 00:38. |
#2
|
||||
|
||||
Так кто вам мешает ее изначально не совершать? Проверьте на наличие уже имеющейся таблицы в БД.
Код:
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; Жизнь такова какова она есть и больше никакова. Помогаю за спасибо. |
#3
|
||||
|
||||
во первых!
Код:
try //............ Except On e:exception do ShowMessage('ошибка'+e.message); end; иначе вообще непонятно вы хотите одним методом обработать целый класс ошибок? нужно точно знать что за ошибка и обрабатывать ее отдельно (конечно если это нужно) |