Acesso a DBF em rede - LentidÃ£o ao acessar simultÃ¢neamente

Yury · March 4, 2013

olÃ¡ pessoal, boa tarde

creio q esse assunto jÃ¡ foi abordado aqui no fÃ³rum, mas pesquisei todos os links e nÃ£o encontrei uma soluÃ§Ã£o

vou descrever o "problema":

uma determinada estaÃ§Ã£o da rede (chamarei de terminal A) chama um programa que lÃª um arquivo DBF indexado (CDX) por um campo tipo DATA, utilizando DBSEEK, e demora 20 segundos para finalizar a leitura do arquivo no intervalo solicitado

agora outra estaÃ§Ã£o (chamarei de terminal A chama o mesmo programa, sendo que a primeira estaÃ§Ã£o que chamou (terminal A) ainda estÃ¡ executando o programa ; o tempo de execuÃ§Ã£o do programa no terminal B atÃ© finalizar a leitura dos registros agora Ã© de 1 minuto

se o terminal A chamar novamente o programa, sem que o terminal B abandone, o tempo para finalizar tambÃ©m Ã© de 1 minuto, ou seja, demora nas duas estaÃ§Ãµes o mesmo tempo de 1 minuto quando o acesso ao programa Ã© simultÃ¢neo

quando 1 dos terminais abandona o programa, o terminal que permanece executando volta a obter o resultado em 20 segundos

jÃ¡ isolei os trechos do programa e constatei que:

- a "abertura dos arquivos" com DBUSEAREA mantÃ©m a mesma velocidade acessando por 1 terminal ou pelos 2 terminais

- o "fechamento dos arquivos" com CLOSE mantÃ©m a mesma velocidade acessando por 1 terminal ou pelos 2 terminais

- a velocidade de leitura no while acessando por um terminal Ã© muito mais rÃ¡pida do que quando estÃ¡ acessando pelos 2 terminais

portanto Ã© o LOOP que estÃ¡ sendo afetado pelo acesso simultÃ¢neo, perdendo desempenho

informaÃ§Ãµes sobre o ambiente onde foi testado isso:

- servidor com Windows Server 2012 Standart

- terminais com Windows 7 Professional

nas pesquisas que fiz sobre o assunto me deparei com inÃºmeras dicas falando sobre o cabeamento da rede, placa de rede, anti-vÃrus, etc...

mas posso lhes adiantar que a rede estÃ¡ funcionando ok e as estaÃ§Ãµes em que foi testado este comportamento estÃ£o com anti-vÃrus desabilitado e firewall do windows liberando arquivos DBF, CDX, FPT, etc... (testamos em vÃ¡rias estaÃ§Ãµes)

inclusive em um cliente que reclamou dessa situaÃ§Ã£o o comportamento Ã© o mesmo, testamos em vÃ¡rias estaÃ§Ãµes tambÃ©m para comprovar

a rotina q estamos utilizando para testar Ã© muito simples:

//-----------------------------------------------------------------------------

#include 'FiveWin.ch'

Function Teste()

cTime:=TIME()

Select 1
Use "M:\TESTE.DBF" Alias "NF" Shared
Set index to "M:\TESTE.CDX"

dDataIni  := CTOD("01/01/2013")
dDataFim  := DATE()
nContador := 0

NF->(DBSETORDER(1))
NF->(DBSEEK(DTOS(dDataIni),.T.))
WHILE !NF->(EOF()) .and. NF->NFDATA <= dDataFim

   nContador++
   NF->(DBSKIP())

ENDDO

? 'Tempo da leitura dos registros: ' + CRLF +; 
  ElapTime(cTime,TIME())             + CRLF +;
  NETNAME()                          + CRLF +;
  ALLTRIM(STR(nContador))+' registros lidos'  
  
// permanecer com esta mensagem em exibiÃ§Ã£o e chamar o programa de outro 
// terminal

CLOSE ALL

RETURN

//-----------------------------------------------------------------------------

este comportamento nÃ£o me parece normal , se alguÃ©m tiver alguma sugestÃ£o ou idÃ©ia eu agradeÃ§o

obrigado

Yury

kapiaba · March 4, 2013

// Tente:



   WHILE !NF->(EOF()) .and. NF->NFDATA <= dDataFim

 

      SYSREFRESH()

 

      IF EOF()

         EXIT

      ENDIF

 

      nContador++

 

      NF->(DBSKIP())

 

   ENDDO

Yury · March 4, 2013

olÃ¡ JoÃ£o

o sysrefresh() e o exit / eof() nÃ£o alteraram em nada o comportamento do programa

ou seja, a lentidÃ£o quando ocorre acesso simultÃ¢neo permanece

obrigado

Yury

xHarbour 1.0 / FW 08.1 / SQLLIB

kapiaba · March 4, 2013

Qual Ã© intuito desta funÃ§Ã£o, digo: O que ela tem que fazer na prÃ¡tica?

Yury · March 4, 2013

olÃ¡ JoÃ£o

esta funÃ§Ã£o Ã© somente um exemplo para testes

obrigado

Yury

paiva · March 5, 2013

Bom dia

nao Ã© M. do W7 ? eu tenho um Intel I7 2600 3.4 com 8GB men ran (+ so usa 4)

qq pc ate antigoes da de 10 nele. eÂ´absurdo isso. se abro uma NF emitida para mostra os itens se eÂ´num w2003 demoras 5 segundos isso via TS

aqui localmente no PC demora no MINIMO 20 segundos

e a Merda do W7 com certeza.

se abro net trava tudo se abre outlook trava tudo qq cois aque faz os outros 6 Nucleos ficam aguardando KKKKKK

Infelizmente no w2003 nao se conegue + usar o msn so versao antigona e NAo da para nem OLhar os cleintes + novos

e o jeito

se achar uma solucao avise

PAiva

emotta · March 5, 2013

Yuri, isso acontece porque voce estÃ¡ sobrecarregando o processador. Voce precisa fazer com que o processador dÃª um "respiro", senÃ£o ele vai a 100% e praticamente reserva o processamento somente para seu programa. Pra resolver Ã© importante que em cÃ³digos de processamento longo, que nÃ£o tem intervenÃ§Ã£o do usÃ¡rio, voce faÃ§a o seguinte:

nCont := 1

While !Eof()

If Mod(nCont++,100)==0

ThreadSleep(1)

EndIf

DbSkip()

EndDo

Agra no seu cÃ³digo ficaria o seguinte:

//-----------------------------------------------------------------------------

#include 'FiveWin.ch'

Function Teste()

cTime:=TIME()

Select 1
Use "M:\TESTE.DBF" Alias "NF" Shared
Set index to "M:\TESTE.CDX"

dDataIni := CTOD("01/01/2013")
dDataFim := DATE()
nContador := 0

NF->(DBSETORDER(1))
NF->(DBSEEK(DTOS(dDataIni),.T.))
WHILE !NF->(EOF()) .and. NF->NFDATA <= dDataFim

nContador++

If Mod(nContador,100)==0 // ALTEREI AQUI

ThreadSleep(1)

EndIf

NF->(DBSKIP())

ENDDO

? 'Tempo da leitura dos registros: ' + CRLF +;
ElapTime(cTime,TIME()) + CRLF +;
NETNAME() + CRLF +;
ALLTRIM(STR(nContador))+' registros lidos'

// permanecer com esta mensagem em exibiÃ§Ã£o e chamar o programa de outro
// terminal

CLOSE ALL

RETURN

//-----------------------------------------------------------------------------

Jorge Andrade · March 6, 2013

Pessoal boa noite

Posso dar uma de rivelino, como dizia ele uma patada atÃµmico, um belo chute. Verifique no W7 (OpÃ§Ãµes avanÃ§adas) qual a prioridade de processamento se equilibrado, dados, cache ou programa e no SERVER a parte de desempenho de equilibrio se dados ou programa, pode ser isso.

[]s,

Yury · March 7, 2013

obrigado pela dica Eduardo

vou testar e posto aqui o resultado

att

Yury

jbinfo · March 14, 2013

Boa noite Yuri,

Tambem estou tendo este problema em alguns clientes, algumas rotinas qdo acessado por mais de 1 usuario fica muito lenta....veja se consegue algum teste funcionar e retorne por favor...

AbraÃ§os

Leandro Bassiquette

JB Informatica

vagner · March 14, 2013

OlÃ¡,
Se for Win7 e for Home Edition, esquece, as vezes nem abrir o arquivo simultaneamente vc consegue:(

Yury · March 14, 2013

OlÃ¡ Eric

nos testes que realizei usei um DBF com 7000 registros

sobre as dicas q vc postou sobre quantidade de arquivos nas pastas, abrir com READONLY e executar o programa sem mais "nada" aberto eu jÃ¡ tentei fazer essas modificaÃ§Ãµes, mas nÃ£o surtiu efeito (na verdade li um post seu no Clipper On Line, se nÃ£o me engano, onde tinha essas dicas)

sobre executar como adm, vou testar

obrigado pela atenÃ§Ã£o

abraÃ§o

Yury

augustogomes · March 15, 2013

Yury

Eu jÃ¡ passei por este tipo de problema vÃ¡rias vezes desde que comecei a migrar meus programas de clipper para fivewin. Quando usei o xharbour e compilei os programas em ambiente 32bits mantendo as telas em texto os arquivos em dbf, abriam em tempo e velocidade igual ao que fazia em clipper, inclusive dava impressÃ£o de ser atÃ© mais rÃ¡pido, mas quando migrei para o fivewin com telas e recursos grÃ¡ficos ai voltou a ficar muito lento.

Foram vÃ¡rios fatores que tive que arrumar, mas o que percebi era que quando estava em windows server com gerenciador de dominio ativado e o AD o sistema funciona muito melhor que quando nÃ£o tem. Por padrÃ£o sÃ³ instalo em server com AD ativado. NÃ£o seria este o problema no seu caso?

Fiz um teste pegando sua rotina e compilei ela com um arquivo meu que tem 980 mil registros e coloquei o loop para filtrar 298 mil, usei um indice com campo data como no seu exemplo e um servidor windows server 2008 r2 com AD ativado. Nos micros com windows XP levou 0:22 segundos e win7 0:25 segundos, quando os 2 foram ativados simultaneamente o tempo ficou em 2 minutos em cada.

Agora usando o mesmo exemplo em uma rede sem o AD ativado o tempo levou 6 minutos e 20 minutos quando acessado por meio de wireless. rss

Para os testes usei seu exemplo teste.prg mudando apenas o arquivo.

AbÃ§s.

Augusto

Daniel Lopes Filho · March 22, 2013

qual a velocidade da rede ? placas de rede e do switch ?

ja aconteceu de ter placas antigas 10/100 ... troquei tudo para 10/100/1000 com um switch hp e nao precisei mudar 1 linha no meu codigo

por favor verifique a rede e a configuraÃ§Ã£o do servidor e das estaÃ§Ãµes

windows 7/64 com 2b de ram a maquina le mais o disco pois nao tem memoria para processar as informaÃ§Ãµes

por isso recomendo verificar os equipamentos ....

Jorge Andrade · March 25, 2013

Yury

Vc ainda continua com o problema, mesmo depois de tantas informaÃ§Ãµes? EntÃ£o vou perguntar, vc simulou este problema em outro ambiente? Ou seja, copiar todas as informaÃ§Ãµes deste cliente e fazer os testes?

[]s,

Acesso a DBF em rede - LentidÃ£o ao acessar simultÃ¢neamente

Recommended Posts

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Link to comment

Share on other sites

Join the conversation