Página 1 de 1

Abrir DBF com janela de navegação.

Enviado: 24 Dez 2017 17:08
por Hasse
Boa tarde colegas.

Já fazem 2 dias que estou pesquisando no Fórum por uma solução de abertura de arquivo DBF x CDX, com uma janela que possibilite a navegação pelos diversos drives e pastas (semelhante ao Windows Explorer), encontrar o DBF desejado, clicar e incorporar o endereço para a abertura pelo aplicativo.

Uso a MiniGui 3.1.3 e 3.4.3 com Harbour x MingW.

É bem provável que isto já exista mas não encontrei.

Caso algum colega souber, por favor, poste o link ou o código básico para fazer este tipo de implemento.

Aproveito para desejar um FELIZ NATAL a todos os colegas, extensivo aos familiares.
Com Fraterno Abraço.

Abrir DBF com janela de navegação.

Enviado: 24 Dez 2017 17:52
por JoséQuintas
No Harbour 3.4, deve ser igual no 3.2
Uso pra Excel, mas é só ajustar.

Código: Selecionar todos

      cFileDbf := win_GetOpenFileName(, "Arquivo a importar", ".\", "XLS", "*.XLS", 1 )
openfile.png

Abrir DBF com janela de navegação.

Enviado: 24 Dez 2017 18:09
por Claudio Soto
Dos opciones, una sencilla

GetFile ( acFilter ,
                  cTitle ,
                  cDefaultPath ,
                  lMultiSelect ,
                  lNoChangeDir, nFilterIndex ) --> SelectedFileName(s)
 
If <lMultiSelect> option is used, a character array containing selected
filenames is returned (maximun number of selected files returned is 1024).
 
Otra un poco más elaborada que puede servir como guía:

http://www.hmgforum.com/viewtopic.php?f ... easy+build

Abrir DBF com janela de navegação.

Enviado: 24 Dez 2017 18:59
por Toledo
Hasse escreveu:Uso a MiniGui 3.1.3 e 3.4.3
Veja:
C:\hmg.3.4.3\SAMPLES\Functions\GETFILE\demo.prg

Abraços

Abrir DBF com janela de navegação.

Enviado: 25 Dez 2017 11:19
por Hasse
Bom dia.

Agradeço a atenção e tempo dispensados pelos caros colegas.

Ainda hoje vou testar as opções apresentadas.

FELIZ NATAL.
Com um Fraterno Abraço.

Abrir DBF com janela de navegação.

Enviado: 29 Dez 2017 09:41
por Hasse
Bom dia colegas.

Usei a Função GetFile() que atendeu integralmente as minhas necessidades.

Mais uma vez agradeço o inestimável auxílio dos colegas, especialmente ao Toledo, Quintas e Dr. Soto.

Um próspero ano de 2018, com saúde e muito trabalho.