Clipper On Line • Ver Tópico - Browse com ADO
Mudar para estilo Clássico
Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.
Postar uma resposta

Browse com ADO

13 Abr 2020 21:04

Uma coisa importante que esqueci na conexão do exemplo do browse, no início do post:

conexão.cursorlocation = 3 // adUseClient

Sem isso, não há navegação no resultado e dá erro no browse.
Se puder, vou editar, porque isso é de extrema importância.

Estava quebrando a cabeça pra ajudar um usuário fazer funcionar no XHarbour, e no final o problema era esse.

Browse com ADO

13 Abr 2020 21:21

Itamar M. Lins Jr. escreveu:Isso é um problema da rede mapeada, usando servidores de DBF, NetIO, LetoDbf, ADS, isso não "ecziste"
Como eu disse, normalmente eu não edito no browse. Mas existe essa possibilidade.


Faz um teste, só de curiosidade usando o SQLMIX + ODBC.
Fica quase igual ADO direto, mas acho que a diferença é aceitável.
Acho que você é o que mais usa opções diferentes, então tem condições de avaliar.

A vantagem?
Por ODBC basta o que vém no Harbour.
Pelo menos quem está começando já vai direto, sem se perder com necessidades extras do Harbour.
Depois que "brincar" e gostar do troço, aí cada um decide se continua, ou se usa as opções extras.

Aqui achei ruim sobre a memória utilizada pelo Harbour no SQLMIX+ODBC.
Mas no ADO nem dá pra saber, porque fica fora do programa, fica por conta do Windows mesmo.

Browse com ADO

13 Abr 2020 21:48

tela.jpg


Antes de usar o SQL eu usava o BROWSE DATABASE e editava diretamente no BROWSE agora com array a coisa ficou meio estranha, ai fique pensando porque não colocar os dados na mesma tela em um campo editável e quando quiser modificar dar um clique na linha do browse e passar a editar no campo abaixo.
sei la sao ideias , o que voces acham????

Browse com ADO

13 Abr 2020 22:03

Num ambiente de janelas... porque não abrir uma janela?

Vai apresentar tudo com muito mais detalhes.

Browse com ADO

13 Abr 2020 22:30

Ola!
Quintas, o browse é fundamental para PDV, ponto de venda, O vendedor digita o código apenas e ou passa o leitor de códigos de barras. Nisso ele apenas muda a quantidade se for o caso, e pula para a próxima linha de baixo. Essa é um exemplo que até com SQL tem que jogar em ARRAY para depois salvar, no DBF já fica pronto.
Neste caso ninguém faz JANELA ou DIALOG, é sempre uma linha debaixo da outra, dbedit/browse editáveis.

Saudações,
Itamar M. Lins Jr.

Browse com ADO

11 Jul 2020 22:37

Gostaria de saber se existe alguma forma de filtrar um campo no Tbrowse com ADO.

Com o dbedit eu fazia:

Código:
set filter to cPrd$produto


Mas no Tbrowse com ADO isso não funciona.

Poderiam me ajudar, por favor?

Browse com ADO

12 Jul 2020 02:31

cjp escreveu:Gostaria de saber se existe alguma forma de filtrar um campo no Tbrowse com ADO.


oRs:Filter = "expressão SQL"

https://www.w3schools.com/asp/prop_rs_filter.asp

Browse com ADO

12 Jul 2020 18:17

Eu tentei desta forma:

Código:
            prd=space(15)
            @ maxrow()-1,1 say "Produto:"get prd pict "@!"
          read
          oRs:Filter="upper(produto) like '%"+alltrim(prd)+"%'"


Mas não deu certo. Está dando o erro WINOLE/1006 Os argumentos sÒo incorretos, estÒo fora do intervalo aceitßvel ou estÒo em conflito. (0x800A0BB9): ADODB.Recordset.

Tem algo errado?

Browse com ADO

12 Jul 2020 19:55

cjp escreveu:Tem algo errado?


A expressão tem que ser no formato ADO/SQL.
E Upper() não faz parte disso.

Código:
oRs:Filter = "produto like '%" + alltrim( prd ) + "%'"

Browse com ADO

12 Jul 2020 22:35

Coloquei upper para pegar texto com maiúsculas ou minúsculas. Vi neste link: https://www.w3schools.com/sql/func_mysql_upper.asp.

De qualquer forma, testei agora sem o upper, e funcionou tanto com maiúsculas e minúsculas.

Muito obrigado.

Só mais uma dúvida, por favor: precisaria dar um "refresh" no tbrowse, ou algo que atualizasse a lista depois do filter, porque ele está filtrando, mas só está aparecendo os itens filtrados um a um, à medida que teclo as setas. Não tem como aparecer todos os itens filtrados?

Minha função está assim:

Código:

   DO WHILE .T.
      oTBrowse:forceStable()
      oTBrowse:refreshCurrent()
      nKey := Inkey(0)
    
     if upper(chr(nkey)) =="P" .and. procname(1)="BROWSECOMPRAS"
            prd=space(15)
            @ maxrow()-1,1 say "Produto:"get prd pict "@!"
          read
          oRs:Filter="produto like '%"+alltrim(prd)+"%'"
    
     elseif nkey == 27
        cSair="S"
       exit
     endif
      IF oTBrowse:applyKey( nKey ) == TBR_EXIT
        cSair="S"
         EXIT
      ENDIF
   ENDDO

Browse com ADO

03 Set 2020 11:04

SQL use
UpperCase(campo)

Browse com ADO

04 Set 2020 01:06

Desculpe, mas não te entendi.

Browse com ADO

04 Set 2020 02:19

Substitua oTBrowse:refreshCurrent() por oTbrowse:refreshall()

Browse com ADO

04 Set 2020 10:45

Deu certo. Muito obrigado.

Aproveitando, se puder me ajudar com mais uma questão: nesse browse, antes, aparecia o cursor normalmente. Em determinado momento, parou de aparecer o cursor. Não sei o que eu possa ter feito de errado pra isso acontecer. Já coloque set cursor on, mas não resolveu.

Saberia me dizer o que pode estar causando o sumiço do cursor neste caso?

Browse com ADO

04 Set 2020 10:59

Você precisa identificar que "determinado momento" é esse. E fazer a restauração do cursor quando esse momento terminar.

Um caso corriqueiro ocorre assim :
Código:


@ x,y SAY "tITULO" GET cVariavel
@ x+1,y SAY "TITULO 2" GET cVariavel2 VALID FUNCAODEPESQUISA()
SET CURSOR ON
READ
SET CURSOR OFF


Se dentro da FUNCAOPESQUISA você usar SET CURSOR OFF e não restaurar o cursor ao voltar, então ele vai sumir quando sair dela.

Outra coisa importante, é mais um conselho :
Evite SET CURSOR ON e SET CURSOR OFF
Prefira a função SetCursor() porque ela sempre retorna o estado anterior do cursor.

Por exemplo :
Código:
inicio da função de pesquisa
LOCAL nCursor := SetCursor(0) // Desativa o cursor e envia o estado anterior para nCursor

aqui suas rotinas

antes de retornar faça :
SetCursor( nCursor ) // Isso garante a volta ao estado anterior
RETURN
Postar uma resposta