SQLDMO

← →
Alex_Sudakov © (2002-11-15 13:44) [0]

Господа, может кто сталкивался...Как-то очень странно работает метод Grant для таблицы. Попытки выполнить вот такой код:
var Grant, Deny: integer; DB, tbl: variant; Const Database="Northwind"; Role="Test_role"; Table="Table1" ... Grant:= Permission; Deny:= Grant xor 15; DB:= srv.Databases.Item( Database ); tbl:= DB.Tables.Item( Table ); ClearPermissionOnTable(Table,Role,Database); tbl.Grant( Grant, Role, null, true, null ); tbl.Deny( Deny , Role, null, true);
где Permission- одна из констант типа SQLDMOPriv_Select, srv - уже созданный и подключенный объект SQLDMO.SQLServer, приводят к совершенно не понятному результату. Доступ ставится так как хочет, может вообще противоположные значения поставить...
Подскажите, может я что-нить забыл прописать в коде? :(((

← →
stone © (2002-11-15 13:52) [1]

че та знакомое у тебя имя

← →
Alex_Sudakov © (2002-11-15 15:15) [2]

Великолепный ответ...:)

← →
Alex_Sudakov © (2002-11-18 10:37) [3]

Господа, ну неужели никто не сталкивался?! :(

← →
3JIA9I CyKA © (2002-11-18 11:52) [4]

>>Deny:= Grant xor 15;
Это нафиг!?

← →
Alex_Sudakov © (2002-11-18 12:02) [5]

Там не два состояния, а три. Grant, Deny и null. Вот и приходится так писать...

← →
3JIA9I CyKA © (2002-11-18 12:39) [6]

Deny := (not Grant) and 47; if Deny > 0 then tbl.Deny(Deny, Role, null, true);

← →
Alex_Sudakov © (2002-11-18 13:06) [7]

Суть не в этом, тут и так все работает нормально... Вопрос в том, что я делаю Grant(15), а ставится все что угодно...:(

← →
3JIA9I CyKA © (2002-11-18 13:12) [8]

А у маня всё нормально. Пример прислать?

← →
3JIA9I CyKA © (2002-11-18 13:15) [9]

Ты не задумывался сколько будет
15 xor 15
?

И что выдаст
tbl.Deny(0 , Role, null, true)
?

8)

← →
Alex_Sudakov © (2002-11-18 13:24) [10]

если можно - пришли пример (может у меня мозги закипают? :)
15 xor 15=0, а вот 1 xor 15 будет 14, что собственно и надо... В grant - то что разрешено, а в deny - соответственно то запрещено... Так что вроде все верно...

← →
3JIA9I CyKA © (2002-11-18 13:26) [11]

0 ваще низя. Шлю.

← →
Alex_Sudakov © (2002-11-18 13:39) [12]

Спасибо большое. Значит у меня мозги кипят...:)))
ЗЫ Твой пример работает...:)

Кстати, может ты мне еще и вот в этом поможешь :)

function GetPermissionOnTable( Table, Role, Database: string ): integer; var tbl: variant; SQLObjectList: variant; i: integer; DB:Variant; begin Result:= 0; DB:= srv.Databases.Item( Database); tbl:= DB.Tables.Item( Table ); SQLObjectList:= tbl.ListUserPermissions(Role); if SQLObjectList.Count<>0 then for i:=1 to SQLObjectList.Count do Result:= Result or SQLObjectList.Item( i ).PrivilegeType; SQLObjectList:= null; tbl:= null; end;

Тоже как-то очень загадочно работает...:(

А что должно получиться?

Должно вернутся число, описывающее привилегию пользователя.
То, что устанавливалось в первом примере.

Да... Фигня получается.
Я щАз занят. Если проблема не отвалится, напиши - бум бороть.
8)
Удачи.

ок

SQLDMO Найти похожие ветки