Browse com ADO

Aqui você poderá oferecer suas Contribuições, Dicas e Tutoriais (Texto ou Vídeo) que sejam de interesse de todos.

Moderador: Moderadores

Avatar do usuário
JoséQuintas
Administrador
Administrador
Mensagens: 20415
Registrado em: 26 Fev 2007 11:59
Localização: São Paulo-SP
Curtiram: 1 vez

Browse com ADO

Mensagem por JoséQuintas »

Só um acréscimo:
A vantagem de usar uma lista, por exemplo:

Código: Selecionar todos

oTBrowse := { ;
   { "DATA", { || rs:FIelds( "DATA" ):Value } }, ;
   { "DIAS", { || rs:Fields( "DIAS" ):Value } }, ;
   { "NOVA", { || rs:Fields( "DATA" ):Value + Rs:Fields( "DIAS" ):Value } }, ;
   { "OUTRO", { || Rotina3() } } }
Talvez leve um tempo pra acostumar com essa separação.
É um array {}
E dentro outro array { a, b }
primeiro elemento é o título
segundo elemento é um codeblock { || conteudo }
justamente no conteúdo coloca o que quiser, não está preso a existir na consulta.
Então NÃO precisa incluir tudo da consulta, e pode acrescentar mais coisas ainda.

Isso mostra que automático é bom, mas colocar lista é muito melhor.
José M. C. Quintas
Harbour 3.2, mingw, multithread, gtwvg, fivewin 25.12, dbfcdx, MySQL, ADOClass, PDFClass, SefazClass, (hwgui), (hmg3), (hmg extended), (oohg), PNotepad, ASP, (Linux/Flagship/harbour 3.2)
"The world is full of kings and queens, who blind our eyes and steal our dreams Its Heaven and Hell"

https://github.com/JoseQuintas/
Responder