Hello,
Could You Help Me???? I would be very thankfull

I have used AdOX.catalog to view users of a database and their permissions on this database.
I have written the following code

private sub Form_Load()

dim conn as new ADODB.Connection
dim sec as new ADOX.Catalog

con.Open "Provider=MSDAORA.1;User ID=ers;Data Source=ers;Persist Security Info=False", "ers", "hugo"
set sec.ActiveConnection = conn

Dim Permission As RightsEnum
Permission = sec.Users(0).GetPermissions("Orders", adPermObjTable)

End Sub

Where 'Orders' is a table in the Oracle Database 'ers'
It doesn't matter whether the database is Oracle or Access because the error appeares in the two cases

The error which face me is as follows:
(Object or provider is not capable of performing requested operation.)

Your friend, Shihab

I don't have Oracle, but with AccessXP it works just fine. I changed it little bit.... but it is still the same code. Try ORACLE not Microsoft provider.

As I said, I don't have Oracle here, but can't you look at ORACLE permisson tables?
http://www.ss64.com/orad/USER_TAB_PRIVS.html

jiri


Private Sub aaa()

Dim conn As New ADODB.Connection
Dim sec As New ADOX.Catalog
Dim Permission As RightsEnum

connString = "Provider=Microsoft.Jet.OLEDB.4.0;User ID=Admin; " & _
" Data Source=E:\My Documents\My Desktop\mYDatabase.mdb;Mode=Share Deny None;" & _
" Jet OLEDBystem database=C:\PROGRA~1\COMMON~1\System\SYSTEM.MDW;Je t OLEDB:Registry Path=SOFTWARE\Microsoft\Office\10.0\Access\Jet\4.0 ; "

'con.Open "Provider=MSDAORA.1;User ID=ers;Data Source=ers;Persist Security Info=False", "ers", "hugo"

sec.ActiveConnection = connString
Permission = sec.Users(0).GetPermissions("Switchboard Items", adPermObjTable)

End Sub

Please post your access version of this problem - also which version of access are you using ?

I used AccessXP and ADO 2.7

if we talk about ms access - you HAVE TO include path to system.mdw in the connection string. If you don't do it, you will be able to open recordset, but you won't be able to get permissions...

jiri