Access db.

Kan man få fram hur många databas kopplingar
som finns till en db?

Denna funktionen använder jag i ett program och den listar alla connections mot en Access-databas, bara lite enkla ändringar som ska till för att få ut antalet istället:

<code>
Function IsOpenedExclusive() As Boolean
IsOpenedExclusive = False
Dim rs As ADODB.Recordset
Set rs = con.OpenSchema(adSchemaProviderSpecific, , "{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Dim strUsers As String
Dim intUsers As Integer
Do While Not rs.EOF
strUsers = strUsers & vbCrLf & Left(rs.Fields(1), Len(Trim(rs.Fields(1))) - 1) & "@" & Left(rs.Fields(0), Len(Trim(rs.Fields(0))) - 1)
intUsers = intUsers + 1
rs.MoveNext
Loop
rs.Close
Set rs = Nothing

If intUsers > 1 Then
MsgBox "Dessa användare är inloggade i databasen:" & vbCrLf & strUsers, vbInformation
Exit Function
End If
IsOpenedExclusive = True
End Function
</code>

/Johan

tjusigt :-)

Känner igen som win unik nyckel men vet inte riktigt vad den gör??
"{947bb102-5d43-11d1-bdbf-00c04fb92675}")

Tack!

Jag kommer inte ihåg exakt vad den gjorde, och jag hittar inte sidan på MSDN som beskrev det. Jag vill minnas att den måste vara unik bland de som loggar in på databasen, lite info om funktionen finns här: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/adoce31/html/ado30ref_29.asp

/Johan

Tack!!! :-)