|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Problemas Comuns)
|
|
 |
Título da Dica: Run-time error -2147467259 - Unrecognized Database Format
|
 |
|
|
|
Postada em 7/7/2003 por Ronaldão
Ao tentar se conectar a uma base de dados Access 2000 usando o controle Data Control ou o assistente - Form Wizard - você pode se deparar com uma das seguintes mensagens de erro :
a-) Se você estiver usando ADO com o provedor : Microsoft.Jet.OLEDB.3.5.1.Provider
- Run-time error 3343 - Unrecognized Database Format '..\nome_do_banco_de_dados.mdb
b-) Se você estiver usando DAO com Microsoft DAO 3.51 Object Library
- Run-time error -2147467259 - Unrecognized Database Format '..\nome_do_banco_de_dados.mdb
Por quê ?
Elementar meu caro amigo !!!
- O Data Control usa a versão 3.51 da DAO - Data Access Object - para fazer a conexão com um banco de dados Access , usa portanto o Jet 3.51.
- O assistente - Form Wizard - usa o Jet 3.51 OLE DB Provider para fazer a conexão , e , portanto , também usa o Jet 3.51.
Acontece que a versão 3.51 do Jet engine NÃO CONSEGUE fazer a conexão com o formato de banco de dados do Access 2000 somente com versões anteriores.
O Access 2000 e 2002 usam a versão Jet 4.0 que cria arquivos de banco de dados no formato do Jet 4.0 . O jet 3.51 não reconhece este formato.
Como Resolver o Problema ?
Você pode contornar o problema usando uma das seguintes técnicas :
1- Instale o Visual Studio Service Pack 4 ou superior. Após a instalação a opção - Access 200 - será incluida na propriedade Connect. (se você estiver usando o Data Control , muda a propriedade Connect para Access 2000 .)
2- Para ADO ou para ADo Data Control , use o provedor - Microsoft.Jet.OLEDB.4.0.1.
3- Se você estiver usando um Data Control genérico , você precisa abrir um recordset usando a DAO 3.6 e atribuí-lo a fonte de dados dos controles conforme abaixo :
Option Explicit
Private DaoDB36 as DataBase
Private rs As Recordset
Dim caminho as String
Private Sub Form_Load()
caminho = "c:\teste\Northwind.mdb"
Set daoDB36 = DBEngine(0).OpenDataBase(caminho)
Set rs = daoDB36.OpenRecordset("Clientes")
Set Data1.Recordset = rs
End Sub
Service Packs - O que são , pra que servem ?
Os services packs são uma das formas da Microsoft corrigir erros (bugs) e assim manter o produto atualizado e funcionando da melhor forma possível. Eles incluem atualizações , ferramentas , drivers , e componentes adicionais. Os services packs são cumulativos , ou seja, cada novo pacote contém todas as correções e atualizações que já foram disponibilizados em pacotes anteriores ; desta forma você não precisa instalar um versão anterior de um service pack e depois a atual para que tudo esta atualizado. Para o Visual Basic 6.0 o último service pack é o da versão 5.0 9 ( SP5 ).
O Visual Studio Service Pack 5.0 que atualiza o VB 6.0 esta disponível no seguinte endereço :
http://msdn.microsoft.com/vstudio/sp/vs6sp5/default.asp
obs: Para saber qual versão do service pack você tem instalada verifique a informação no menu Help opção About...
|
|
|
|
|
