NO DATA BASE

[tonyx]

ESTOU USANDO ISTO AQUI -- FUNCIONA LEGAL MAS
set dbflockscheme to 2 // PARA USO JUNTO COM O CLIPPER
SET CURSOR ON
*========================
REQUEST HB_NOMOUSE
*========
REQUEST HB_LANG_PT
HB_LANGSELECT("PT")
*-----
REQUEST HB_CODEPAGE_PT850
HB_SETCODEPAGE("PT850")
*------
REQUEST DBFNTX
RDDSETDEFAULT("DBFNTX")
DBSETDRIVER("DBFNTX")
*------------------------------------

PERGUNTA AO CRIAR CRIAR UM DBF
PORQUE NAO SE PODE MAIS SE ABRIR PELO DBASE ?

DA NO DATA BASE

[tonyx]

ESTOU USANDO DBCREATE()

ANTES PELO CLIP5.3 ABRIA LEGAL PELO DBASE
AGORA PELO XHARBOR (NAO LE O DBASE )
ALGUEM TEM ALGUMA DICA

[sygecom]

PERGUNTA AO CRIAR CRIAR UM DBF
PORQUE NAO SE PODE MAIS SE ABRIR PELO DBASE ?

Eu não uso o dbase, já tentou abrir com o DBU aqui funciona !!!

[tonyx]

o dbu e limitado pela tecla f1 ate fn pelo que vi
ja o dbase (antigo) pode abrir e fazer varios comandos pelo console
rapidos e com o edit e e cerate (entrar dentro banco rapido e facil)

SE ALGUEM TIVER UMA DICA DE COMO FAZER O DBASE LER OS ASRQUIVOS DE XHARBOUR CRIA PELO DBCREATE()
---- REALMENTE NAO ENTENDI PORQUE FAZ DIFERENTE -- SE 100% COMPATIVEL O dbf`S

---- OU AGUMA COISA NO REQUEST DBFNTX
ou REQUEST DBF???

[sygecom]

qual versão do seu DBASE ?

[tonyx]

E O TRADICIONAL DBASE III PLUS

=========== O QUE ESTOU FAZENDO ======
set dbflockscheme to 2 // PARA USO JUNTO COM O CLIPPER
*========================
REQUEST HB_LANG_PT
HB_LANGSELECT("PT")
*-----
REQUEST HB_CODEPAGE_PT850
HB_SETCODEPAGE("850")
*------
REQUEST DBFNTX
RDDSETDEFAULT("DBFNTX")
DBSETDRIVER("DBFNTX")
*------
REQUEST HB_NOMOUSE
cls
NOME_DIR:= 'C:\TESTE'
NOME_ARQ:= 'TESTE'
VARQUIVO:= NOME_DIR+'\'+NOME_ARQ+'.DBF'
ARQ:= NOME_DIR+'\'+NOME_ARQ
*----------
ERASE(VARQUIVO)

ESTRU:= {}
AADD(ESTRU,{"V1","C",4,0})
AADD(ESTRU,{"V2","C",30,0})

DBCREATE(ARQ,ESTRU)
USE &VARQUIVO
CLOSE
wait '--------'
*--------------------
return(nil)
============== ELE OPERA LEGAL NO SISTEMA

MAS GOSTARIA QUE O DBASE ABRIR ESTE ARQUIVO

[sygecom]

Tenho versões superiores que essa sua, me chama no MSN que te mando !!!

[Vander]

Veja se ajuda

https://pctoledo.org/forum/viewtopic.php?t=4524

Vander

[tonyx]

ERRO NA LEITURA PARA O DBASE 3 ESTA NO
DBCREATE(ARUIVO,ESTRUTURA)

QUE DENTRO DELE JA MONTA DE FORMA DIFERENTE SE CONSEQUI ME
POSTAR ALGO PARA LER DBASE 3 --- AGRADECO MUITO MESMO

---- RECEBI O DBASE 4 --- MAS SERIO MESMO E MAIS FACIL O DB 3

LHE MANDEI ALGO DO INCLUDE

[sygecom]

Mas com o DBASE 4 funcionou ?

[tonyx]

RECEBI O DBASE 4 - SO QUE - COPIEI O ZIP DENTRO DO DIRETORIO
DBASE_4 - EXTRAI OS 5 DISKS DENTRO DE CADA E DIRETORIOS --
COPIEI CADA 5 DIRETORIOS PARA 5 DISQUETES
---- NO DISUETE 1 - COLOQUEI INSTAL - COLOQUEI SERIAL -
TECLEI F2
---- WRONG DISK IN DRIVE A
O DISUETE E NOVO, O CONTEUDO E IQUALZINHO AO DO DISK 1

QUAL E DICA PARA INSTALAR

[Eolo]

Tonix,

O Dbase3 não consegue mesmo abrir um DBF 'usado' pelo XHarbour...

Saída? Crie uma rotina bem simples, EM CLIPPER, que faça um DELETE e um RECALL em um registro qualquer do DBF que vc quer abrir via Dbase3. Só isso. Depois de rodar essa rotina, você vai poder voltar a abrir o DBF com o DBASE 3...

Note: se vc abrir o DBF com o XX novamente, ele vai voltar a ficar 'bloqueado'. Mas aí é só usar o 'LIMPA' novamente:

Código: Selecionar todos

* limpa.prg
para arq
use &arq excl
go 1
delete
recall
quit

[tonyx]

FINALMENTE DEU CERTO === VALEU MESMO PESSOAL
E SO EXECUTAR (DB3 ARQUIVO) , E ENTRAR NO DBASE 3 PLUS


*** NOME DB3.PRG
*** COMPILADO EM CLIPPER
** FAZ ARQUIVO DO XHARBOUR, SEJA LIDO PELO DB3
*
PARAMETERS VARQUIVO
USE &VARQUIVO
APPEND BLANK
DELETE
RECALL
*---- O ULTIMO REGISTRO FICA EM BRANCO,
*---- MAS NAO MARCADO PARA DELETAR, A BAIXO DELETA E RETIRA
USE &VARQUIVO
GO BOTT
DELETE
PACK
CLOSE
QUIT