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:     [ Jetzt bewerten ]	Views:  1.389
www.tools4vb.de	System:  Win9x, WinNT, Win2000, WinXP, Vista	Beispielprojekt auf CD

Geben Sie hier Ihre persönliche Bewertung ab! Bisher wurde noch keine Bewertung abgegeben.

sehr gut     gut     nützlich     mittelmäßig     mangelhaft

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
 
...