Ligar tabelas Access 97 data file a Access 2013 ou 2016

Caros Colegas

Procurei no forum e na net mas não encontrei respostas.
Telho bases de dados desenvolvidas em Access 97 data file, só tem tabelas e dados, mas necessitava de ligar as tabelas ao 2016, ou seja ler os dados em Access 2016 sem fazer exportação um conversão da base de dados.

Existe alguma solução para este assunto?

Obrigado antecipadamente.

Olá Manuel Vieira,

Já é um formato "MDB" muito antigo, na minha opinião tem duas opções:

a) Usar o Access 2007 e numa base de dados efeutar a ligação ao MDB da versão 97

b) Converter o MDB da versão 2007 para a versão 2000-2003, assim já permite ligar através do 2016. Tem que verificar se o aplicativo que trabalha com os MDB continua a funcionar. Será de testar.

Abraço

Boas Álvaro

Será que me podes esclarecer, se funcionaria o seguinte:

1. Criar um base de dados em Access 2007 com a  extensão do ficheiro para aversão 2000-2003. ( assim consigo ligar à versão 97).
2. Criar copias dos dados das tabelas ligadas para tabelas locais nessa base de dados. (criava copias automáticas dos dados à maneira que são inseridas, as tabelas em causa só recebem informação que sai de uma central de telefones os dados não são trabalhadas nem alterados)
3. ligava essas tabelas locais ao 2016.

Isto funcionaria?

Abraço

Olá Manuel,

O JET 3.x deixou de estar disponível a partir da versão 2013, pode conferir neste link.

O que relata aparentemente é possível, mas creio que não vai funcionar, pois a máquina não tem o suporte ao JET.
Será de testar.

Ou usa o 2007 ou 2010.
Ou converta o ficheiro que o aplicativo da central usa para a versão 2000-2003.

Tudo será uma questão de testes.

Depois vou dar mais uma pesquisa se é possivel instalar o suporte para o JET 3.x

Se algum colega tiver uma dica, todas são bem-vindas.

Abraço

Olá Manuel,

Veja se assim resolve:

Código:

Private Sub cmdTeste_Click()

Dim conn As New Connection
Dim rs As New Recordset
Dim Origem, Destino As String

Origem = Application.CurrentProject.Path & "\97.mdb"
Destino = Application.CurrentProject.Path & "\2002-2003.mdb"

    strcon = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
    "Data Source=" & Origem & ";" & _
    "User Id=admin;Password="

    conn.Open (strcon)

    qry = "SELECT tbl_clientes.* INTO tbl_importada IN '" & Destino & "' FROM tbl_clientes"
    rs.Open qry, conn, adOpenKeyset

    'rs.Close
    conn.Close
    MsgBox "Verifique a tabela destino: " & Destino, vbInformation, ""

End Sub

Segue em anexo o teste.

Abraço