| |
|
|
| | киньте в меня кодом, плиз....
кто знает, как узнать имена всех юзьверевь, кои в данный момент подконекшены к базе?
спасибки! | |
| |
| |
| |
|
|
| | усё, ужо не надо, нарыл сам.
вот:
Sub OpenJetUserInfo(strDbPath As String)
Dim cnn As ADODB.Connection
Dim rst As ADODB.Recordset
Dim fld As ADODB.Field
Dim strConnect As String
'Определяем строку подключений
strConnect = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDbPath
Set cnn = New ADODB.Connection
cnn.Open strConnect
'создаем набор записей с помощью метода OpenSchema
Set rst = cnn.OpenSchema(Schema:=adSchemaProviderSpecific, _
SchemaID:="{947bb102-5d43-11d1-bdbf-00c04fb92675}")
'выведем информацию о пользователе в окно отладки
With rst
Do Until .EOF
For Each fld In</font> .Fields
Debug.Print fld.Name, fld.Value
Next fld
.MoveNext
Debug.Print
Loop
End With
End Sub | |
| |
| |
| |
|
|
| | ВСётаки не то нарыл что мне надо
есть у кого код, как узнать с любого рабочего места юзьверя, список всез других юзеров, кои сейчас подконекчены к базе на серваке?
спасибо | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=358
http://hiprog.com/index.php?option=com_content&task=view&id=603
http://hiprog.com/index.php?option=com_content&task=view&id=610 | |
| |
| |
