Пример VB-4. Просмотр списка пользователей базы данных
Этот пример такой же простой, как и второй — здесь всего лишь формируется список пользователей базы данных, выбранной в окне комбинированного списка. На рис. 23.11 представлена форма (в режиме разработки), в следующей далее таблице приведены свойства элементов формы.
Рис. 23.11
Форма для просмотра списка пользователей базы данных сервера (в режиме разработки)
| Тип элемента | Свойство, которое изменено (используется в коде) | Значение | Примечание |
| UserForm | Name | Form1 | Имя формы, на которое можно ссылаться в коде. |
| Caption | Тестирование SQL-DMO (4) | Заголовок. | |
| Frame | Name | Frame1 | |
| Caption | Базы данных SQL Server | Текст – заголовок для Combo1. | |
| ComboBox | Name | Combo1 | Список для отображения (и выбора) наименований баз данных. |
| Frame | Name | Frame2 | |
| Caption | Пользователи | Текст – заголовок для List1. | |
| ListBox | Name | List1 | Список для отображения пользователей выбранной в Combo1 базы данных. |
| TextBox | Name | Text1 | Текстовое окно для ввода нового login. |
| CommandButton | Name | CmdCreate | Кнопка для создания нового пользователя базы данных. |
| Caption | Создать | ||
| CommandButton | Name | CmdExit | Кнопка для окончания работы с приложением. |
| Caption | Выход |
В листинге 23.4 приведен код модуля формы, а на рис. 23.12 — форма в режиме выполнения. В процедуре Form_Load список баз данных сервера заносится в комбинированный список Combo1 (строки 14–17). После формирования списка баз данных в процедуре загрузки формы вызывается событийная процедура Combo1_Click(строка 20), в которой формируется список таблиц выбранной (текущей) базы данных. Для доступа к именам пользователей используется коллекция obj1(Trim(Combo1.Text)).Users (строка 32) и свойство пользователя Name(строка 33).
Листинг 23.4 Код модуля формы для просмотра списка пользователей базы данных
1: Dim sqlOb As SQLDMO.SQLServer
2: Dim obj1 As Object
3:
4:
5: Private Sub Form_Load()
6:
7: Set sqlOb = New SQLDMO.SQLServer
8:
9: 'подключиться к SQL Server с полномочиями администратора:
10: sqlOb.Connect "TOSHIBA-USER", "sa", ""
11: Set obj1 = sqlOb.Databases
12:
13: 'занести в Combo1 список баз данных:
14: For Each dbs In obj1
15: Combo1.AddItem dbs.Name
16: Combo1.Text = dbs.Name
17: Next dbs
18:
19: ' "щекнуть"Combo1:
20: Combo1_Click
21:
22: End Sub
23:
24:
25: Private Sub Combo1_Click()
26: 'занести в список List1 таблицы выбранной в Combo1 базы
27:
28: Frame2.Caption = "Пользователи базы '" & Trim(Combo1.Text) & "'"
29:
30: List1.Clear
31:
32: For Each tbl In obj1(Trim(Combo1.Text)).Users
33: List1.AddItem tbl.Name
34: Next tbl
35:
36: End Sub
37:
38: Private Sub CmdCreate_Click()
39: 'создать нового пользователя для выбранной базы данных
40:
41: Dim SQLDMOLogins As SQLDMO.Logins
42: Dim SQLDMOLogin As SQLDMO.Login
43: Dim SQLDMOuser As SQLDMO.User
44: Dim SQLDMOdatabase As SQLDMO.Database
45:
46: 'выбранная база данных:
47: Set SQLDMOdatabase = obj1(Trim(Combo1.Text))
48:
49:
50: 'коллекция Logins:
51: Set SQLDMOLogins = sqlOb.Logins
52:
53: 'новый Login:
54: Set SQLDMOLogin = New SQLDMO.Login
55: SQLDMOLogin.Name = Text1.Text
56: SQLDMOLogin.Type = SQLDMOLogin_Standard
57:
58: 'добавить Login к коллекции Logins:
59: SQLDMOLogins.Add SQLDMOLogin
60:
61: 'новый User
62: Set SQLDMOuser = New SQLDMO.User
63: SQLDMOuser.Login = SQLDMOLogin.Name
64: SQLDMOuser.Name = SQLDMOLogin.Name & "_user"
65:
66: 'добавить нового пользователя к выбранной базе данных:
67: SQLDMOdatabase.Users.Add SQLDMOuser
68:
69: sqlOb.Close
70:
71: Form_Load
72:
73: End Sub
74:
75:
76: Private Sub CmdExit_Click()
77:
78: sqlOb.Close
79: Unload Me
80:
81: End Sub
Рис. 23.12
Форма для просмотра списка пользователей базы данных сервера (в режиме выполнения)
В строках 38–73 описана событийная процедура кнопки Создать. Эта процедура создает новый login (строки 53–59) для SQL Server и user (строки 62–67) для выбранной в Combo1 базы данных. После создания login и user вызывается процедура Form_Load (строка 71), в которой обновляется список List1(рис. 23.13). Именно поэтому в процедуре список перед заполнением (32–34) очищается (строка 30).
Рис. 23.13
После создания login и user вызывается процедура Form_Load, в которой обновляется список List1
На рис. 23.14 показан список пользователей базы данных (в окне Interprise Manager) после создания нового пользователя в окне Тестирование SQL-DMO (4).
Рис. 23.14
Cписок пользователей базы данных (в окне Interprise Manager) после создания нового пользователя в окне Тестирование SQL-DMO (4)