Abrir arquivo via DBFMDX

[Mário Isa]

Olá Pessoal!

Tenho 2 arquivos sendo eles
Laboratorio.dbf
Laboratorio.mdx

eu não estou conseguindo abrir o laboratorio.dbf pelos meios normais .

E procurei a biblioteca DBFMDX.LIB no xharbour e não achei.

Eu penso em abrí-lo assim

eu renomeio laboratorio.dbf para lab.dbf (só para ficar com um tamanho de até 8 caracteres)

E faço assim

use lab.dbf exclusive new via "DBFMDX"

eu tentei fazer isso com o blinker 7 / porque nele eu tenho a lib DBFMDX.LIB / mas na hora de abrir dá
Corruption detected.

Anexei o .DBF aqui prá vcs dar uma olhada / O que será que é ? o Banco é um .dbf mas não abre nem com
dBase IV / dBase III Plus / Dbf Viewer / Excel /

só abre se for com Access /

Tem jeito de abrir no xharbour ?

Mário

[Itamar M. Lins Jr.]

Até onde sei, indices MDX não são compativeis(suportados) com [x]Harbour.

Saudações,
Itamar M. Lins Jr.

[asimoes]

Pessoal,

Se alguém achar a solução por favor me avisem.

[]´s

[sygecom]

Olá asimões,
Esse DBF é seu mesmo ou de outro sistema ? Lhe pergunto pq nunca usei DBFMDX e nem sei qual a diferença com DBFCDX, o que acho é que talvez esse DBF esteja com seu header alterado, por isso ele não abre nem no DBU e nem no Excel. Dei uma pesquisada no Google e pelo que vi o DBFMDX é compativel com Dbase IV.

[jamazevedo]

Uma vez precisei abrir um arquivo mdx e usei o seguinte fonte:

Código: Selecionar todos

function main()
             request dbfmdx
             rddsetdefault("dbfmdx")
             use produtos new
             dbedit()
             quit
return nil

[asimoes]

Amigos,

Quem poderia me responder: Porque o RDD DBFMDX não faz parte do projeto Habour e xHarbour?

[]´s

[Itamar M. Lins Jr.]

Porque o RDD DBFMDX não faz parte do projeto Habour e xHarbour?

Eu não sei responder com certeza.
Talvez porque é um RDD pouco utilizado, ou talvez porque existam outros RDD´s melhores Ex:CDX/NSX/ADS etc...
Ou, quem sabe esses acima fazem a mesma coisa.

Saudações,
Itamar M. Lins Jr.

[sygecom]

Amigos,

Quem poderia me responder: Porque o RDD DBFMDX não faz parte do projeto Habour e xHarbour?

[]´s

Em partes o Itamar tem razão, pq acresentar o DBFMDX se tem algo compativel ou talvez melhor, tente nos dar mais detalhes tipo pq não pode usar com CDX, quem sabe aparece alguem com uma idéia para contornar o problema.
Boa Sorte...

[asimoes]

Amigos,

Obrigado pelas informações.

O problema do DBFMDX que eu me refiro é que aqui na prefeitura temos aplicações clipper usando esse rdd e tem o delphi que usa tabelas dbf junto com os mdx.
Antes tinhamos o ads que dava muito problema.
Agora temos este projeto de transformar sistema em clipper para xharbour com um minimo de esforço h/h. Mantendo por hora o dbfmdx até todos irem para o oracle.

[]´s

[sygecom]

Olá Asimões,
É colega, nesse caso acho que você poderia postar na lista do Harbour e ver se alguem tem alguma solução.
http://www.nabble.com/Harbour---Dev-f688.html

[jairfab]

A versao do xharbour 1.2.1 ( rev. 6633 ) de 5/11/2009 ja tem a lib dbfmdx compilada, porem eu nao fiz teste quero fazer ainda hoje...

mas como existe a lib certamente deve está funcionando.

[asimoes]

Pessoal,

Pelo o que eu sei, a DBFMDX é um clone da DBFCDX e ainda não é compativel com a do clipper.

Já fiz testes.

[]´s

[jamazevedo]

Solucionei da seguinte forma:

Criei o código abaixo:

Código: Selecionar todos

function main()
             request dbfmdx
             rddsetdefault("dbfmdx")
             use produtosmdx new
             use produtoscdx new via "dbfcdx"
             do while produtosmdx->( !eof() )
                  produtoscdx->( dbappend() )
                  produtoscdx->codigo := produtosmdx->codigo
                  ...
                  produtosmdx->( dbskip() )
             enddo
return nil

Compilei em Clipper 5.2, depois rodei o executável, converti a base para CDX, fiz o que necessitava, e depois reconverti para MDX.
É meio braçal mas funcionou.

[Hasse]

Boa tarde colegas.

O MDX é um índice bastante antigo, do tempo do dBase III, contemporâneo do NDX, ou mais antigo até, não sei.

Vejam o help do dBase IV:

Código: Selecionar todos

USE [<database filename>/?] [IN <work area number>]
    [[INDEX <.ndx or .mdx file list>]
    [ORDER <.ndx filename>/<.mdx tag>
    [OF <.mdx filename>]]
    [ALIAS <alias>] [EXCLUSIVE] [NOUPDATE]]

[gvc]

MDX é um arquivo de indice usado pelo DBaseIV.
Só que a sua tabela esta com um "buraco" no meio.

A estrutura é:
CODIGO, C, 4
FANTASIA, C, 25

Estes são os dados que eu desmontei do arquivo:

9618BOEHR OTC
2424EURO ET
1793SANDOZ GEN
0166SANDOZ ETI
1866ORGANON
1126MEDLEY-ETI

Vão bem até: 2115DIFFUCAP-D
Depois disso tem lixo e inicia novamente com: 1311EMS-GENERI
Indo até: 2820UNILEVER B
Parece não ser o final do arquivo.
Eu tentei abrir com o Prometheus e tb deu erro de tipo.
Vc esta usando esse arquivo normalmente hoje?