Clipper On Line • Ver Tópico - Ajuda com Minigui + SQL SERVER 2012

Ajuda com Minigui + SQL SERVER 2012

Projeto MiniGui - Biblioteca visual para Harbour/xHarbour

Moderador: Moderadores

 

Ajuda com Minigui + SQL SERVER 2012

Mensagempor JoséQuintas » 12 Nov 2019 16:39

Minha rotina de log anterior

PROCEDURE pAdminLog

   LOCAL cDbf, cnMySql := ADOClass():New( AppConexao() )

   IF AppConexao() == NIL
      IF ! AbreArquivos( "jpreguso" )
         RETURN
      ENDIF
   ELSE
      cnMySql:cSql := "SELECT * FROM JPREGUSO ORDER BY RUINFINC DESC LIMIT 5000"
      cDbf := cnMySql:SqlToDbf()
      USE ( cDbf ) ALIAS jpreguso
   ENDIF
   SELECT jpreguso
   SET ORDER TO 0
   GOTO TOP
   SKIP -15
   FazBrowse( { ;
      { "HORÁRIO",   { || Substr( jpreguso->ruInfInc, 1, 26 ) } }, ;
      { "DESCRIÇÃO", { || jpreguso->ruTexto } }, ;
      { "ARQUIVO",   { || jpreguso->ruArquivo } }, ;
      { "CÓDIGO",    { || jpreguso->ruCodigo } }, ;
      { "INFINC",    { || jpreguso->ruInfInc } } } )
   CLOSE DATABASES

   RETURN


rotina atual com ADO

PROCEDURE pAdminLog

   LOCAL oTBrowse, cnMySql := ADOClass():New( AppConexao() )

   IF AppConexao() == NIL
      RETURN
   ENDIF
   WITH OBJECT cnMySql
      :cSql := "SELECT * FROM JPREGUSO ORDER BY IDREGUSO DESC LIMIT 50000"
      :Execute()
      oTBrowse := { ;
         { "HORARIO",   { || :String( "RUINFINC", 26 ) } }, ;
         { "DESCRIÇÃO", { || :String( "RUTEXTO", 100 ) } }, ;
         { "ARQUIVO",   { || :String( "RUARQUIVO", 15 ) } }, ;
         { "CÓDIGO",    { || :String( "RUCODIGO", 9 ) } }, ;
         { "RUINFINC",  { || :String( "RUINFINC", 80 ) } } }
      BrowseADO( cnMySql, oTBrowse, "RUTEXTO" )
      :CloseRecordset()
   ENDWITH

   RETURN


Reduziu de uns 10 segundos para 1 segundo...
É que ficou tão instantâneo, que aumentei de 5.000 pra 50.000 registros, como dá pra ver na rotina.
Por isso tá demorando 1 segundo kkkk
José M. C. Quintas
Harbour 3.2, mingw, gtwvg, multithread, dbfcdx, ADO+MySql, PNotepad
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Avatar de usuário

JoséQuintas
Membro Master

Membro Master
 
Mensagens: 18013
Data de registro: 26 Fev 2007 11:59
Cidade/Estado: São Paulo-SP
Curtiu: 15 vezes
Mens.Curtidas: 1206 vezes

Anterior



Retornar para MiniGui

Quem está online

Usuários vendo este fórum: Nenhum usuário registrado online e 6 visitantes


Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Faça uma doação para o forum
cron
v
Olá visitante, seja bem-vindo ao Fórum Clipper On Line!
Efetue o seu login ou faça o seu Registro