Access ASP SQL Server VBA NET - Форумы по проектированию

LEADERSOFT.ru Разработка на заказ программ и сайтов

Форумы по информационным технологиям

Начало

Forums

Регистрация | Вход

Форумы

Поиск

Список форумов

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: База данн...

Тема: База данных

15.06.2007 21:08:51

Павел10

1 сообщения

Тема: База данных

У меня разделенная БД
С ней работают несколько пользователей
Можно ли узнать один я работаю с БД или нет

P.S. Общие вопросы по базе данных
Автор: Павел от 12.11.2004 14:50:22 Источник ...

15.06.2007 21:08:51

All

4316 сообщения

RE: База данных

' Или смотрите 10 пример la_prot.mdb
Function funGetUsersDataBase()
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim myValue

' Открываем запрос с информацией о пользователях подключенных
' к базе данных (константа=adSchemaProviderSpecific) и просматриваем
' все поля
Me.progress = ""
Set rst = CurrentProject.Connection.OpenSchema(-1, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")
With rst
Do Until .EOF
Me.progress = Me.progress & "Пользователь: " & vbNewLine
For Each fld In .Fields
myValue = Split(Nz(fld.Value, "Null"), vbNullChar, 2, vbBinaryCompare)
Me.progress = Me.progress & " " & fld.Name & "=" & myValue(0) & vbNewLine
Next
.MoveNext
Loop
End With

' Выход из программы
rst.Close
Set fld = Nothing
Set rst = Nothing
End Function

P.S. Общие вопросы по базе данных
Автор: Admin от 0:00:00 Источник ...

Страница 1 из 1

Программирование

Microsoft Access. Файлы mdb и accdb

Тема: База данн...

Поиск

Список форумов

Начало | Forums