Практическая работа 23. Базы данных. Свойства рабочего пространства
Date: 2015-10-07; view: 401.
В разделе 4.2 перечислены свойства рабочего пространства. Введите код, данный ниже, обеспечивающий вывод на экран этих свойств; результат выполнения проекта дан на
Private Sub Command1_Click()Dim WS As WorkspaceDim property As Object ' описание объектной переменной' описание переменной для хранения сообщенияDim str As String' проход по всем рабочим пространствамFor Each WS In DBEngine.Workspaces ' проход по всем свойствам текущего WorkspaceFor Each property In WS.Properties str = str & property.Name & "=" & property.ValueNextMsgBox str, vbInformation 'синтаксис функции MsgBox дан в работе 44NextEnd Sub
Рис. 4.3.Свойства рабочего пространства
| <== previous lecture | | | next lecture ==> |
| Практическая работа 22. Базы данных; DAO | | | Использование инструкций SQL |