Этот пример показывает, как легко можно просмотреть содержимое любой таблицы базы данных сервера. На рис. 23.18 представлена форма (в режиме разработки), в следующей далее таблице приведены свойства элементов формы.
Рис. 23.18
Форма для просмотра содержимого таблицы базы данных (в режиме разработки)
| Тип элемента | Свойство, которое изменено (используется в коде) | Значение | Примечание |
| UserForm | Name | Form1 | Имя формы, на которое можно ссылаться в коде. |
| Caption | Тестирование SQL-DMO (6) | Заголовок. | |
| Frame | Name | Frame1 | |
| Caption | Базы данных SQL Server | Текст – заголовок для Combo1. | |
| ComboBox | Name | Combo1 | Список для отображения (и выбора) наименований баз данных. |
| Frame | Name | Frame2 | |
| Caption | Таблица | Текст – заголовок для Combo2. | |
| ComboBox | Name | Combo2 | Список для отображения (и выбора) наименований таблиц выбранной в Combo1 базы данных. |
| CommandButton | Name | Command1 | Кнопка для окончания работы с приложением. |
| Caption | Выход | ||
| Frame | Name | Frame3 | |
| Caption | Поля | Текст – заголовок для MSFlexGrid1. | |
| MSFlexGrid | MSFlexGrid1 | Сетка для отображения данных в полях. |
В листинге 23.6 приведен код модуля формы, а на рис. 23.19 — форма в режиме выполнения. Здесь, как и в проекте третьего примера, в процедуре загрузки формы формируется список баз данных сервера для комбинированного списка Combo1 (строки 12–15) и вызывается событийная процедура этого элемента управления (строка 17). В коде событийной процедуры Combo1_Click формируется список таблиц для базы данных (с именем в свойстве Combo1.Text) для комбинированного списка Combo2 (строки 29–32) и вызывается событийная процедура этого элемента управления (строка 34).
В коде событийной процедуры Combo2_Click объявляется переменная qsq с типом SQLDMO.QueryResults. В эту переменную можно возвращать результат T-SQL-запроса, т.е. данные таблицы. В строке 46 формируется строка с T-SQL-запросом, а в строках 51–52 при помощи метода ExecuteWithResults T-SQL-запрос выполняется с передачей результата объекту qsq.
В остальной части процедуры Combo2_Click формируются отображаемые свойства элемента MSFlexGrid. Сначала (строки 58–67) с использованием свойств Name и InPrimaryKey объектов коллекции obj1(Trim(Combo1.Text)).Tables(Trim(Combo2.Text)).Columns формируются заголовки полей сетки. Затем (строки 74–82) с использованием массива с результатом T-SQL-запроса qsq.GetColumnString формируются элементы сетки со значениями полей запроса.
Листинг 23.6 Код модуля формы для просмотра содержимого таблицы базы данных
1: Dim sqlOb As SQLDMO.SQLServer
2: Dim obj1 As Object
3:
4: Private Sub Form_Load()
5:
6: Set sqlOb = New SQLDMO.SQLServer
7: sqlOb.Connect "VOVA", "Dmitry", "Dmitry"
8:
9: Set obj1 = sqlOb.Databases
10:
11:
12: For Each dbs In obj1
13: Combo1.AddItem dbs.Name
14: Combo1.Text = dbs.Name
15: Next dbs
16:
17: Combo1_Click
18:
19: End Sub
20:
21: Private Sub Combo1_Click()
22: 'обработчик комбинированного списка 'База данных SQL Server'
23: 'занести в список Combo2 таблицы выбранной в Combo1 базы
24:
25: Frame2.Caption = "Таблицы базы '" & Trim(Combo1.Text) & "'"
26:
27: Combo2.Clear
28:
29: For Each tbl In obj1(Trim(Combo1.Text)).Tables
30: Combo2.AddItem tbl.Name
31: Combo2.Text = tbl.Name
32: Next tbl
33:
34: Combo2_Click
35:
36: End Sub
37:
38: Private Sub Combo2_Click()
39: 'обработчик комбинированного списка 'Таблица'
40: 'заполннить сетку данными текущей таблицы
41:
42: Dim qsq As SQLDMO.QueryResults
43:
44: MSFlexGrid1.Clear
45:
46: Frame3.Caption = "Содержимое таблицы '" & Trim(Combo2.Text) & "'"
47:
48: sql_query = "SELECT * FROM " & Trim(Combo2.Text)
49:
50:
51: Set qsq = _
52: sqlOb.Databases(Trim(Combo1.Text)).ExecuteWithResults(sql_query)
53:
54: MSFlexGrid1.Cols = qsq.Columns + 1
55:
56:
57: 'заполнение заголовков таблицы:
58: MSFlexGrid1.Row = 0 'строка заголовков
59: i = 1
60: For Each colu In _
61: obj1(Trim(Combo1.Text)).Tables(Trim(Combo2.Text)).Columns
62:
63: addText = colu.Name
64: If colu.InPrimaryKey Then addText = addText & " (primary key)"
65:
66: MSFlexGrid1.Col = i 'номер колонки
67: MSFlexGrid1.Text = addText 'заголовок
68:
69: i = i + 1
70:
71: Next colu
72:
73: 'заполнение сетки содержимым полей:
74: For i = 1 To qsq.Rows
75: ss = ""
76: For j = 1 To qsq.Columns
77: ss = ss & vbTab & qsq.GetColumnString(i, j)
78: Next
79:
80: MSFlexGrid1.AddItem ss
81:
82: Next
83:
84: End Sub
85:
86: Private Sub Command1_Click()
87: Unload Me
88: End Sub
Рис. 23.19
Форма для просмотра содержимого таблицы базы данных (в режиме выполнения)
