Как опустить системные базы данных, используя SMO в For Next

Question

Прочитав ответное сообщение Криса Дайвера, я нашел SMO "список баз данных" очень полезным Вот код:

For Each db As Database In server.Databases
    Me.ComboBox1.Items.Add(db.Name)
Next

Приведенный выше код перечисляет все базы данных на SQL Server 2008 R2. Я хотел бы опустить системные базы данных из приведенных выше результатов кода.

Спасибо.

Answer 1

Вы можете проверить базу данных. Не добавляйте, если его система дБ. Вот кусок кода для этого

Dim value As Boolean

For Each db As Database In server.Databases
    value = db .IsSystemObject
    if NOT value  Then
        Me.ComboBox1.Items.Add(db.Name)
    End If
Next