[Access2k] Instructie "Grant"

[Stefke]

code:

GRANT (Instructie)
Met deze instructie verleent u specifieke machtigingen aan een bestaande gebruiker of groep.

Syntaxis
GRANT {machtiging[, machtiging, …]} ON
    {TABLE tabel |    
    OBJECT object|

CONTAINER container } TO {machtigingnaam[, machtigingnaam, …]}


--------------------------------------------------------------------------------

De instructie GRANT bevat de volgende onderdelen:

Onderdeel Beschrijving 
machtiging De machtiging of machtigingen die worden verleend.
Machtigingen geeft u op met de volgende sleutelwoorden: 
SELECT, DELETE, INSERT, UPDATE, DROP, SELECTSECURITY, UPDATESECURITY, 
DBPASSWORD, UPDATEIDENTITY, CREATE, SELECTSCHEMA, SCHEMA en UPDATEOWNER.
 
tabelnaam - Elke geldige tabelnaam. 
object - Elk object dat geen tabel is. Een voorbeeld is een opgeslagen query (weergave of procedure). 
container - De naam van een geldige container. 
machtigingnaam - De naam van een gebruiker of groep.

Met deze instructie moet het mogelijk zijn om vanuit VBA userrechten van users in je werkgroepbestand te wijzigen.

Er staat echter niets bij over hoe en waar je deze instructie moet gebruiken, en ik ben een beetje uit Access geraakt. De helpfile van Access2k geeft niet meer informatie dan wat hier staat, de helpfile van Access97 gaf veel meer (voorbeelden, uitleg) maar Access97 kent deze instructie niet.

Wie kan mij vertellen hoe ik dit moet gebruiken?


Wat ik wil maken is dat een gebruiker die inlogt voor heel even toegang krijgt tot een tabel en die toegang moet daarna weer afgesloten worden.
Dit om te voorkomen dat gebruikers bepaalde informatie lezen die ze niet mogen lezen, en die door de code gebruikt wordt voor bepaalde zaken.

[ Voor 11% gewijzigd door Stefke op 27-05-2003 11:12 ]

[mulder]

Dit is dacht ik SQL, geen VBA.

[whoami]

De GRANT instructie is een SQL instructie.

Je kunt ze vanuit VBA uitvoeren net zoals je andere SQL commando's (INSERT, UPDATE, ...) vanuit VBA uitvoert

[Stefke]

Met Docmd.RunSQL dus dan?

Edit: nee, volgens mij moet je die anders aanspreken

[ Voor 72% gewijzigd door Stefke op 27-05-2003 13:13 ]

[Stefke]

Nog iemand die me kan vertellen hoe ik zon SQL instructie ook weer moet maken?

[Gerco]

CurrentDB.Execute "SQL"

Als ik me niet vergis.

[Stefke]

die ken ik ook nog uit een ver verleden, eens effe proberen

Edit: ik krijg dezelfde foutmelding als bij de bovenstaande

code:

Er is een ongeldige SQL-instructie gevonden. Delete, Insert, Procedure etc etc werd verwacht (fout 3129)

Andere mogelijkheden?

[ Voor 63% gewijzigd door Stefke op 02-06-2003 13:36 ]

[farlane]

Hmm, GRANT is een onderdeel van de DDL van de Jet SQL engine. Die wordt volgens mij door ADOX geleverd.

Hen je deze gereferenced ?
Kan het zijn dat je een provider gebruikt die deze instructies niet begrijpt ?

[Stefke]

ehm he?

Ik kon een jaar geleden redelijk overweg met VBA en access, maar dat is nogal verwaterd en ik heb geen idee waar je het over hebt, gaat me net te ver.

Het kan zijn dat de installatie van access hier niet zo geweldig is, maar dat weet ik zo niet

[farlane]

Naast het standaard ADO component ( MS ActiveX Data Objects X.X ) kun je in een VBA project ook de ADOX ( MS ADO Ext. X.X for DDL and Security ) toevoegen.

Deze heeft de objecten aan boord waarmee je die DDL acties die jij wil kan doen. Ik weet echter niet of ze ook nodig zijn als je die SQL instructies direct uitvoert, zoals je hierboven hebt aangegeven.

Ik zal wel ff proberen ..

Met deze code vanuit een VB project krijg ik een foutmelding dat het systeem mijn 'workgroup information file' niet kan vinden.

Nou weet ik weer niet wat dat is, maar de query lijkt hij wel te begrijpen.

Ik heb overigens niet die ADOX referentie aan mijn project toegevoegd.

Visual Basic:

Public Sub Main()

 Dim c As ADODB.Connection
 
 
 Set c = New ADODB.Connection
 
 
 Call c.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\weighing.mdb")
 
 
 Dim strSQL As String
 
 strSQL = "GRANT SELECT ON TABLE [tblUnitSets] TO Admin"
 
 c.Execute strSQL
 
 c.Close
 
End Sub

En Vanuit de VB editor in Access 2k krijg ik helemaal geen fout

Visual Basic:

Sub blaat()

On Error GoTo ErrorHandler

CurrentProject.Connection.Execute ("GRANT SELECT ON TABLE [tblUnitSets] TO Admin")

Exit Sub

ErrorHandler:

Debug.Print Err.Description

End Sub

[ Voor 15% gewijzigd door farlane op 02-06-2003 16:56 ]

[Annie]

Wat ik wil maken is dat een gebruiker die inlogt voor heel even toegang krijgt tot een tabel en die toegang moet daarna weer afgesloten worden.
Dit om te voorkomen dat gebruikers bepaalde informatie lezen die ze niet mogen lezen, en die door de code gebruikt wordt voor bepaalde zaken.

Kan je niet gewoon een view (query) aanmaken die de benodigde gegevens beschikbaar maakt voor je applicatie? Op deze query kan je dan vaste leesrechten geven. De overige gegevens blijven zo afgeschermd voor de gebruikers.

[Stefke]

niet dat ik weet. Conflicteren de rechten van zo+n query niet met de rechten van de onderliggende tabel? Ik zou het even moeten uitproberen

[Stefke]

Dat werkt niet, zoals verwacht hebben gebruikers dan wel rechten om de query te lezen, maar niet de gegevens van de tabel waarop die query gebaseerd is

[farlane]

Had je die code van mij al geprobeerd ? Wat waren je bevindingen ?

[Boss]

Volgens mij kan je de rechten in Access niet met SQL instellen. Die commando's kent de SQL parser van Access gewoon niet en dan krijg je een fout.

Je kan wel met VBA code GROUPS en USERS aanpassen. Zoek maar eens in het objectenoverzicht op die termen.

[Stefke]

Heb die code nog niet geprobeerd, moet ik nog wel effe doen.

Hier heb ik nog iets anders gevonden:

Uitvoeringsrechten (RunPermissions), eigenschap


Met de eigenschap Uitvoeringsrechten (RunPermissions) kunt u in een omgeving met meerdere gebruikers in een beveiligde werkgroep de bestaande gebruikersmachtigingen vervangen. Hierdoor kunt u een query bekijken of een toevoeg-, verwijder-, tabelmaak- of bijwerkquery uitvoeren waarvoor u normaal geen machtiging hebt. Als gebruiker hebt u bijvoorbeeld alleen-lezen-machtiging voor query's, terwijl de eigenaar van de query's lees-/schrijfrechten heeft. Als de eigenaar de Uitvoeringsrechten (RunPermissions) instelt op de machtigingen van de eigenaar, kunt u een toevoegquery uitvoeren om records aan een tabel toe te voegen.

Instelling

De eigenschap Uitvoeringsrechten (RunPermissions) kent de volgende instellingen.

Instelling Beschrijving
Van eigenaar Aan alle gebruikers wordt dezelfde machtiging toegewezen als aan de eigenaar voor het bekijken of uitvoeren van de query.
Van gebruiker (Standaard) Gebruikers hebben alleen hun eigen machtiging om query's te bekijken of uit te voeren.


U kunt deze eigenschap instellen in het eigenschappenvenster van de query.

U kunt de eigenschap Uitvoeringsrechten (RunPermissions) ook instellen in de SQL-weergave van het queryvenster met behulp van de declaratie WITH OWNERACCESS OPTION in de SQL-instructie.

vb> SELECT Categorieën.Categorienummer, Categorieën.Categorienaam, Categorieën.Beschrijving FROM Categorieën WITH OWNERACCESS OPTION;

Dat laatste zou er voor moeten zorgen dat degene die de query uitvoert (de gebruiker) voor deze query dezelfde rechten krijgt als de eigenaar van de query (ik), effe proberen

Is te gebruiken als eigenschap instelling van de query of als toevoeging aan de query SQL

edit: dat werkt de normale gebruiker kan enkel dmv deze querie wel de gegevens uit de tabel lezen, terwijl de tabel zelf en de querieopbouw etc gesloten blijven.
En ik kan deze SQL query natuurlijk ook ook enkel in de code aanroepen, waardoor hij afgeschermd blijft van users (die geen rechten hebben om in de code te komen)


Die code van farlane ga ik ook nog proberen, want daarmee is het misschien mogelijk om binnen mijn accessprogramma een mogelijkheid te maken voor het beheren van bepaalde rechten door een "hogere" gebruiker, zonder dat die persoon daadwerkelijk in de database komt.


OVerigens had ik zelf dit al gefabriceerd een jaar terug:

code:

Set WrkJet = DBEngine.CreateWorkspace("", "adminlogin",
                               "adminwachtwoord", dbUseJet)

' door de userpermissions voor de licentietabel voor users
ENKEL toegankelijk te maken via code wordt 100% beveiligd
Set dbs = CurrentDb 'WrkJet.OpenDatabase("C:\WK_backend.mdb")
Set CtrTble = dbs.Containers!Tables

For Each Doc In CtrTble.Documents
    If Doc.Name = "licentie" Then
        MsgBox "Licentie"
        If Not CurrentUser() = "adminlogin" Then
            MsgBox Doc.UserName
            Doc.UserName = CurrentUser()
            MsgBox Doc.UserName
            Doc.Permissions = dbSecRetrieveData
            MsgBox Doc.Permissions
        End If
    End If
Next Doc

Hiermee worden de rechten ingesteld voor tabellen, helaas is het zo dat als een normale user inlogt ik de melding krijg dat deze gebruiker niet gemachtigd is om rechten in te stellen, m.a.w. de code kan alleen de rechten wijzigen als de ingelogde gebruiker dat ook mag.
En als ik dat in de database instel heeft die gebruiker automatisch ook toegang tot de tabel (wat ik dus niet wil)

Anyway, de optie van de query werkt iig afdoende, wellicht dat ik de code van farlane in bredere zin kan toepassen.

[ Voor 49% gewijzigd door Stefke op 03-06-2003 12:30 ]