![]() |
Практическая работа 23. Базы данных. Свойства рабочего пространстваDate: 2015-10-07; view: 396. В разделе 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
|