Пример VB-1. Просмотр списка баз данных сервера
Целью данного примера является разработка приложения, которое позволит просмотреть список баз данных сервера. На рис. 23.5 представлена форма (в режиме разработки), в следующей далее таблице приведены свойства элементов формы.
Рис. 23.5
Форма для просмотра списка баз данных сервера (в режиме разработки)
| Тип элемента | Свойство, которое изменено (используется в коде) | Значение | Примечание |
| UserForm | Name | Form1 | Имя формы, на которое можно ссылаться в коде. |
| Caption | Тестирование SQL-DMO (1) | Заголовок. | |
| Frame | Name | Frame1 | |
| Caption | Базы данных SQL Server | Текст – заголовок для Combo1. | |
| ListBox | Name | List1 | Список для отображения наименований баз данных. |
| CommandButton | Name | Command1 | Кнопка для окончания работы с приложением. |
| Caption | Выход |
В листинге 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
Форма для просмотра списка баз данных сервера (в режиме выполнения)