R7.24 Alle Datenbanken und Tabellen ermitteln

Aufgabe

Sie möchten einen unbekannten SQL Server analysieren und alle Datenbanken und die darin enthaltenen Tabellen auflisten.

Lösung

Möchten Sie den Inhalt des Servers analysieren, können Sie sich über die Databases- bzw. die Tables-Collection der DMO tiefe Einblicke verschaffen.

Oberfläche

Ein einfaches Formular mit einem Textfeld und zwei Befehlsschaltflächen.

Quelltext

Option Explicit

Private Sub OK_Click()
    Dim serv As New SQLDMO.SQLServer
    Dim db As New SQLDMO.Database
    Dim tb As New SQLDMO.Table
    Dim i As Integer, j As Integer

Verbindung öffnen:

serv.LoginSecure = True
serv.LoginTimeout = 8
serv.Connect ".\SQLEXPRESS"

Alle Datenbanken abfragen:

For i = 1 To serv.Databases.Count

Eintrag abrufen:

Set db = serv.Databases.Item(i) ...

Get Microsoft Access Programmierrezepte now with the O’Reilly learning platform.

O’Reilly members experience books, live events, courses curated by job role, and more from O’Reilly and nearly 200 top publishers.

Start your free trial