Amigao.. hoje coloquei no repositorio um exemplo de monitoramento de usuarios na rede...
Estou a coloca-lo no meu...
Importei os form.. codigos e tabelas...
Mas....
'irá mostrar todos os usuários atualmente conectados a um banco de dados
'* com base nas informações fornecidas no Microsoft KnowledgeBase *
Private Sub Transfer_UserRosterMultipleUsers(ByVal strPath_Filename_ToBackend As String)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strRowSource As String
Dim strUserToCheck As String
olha o erro amigao... e a referencia Dao.3.6 e tal..
Mas se a marco.. fala que ja tem uma sendo usada...
a 12....
Estou a coloca-lo no meu...
Importei os form.. codigos e tabelas...
Mas....
'irá mostrar todos os usuários atualmente conectados a um banco de dados
'* com base nas informações fornecidas no Microsoft KnowledgeBase *
Private Sub Transfer_UserRosterMultipleUsers(ByVal strPath_Filename_ToBackend As String)
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strRowSource As String
Dim strUserToCheck As String
olha o erro amigao... e a referencia Dao.3.6 e tal..
Mas se a marco.. fala que ja tem uma sendo usada...
a 12....