Converssão De Mdb

[Guest Guilherme Lugani]

Oi Pessoal,

Eu preciso via codigo converter uma base de dados em access 2000 para uma outra base em access 97. Somente trocar a versão como é feito no access em Ferramentas/Converter para versão anterior do access.

Eu utilizo Visual Basic 6.

e acesso a base via dao 3.51.

Muito Obrigado

Guilherme

[hicarocastro]

cara eu trabalho com access a 6 anos e nunca vi isso n.

[Guest - Guilherme -]

você nunca viu o q ??

[PiGmEu]

  Guilherme - disse:

você nunca viu o q ??

BOm cara..

regredi um banco de dados eu tb não vi isso não..

mais vou procurar ver se encontro alguma coisa para t ajudar! =)

e tb ajude nossa comunidade a crescer.. cadastre-se

[]´s

[William Rodrigues]

  Citar

BOm cara..

regredi um banco de dados eu tb não vi isso não..

mais vou procurar ver se encontro alguma coisa para t ajudar! =)

É complicado mesmo !!!

Abraços,

William Rodrigues

[Guest Guilherme Lugani]

Acho que voces estão confundindo as coisas...

Como isso pode ser uma coisa complicada ????

Va no menu dentro do Access:

Ferramentas/Utilitarios de banco de dados/Converter Banco de Dados/Para Versão Anterior....

Essa Funcao serve para voce converter um Banco de Dados em Access 2000 para 97...

So que eu preciso executar essa função dentro de meu programa !!!

E eu gostaria de saber se alguém sabe rodar isso via codigo...

Obrigado

[William Rodrigues]

Então brother...

Eu entendi o que você quer....você explicou direitinho...

Mas, aí que tá...

O problema é conseguir fazer isso via código

Abraços,

William Rodrigues

[glugani]

então rs... eu ate consegui converter de 97 para 2000 via codigo o problema é o contrario...

segue a rotina abaixo...

Const Jet10 = 1

Const Jet11 = 2

Const Jet20 = 3

Const Jet3x = 4 'Access 97

Const Jet4x = 5 'Access 2000

DoConvertMDB "C:\data\MyDB97.MDB", "C:\data\MyDB2000.MDB", Jet4x

Sub DoConvertMDB(SourceDB, DestDB, Format)

Dim Engine

Set Engine = CreateObject("JRO.JetEngine")

Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & SourceDB, _

"Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Engine Type=" & Format & ";Data Source=" & DestDB

End Sub

então com essa rotina eu converto de 97 para 2000.

E se eu trocar o formato de Jet4x para Jet3x ele me fala que a versao não suporta converter...

[William Rodrigues]

Brother...

Estava fazendo uma busca para poder te ajudar e achei o seguinte site:

http://www.dpi.inpe.br/spring/usuario/tutorial.htm

Nele você encontrará um programa que faz a conversão do Banco de Dados para uma versão anterior.

Um amigo meu me disse que basta renomear o arquivo e abri-lo com o Access 97 que rola cara. Faz um teste...

Ah..

O programa é freeware

Abraços,

William Rodrigues