Rubrik: Datenbanken · ADO | VB-Versionen: VB5, VB6 | 30.04.07 |
Tabellen aus Access-DB ausblenden (ADO) Wussten Sie, dass man durch Einsatz von DB-Properties ganze Tabellen aus einer Datenbank verschwinden lassen kann? | ||
Autor: Dieter Otter | Bewertung: | Views: 10.406 |
www.tools4vb.de | System: Win9x, WinNT, Win2k, WinXP, Win7, Win8, Win10, Win11 | Beispielprojekt auf CD |
Vor kurzem haben wir gezeigt, wie man eine Datenbank-Tabelle für die Bearbeitung unter der MS-Access Oberfläche unsichtbar machen kann:
Tabellen aus Access-DB ausblenden (DAO)
Der Tipp beschrieb hierbei die Vorgehensweise wie DAO. Heute möchten wir das Ganze nach ADO umsetzen.
Dim oConn As ADODB.Connection Dim oCat As New ADOX.Catalog Dim sConn As String ' Connection öffnen On Error GoTo ErrHandler Set oConn = New ADODB.Connection With oConn .CursorLocation = adUseClient .Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & txtFile.Text & ";" & _ "Persist Security Info=False;" End With ' aktuelle Verbindung als aktive Verbindung zuweisen With oCat .ActiveConnection = oConn With .Tables("Tabelle") ' Attribut "unsichtbar" setzen .Properties("Jet OLEDB:Table Hidden in Access") = True End With End WIth ' Connection-Objekt schließen oConn.Close Set oConn = Nothing
Mit diesem Code ist die Tabelle unter MS-Access ab sofort nicht mehr sichtbar.
ACHTUNG!
Wird eine Datenbank, die unsichtbare Tabellen enthält, komprimiert, werden die ausgeblendeten Tabellen autom. und kommentarlos gelöscht!
Die sollten vor der DB-Komprimiereung also unbedingt die ausgeblendeten Tabellen vorher wieder einblenden:
... ' aktuelle Verbindung als aktive Verbindung zuweisen With oCat .ActiveConnection = oConn With .Tables("Tabelle") ' Tabelle wieder sichtbar machen .Properties("Jet OLEDB:Table Hidden in Access") = False End With End WIth ...