|
|
Postada em 22/02/2006 12:03 hs
Tenho uma aplicação que utiliza um servidor MySQL para conectar-se a uma base de dados. O aplicativo roda em rede, e para cada cliente utilizo apenas um servidor. Gostaria de saber se existe alguma forma de verificar quantos usuários estão conectados ao servidor da base quando o meu aplicativo for iniciado? |
|
TÓPICO EDITADO
|
|
|
|
|
|
Maxcim
|
GUARULHOS
SP - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 22/02/2006 15:08 hs
show processlist pode ser rodado diretamente no front ou no programa atravez da conexao.execute("show processlist") e carrega as informaçoes num grid |
|
TÓPICO EDITADO
|
|
|
|
|
|
Postada em 22/02/2006 18:39 hs
tentei: MsgBox Db.Execute("show processlist")
E ñ funcionou! |
|
|
|
|
|
Postada em 22/02/2006 18:58 hs
Achei essa dica, mas ñ estou sabendo como utilizá-la: SERVIDOR
No aplicativo de servidor cria a seguinte rotina:
...
WskSvr(0).LocalPort = 1050 - > Utilize a porta que desejar.
WskSvr(0).Listen
...
Private Sub WskSvr_ConnectionRequest(Index As Integer, ByVal requestID As Long)
On Error Resume Next
If Index = 0 Then
CnnSvr = CnnSvr + 1
Load WskSvr(CnnSvr)
WskSvr(CnnSvr).Accept requestID
End If
End Sub
Esta rotina fará com que toda vez que for solicitada uma nova conexão ele incrementa o contador CNNSVR e pede para carregar um novo controle WINSOCK para receber esta solicitação.
CLIENTE
No Aplicativo de cliente as funções serão as mesmas.
WskCli(0).RemoteHost = "127.0.0.1" -> Utilize o endereço de IP ou o hostname do servidor.
WskCli(0).RemotePort = 1050 -> Utilize a mesma porta que foi utilizada no servidor. Afinal, quantos controles Winsock preciso? |
|
|
|
Maxcim
|
GUARULHOS
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 23/02/2006 13:42 hs
'acrecente um mshflexgrid ao seu projeto dim restdados as new adobd.recordset SQL = "show processlist"
Set RSTDados = Conexao.Execute(SQL)
Set MSHFlexGrid1.DataSource = RSTDados |
|
|
|
