Kicking users out of a database.
Posted on 2004-09-15
I am working with a shared database (not secured). I have the ability to see who is in my database by using the following code:
Dim cn As New ADODB.Connection
Dim cn2 As New ADODB.Connection
Dim RS As New ADODB.Recordset
Dim i, j As Long
cn.Provider = "Microsoft.Jet.OLEDB.4.0"
cn.Open "Data Source=T:\Operations\Funding Reports\Funding & Wire Acct Reports\Commercial Funding\Secured.mdw"
cn2.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=T:\Operations\Funding Reports\Funding & Wire Acct Reports\Commercial Funding\Secured.mdw"
Set RS = cn.OpenSchema(adSchemaProviderSpecific, _
Debug.Print RS.Fields(0).Name, "", RS.Fields(1).Name, _
"", RS.Fields(2).Name, RS.Fields(3).Name
While Not RS.EOF
Debug.Print RS.Fields(0), RS.Fields(1), _
I want to be able to kick users out one at a time and/or all at the same time. These individuals are very sensitive so I don't want to just kill their access. Is there a way that I can notify them that they will be kicked out prior to actually doing it?