Пример VB-1. Просмотр списка баз данных сервера

Целью данного примера является разработка приложения, которое позволит просмотреть список баз данных сервера. На рис. 23.5 представлена форма (в режиме разработки), в следующей далее таблице приведены свойства элементов формы.

Рис. 23.5

Форма для просмотра списка баз данных сервера (в режиме разработки)

В листинге 23.1 приведен код модуля формы, а на рис. 23.6 форма показана в режиме выполнения. В строке 2 объявляется переменная sqlOb типа SQLDMO.SQLServer. В строке 5 создается экземпляр объекта SQLDMO.SQLServer, а в строке 6 для этого экземпляра выполняется метод Connect с параметрами (имя сервера, имя пользователя и его пароль). В строке 8 объектной переменной obj1 назначается ссылка на коллекцию баз данных экземпляра сервера. В строках 10–12 в цикле создается список List1 из имен баз данных (членов коллекции Databases).

Листинг 23.1 Код модуля формы для просмотра списка баз данных сервера

1: Private Sub Form_Load()

2: Dim sqlOb As SQLDMO.SQLServer

3: Dim obj1 As Object

4:

5: Set sqlOb = New SQLDMO.SQLServer

6: sqlOb.Connect "TOSHIBA-USER", "Nata", "Nata"

7:

8: Set obj1 = sqlOb.Databases

9:

10: For Each dbs1 In obj1

11: List1.AddItem dbs1.Name

12: Next dbs1

13:

14: End Sub

15:

16: Private Sub Command1_Click()

17: Unload Me

18: End Sub

Рис. 23.6

Форма для просмотра списка баз данных сервера (в режиме выполнения)