Доброго времени суток. Возник такой вопрос.Есть база данных на Firebird, есть роль User_Pl.Этой роли в таблице Driver, назначены права только для просмотра таблицы. Создаю строку подключения с пользователем имеющим данную роль. Дальше в курсор адаптер выбираю данные из этой таблицы:
lodo_DRIVERS = CreateObject("CursorAdapter")
With lodo_DRIVERS
.Alias = "C_DRIVERS"
.DataSourceType = "ODBC"
.DataSource = m.lnConnect
.BatchUpdateCount = 5
.FetchSize = -1
.SelectCmd = 'SELECT TAB_N, DRIVERFIO, DRIVERDOC, DRIVERLICENZ, KATGA, KATGB, KATGC, KATGD, KATGE, Kontrakt, Nadbavka, Tarif, ID, Adress FROM DRIVERS ORDER BY TAB_N'
.KeyFieldList = 'ID'
.Tables = 'DRIVERS'
.UpdatableFieldList = 'TAB_N, DRIVERFIO, DRIVERDOC, DRIVERLICENZ, KATGA, KATGB, KATGC, KATGD, KATGE, ADRESS, ID, Kontrakt, Nadbavka, Tarif'
.UpdateNameList = 'TAB_N DRIVERS.TAB_N,DRIVERFIO DRIVERS.DRIVERFIO,DRIVERDOC DRIVERS.DRIVERDOC,ID DRIVERS.ID,DRIVERLICENZ DRIVERS.DRIVERLICENZ,';
+'KATGA DRIVERS.KATGA,KATGB DRIVERS.KATGB,KATGC DRIVERS.KATGC,KATGD DRIVERS.KATGD,KATGE DRIVERS.KATGE,ADRESS DRIVERS.ADRESS,';
+ ' Kontrakt Drivers.Kontrakt, Nadbavka Drivers.Nadbavka, Tarif Drivers.Tarif'
.CursorFill()
ENDWITH
Подскажите пожалуйста как узнать что данная таблица открыта только для чтения.

Попытаться в нее что-то записать и проанализировать ошибку, если таковая возникнет. По коду ошибки дать развернутое пояснене пользователю, если необходимо.
Ошибка возникает,и после этого приходится разрывать соединение. И вот что бы этого не делать,хотелось бы заранее запретить ввод,корректировку и удаление записи для конкретного пользователя. Спасибо за идею с системной таблицей. Попробую посмотреть.

Спасибо большое за совет по поводу системной таблицы. Есть такая таблица,как RDB$USER_PRIVILEGES в которой хранятся пользователи и то что они могут делать с таблицей. Так что вопрос снят. Еще раз спасибо

ВладимирМЕкатерина_Проявинапропущено...

Ошибка возникает,и после этого приходится разрывать соединение.
Зачем соединение-то разрывать? Просто откатываете все сделанные на клиенте изменения (TableRevert()) и продолжаете работать.
Спасибо за еще один хороший совет с (TableRevert()). Еще раз понимаешь что надо учится учится и учится.