DB Wie schreibbar ermtteln?

[hr.hartwig]

Hallo
Wie kann ich bei einer Datenbank abfragen,
ob die Tabelle schreibbar ist?
z.B If Not ...hasbyName"Meine Tabelle" writable Then Msgbox "Kann nicht in Tabelle schreiben"

Danke für Hinweise
Viele Grüße,
Hotti

[komma4]

Code: Alles auswählen

Sub base_TabellenRechte
REM ===========================================
REM Für Hotti, oooinfo 13167, 2007-07-17
REM Dieses Beispiel ohne Abfangen von Fehlerbedingungen!
REM ===========================================
oDBKontext = CreateUnoService( "com.sun.star.sdb.DatabaseContext" )
' registrierte Datenquelle
oDB = oDBKontext.getByName( "DBName" )
' user und passwort, wenn nötig
oVerbindung = oDB.getConnection( "", "" )
oTabellen = oVerbindung.getTables()
oTabelle = oTabellen.getByName( "Tabellenname" )
' Anzeige der Rechte-Bitmap
print oTabelle.Privileges 
End Sub

Die Konstanten findest Du hier

War es das?