| Вопрос: Workspace | Добавлено: 12.01.10 18:59 |
Автор вопроса:  ηikolaŠ~rus | ICQ: 604058327 |
|
Private Sub Command1_Click()
Dim WS As Workspace Dim property As Object ' описание объектной переменной ' описание переменной для хранения сообщения Dim str As String ' проход по всем рабочим пространствам For Each WS In DBEngine.Workspaces ' проход по всем свойствам текущего Workspace For Each property In WS.Properties str = str & property.Name & "=" & property.Value Next MsgBox str, vbInformation 'синтаксис функции MsgBox дан в работе 44 Next End Sub Здрасте!Почему не идет вроде все сделал все полключил?? |
| Ответы | Всего ответов: 0 |
Страница: