Seite 1 von 1
DB Wie schreibbar ermtteln?
Verfasst: Mo, 16.07.2007 10:35
von 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
Re: DB Wie schreibbar ermtteln?
Verfasst: Di, 17.07.2007 01:43
von 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?