Conversão / exportação

[betovsp]

Olá pessoal,

tenho um banco de dados em Access (mdb) e estou em dificuldades para converte-lo / Exportá-lo para DBF, alguém pode me passar alguma coisa para que eu possa efetuar este trabalho.

Obrigado.

Beto.

[gilmer]

Olá,

Use o próprio access para fazer isto, ele exporta pra DBF

[betovsp]

O problema é que preciso fazer isso em programa, pois o usuário atualiza diariamente o Banco de Dados MDB e não sabe usar o ACCESS.

Alguém me ajuda por favor.

Beto.

[betovsp]

O problema é que preciso fazer isso em programa, pois o usuário atualiza diariamente o Banco de Dados MDB e não sabe usar o ACCESS.

Alguém me ajuda por favor.

Beto.

[betovsp]

Olá pessoal,

em relação ao que solicitei, já consegui ter acesso ao banco de dados atraves do ODBC, estou usando uma classe chamada TdbOdbc:New(), só que ela abre a configuração do ODBC toda vez que executo, tem alguma forma de abrir o arquivo que eu quero de uma vez sem ter que configurar novamente o ODBC para ACCESS??

Grato.

Beto.

[mou321]

poste o seu codigo , Para poder dar as dicas

Mauricio (RJ)

[betovsp]

Mauricio, segue abaixo o codigo.

Abraços

function Main()

local oOdbc, oDbCust, n

IF !FILE("TESTE.DBF")

varq:={{"TST1","C",50,0},{"TST2","C",50,0},{"TST3","M",10,0}}

dbCreate("TESTE.DBF",varq)

dbCloseArea()

END

IF !AbreArq({{"TESTE","Tst",1,"TST1"}}) ; RETURN(.F.) ; END

DEFINE ODBC oODbc CONNECT "MS Access" // We create an ODBC session object

oDbCust = TDbOdbc():New( "batida", oODbc )

* DO WHILE (oDbCust:Skip()#0)

* Tst->(dbAppend())

for n = 1 to oDbCust:FCount()

MsgInfo( "Campo " + Str( n, 2 ) + ": " + oDbCust:FieldName( n ) )

MsgInfo( oDbCust:FieldGet( n ) )

/*

while !Reclock(10) ; END

IF n == 1

Tst->TST1:=oDbCust:FieldGet(n)

ELSEIF n == 2

Tst->TST2:=oDbCust:FieldGet(n)

ELSEIF n == 3

Tst->TST3:=oDbCust:FieldGet(n)

END

Tst->(dbUnLock())

*/

next

/*

IF Eof()

EXIT

END

END

*/

oDbCust:End()

oOdbc:End()

O arquivo que eu abro DBF, é um teste, pois tenho que abrir um Banco MDB e passar os dados para um DBF, se tiver alguma dica sobre isso também, agradeço.

Beto.

[betovsp]

Mauricio, segue abaixo o codigo.

Abraços

function Main()

local oOdbc, oDbCust, n

IF !FILE("TESTE.DBF")

varq:={{"TST1","C",50,0},{"TST2","C",50,0},{"TST3","M",10,0}}

dbCreate("TESTE.DBF",varq)

dbCloseArea()

END

IF !AbreArq({{"TESTE","Tst",1,"TST1"}}) ; RETURN(.F.) ; END

DEFINE ODBC oODbc CONNECT "MS Access" // We create an ODBC session object

oDbCust = TDbOdbc():New( "batida", oODbc )

* DO WHILE (oDbCust:Skip()#0)

* Tst->(dbAppend())

for n = 1 to oDbCust:FCount()

MsgInfo( "Campo " + Str( n, 2 ) + ": " + oDbCust:FieldName( n ) )

MsgInfo( oDbCust:FieldGet( n ) )

/*

while !Reclock(10) ; END

IF n == 1

Tst->TST1:=oDbCust:FieldGet(n)

ELSEIF n == 2

Tst->TST2:=oDbCust:FieldGet(n)

ELSEIF n == 3

Tst->TST3:=oDbCust:FieldGet(n)

END

Tst->(dbUnLock())

*/

next

/*

IF Eof()

EXIT

END

END

*/

oDbCust:End()

oOdbc:End()

O arquivo que eu abro DBF, é um teste, pois tenho que abrir um Banco MDB e passar os dados para um DBF, se tiver alguma dica sobre isso também, agradeço.

Beto.

[betovsp]

Mauricio, segue abaixo o codigo.

Abraços

function Main()

local oOdbc, oDbCust, n

IF !FILE("TESTE.DBF")

varq:={{"TST1","C",50,0},{"TST2","C",50,0},{"TST3","M",10,0}}

dbCreate("TESTE.DBF",varq)

dbCloseArea()

END

IF !AbreArq({{"TESTE","Tst",1,"TST1"}}) ; RETURN(.F.) ; END

DEFINE ODBC oODbc CONNECT "MS Access" // We create an ODBC session object

oDbCust = TDbOdbc():New( "batida", oODbc )

* DO WHILE (oDbCust:Skip()#0)

* Tst->(dbAppend())

for n = 1 to oDbCust:FCount()

MsgInfo( "Campo " + Str( n, 2 ) + ": " + oDbCust:FieldName( n ) )

MsgInfo( oDbCust:FieldGet( n ) )

/*

while !Reclock(10) ; END

IF n == 1

Tst->TST1:=oDbCust:FieldGet(n)

ELSEIF n == 2

Tst->TST2:=oDbCust:FieldGet(n)

ELSEIF n == 3

Tst->TST3:=oDbCust:FieldGet(n)

END

Tst->(dbUnLock())

*/

next

/*

IF Eof()

EXIT

END

END

*/

oDbCust:End()

oOdbc:End()

O arquivo que eu abro DBF, é um teste, pois tenho que abrir um Banco MDB e passar os dados para um DBF, se tiver alguma dica sobre isso também, agradeço.

Beto.

[betovsp]

Pessoal, estou com um novo problema, uso o windows 2000 com office xp e aqui consigo acessar o banco de dados e visualizar os registros, quando levo no cliente, ele usa windows 98 com office 2000, não acontece nada, seleciono o banco de dados, mas some a tela e se pressionar CTRL+ALT+DEL, está como fivewin e não faz nada.

Gostaria de um help por favor.

Desde já agradeço.

Beto.

[betovsp]

Pessoal, estou com um novo problema, uso o windows 2000 com office xp e aqui consigo acessar o banco de dados e visualizar os registros, quando levo no cliente, ele usa windows 98 com office 2000, não acontece nada, seleciono o banco de dados, mas some a tela e se pressionar CTRL+ALT+DEL, está como fivewin e não faz nada.

Gostaria de um help por favor.

Desde já agradeço.

Beto.

[gilmer]

Olá,

Existe diferenças no banco de dados do access, você deve converter para versão access 97 e usar o driver ODBC para esta versão

[betovsp]

Olá Gilmer

O Banco de Dados já está em 97, apenas estou testando na minha máquina com oficce xp.

Grato.

[betovsp]

Olá Gilmer

O Banco de Dados já está em 97, apenas estou testando na minha máquina com oficce xp.

Grato.