VB-Homepage Tipp 302

Anzeige aller geöffneten DB's und Tabellen [BAS-Modul]

Datenbankprogrammierung gehört wohl zu den am häufigsten benötigten Angelegenheiten, in der "ernsten" Programmierung und manch einer hat sich gerade dieses Themas besonders angenommen, so wie Stephan, dem wir diesen Tipp zu verdanken haben (und ich hab noch zwei in der Mail liegen, wo ich noch nicht zum Auswerten gekommen bin)

Auf alle Fälle erstmal besten Dank an diesen fleißigen Tipp Produzenten und vielleicht können Sie ja diesen Tipp gut gebrauchen, wenn Sie viel mit Datenbanken arbeiten bzw. viele DB's und Tabellen öffnen, bearbeiten,
schließen ... , dann binden Sie den Tipp einfach mit in Ihr Projekt ein, lassen die Auswertung von einem Timer ständig aktualisieren und haben immer Überblick, welche DB's und Tabellen gerade geöffnet sind.

Sub DbNames(objektname As Object) 'objektname = Ausgabeobjekt (ZBsp. List1)

Dim SzDb As Integer
Dim SzRs As Integer 'Schleifenzähler

objektname.Clear
For SzDb = 0 To DBEngine.Workspaces(0).Databases.Count - 1
objektname.AddItem DBEngine.Workspaces(0).Databases(SzDb).Name
For SzRs = 0 To DBEngine.Workspaces(0).Databases(SzDb).Recordsets.Count - 1
objektname.AddItem DBEngine.Workspaces(0).Databases(SzDb).Recordsets(SzRs).Name
Next
Next

End Sub


Tipp-Download

Quelle : Stephan / SWMedici@AOL.COM

Zurück zur Übersichtsseite