ACCESS 2007 ?
Esta dando erro ao acessar o mdn do access 2007, como faço para instalar o jet 4.0?
O caso não é o Jet4, mas sim o driver ACE OLEDB 12.0 (que serve para o Access 2007 e 2010).
aonde acho isso??
Obrigado
Obrigado
Só encontrei o AccessDatabaseEngine em inglês preciso em Português aonde encontro?
Obrigado
Obrigado
Você pode instalar ele no idioma inglês que funciona (no Windows XP PT-BR). Só aconselho instalar a versão correta conforme a versão do seu sistema operacional (x86 para os de 32 bits e x64 para os de 64 bits).
Quando fui instalar disse que ja tinha se queria reparar ai reparei mas o ero continua....o que faço??
Obrigado
Obrigado
Tente ver se você consegue desinstalar. Se não der certo só resta uma solução (que não é a melhor do mundo)... apagar e reinstar todo o Windows do zero.
MESMO ERRO ......
SERà QUE O 2007 NÃO PODE SER USANDO COM O DATA CONTROL?
OU PRECISA DE MAIS ALGUM COMPONENTE?
SERà QUE O 2007 NÃO PODE SER USANDO COM O DATA CONTROL?
OU PRECISA DE MAIS ALGUM COMPONENTE?
eu uso o access 2007 em uma aplicação minha e não tenho problema nenhum problema com o data control, você já tentou reparar seu banco de dados, ele pode ta corrompido.
mesmo usando assim dá erro :
Dim My_DbSelLoja As Database
Dim My_TableSelLojas As Recordset
Set My_DbSelLoja = OpenDatabase([Ô]D:\TMPS\ZZ_TESTE_dUoLojasCopec\Dados_LojasCopec.accdb[Ô])
Set My_TableSelLojas = My_DbSelLoja.OpenRecordset([Ô]LOJAS[Ô], dbOpenDynaset)
If Not (My_TableSelLojas.EOF And My_TableSelLojas.BOF) Then
My_TableSelLojas.MoveFirst
End If
o que pode ser?
Obrigado
Dim My_DbSelLoja As Database
Dim My_TableSelLojas As Recordset
Set My_DbSelLoja = OpenDatabase([Ô]D:\TMPS\ZZ_TESTE_dUoLojasCopec\Dados_LojasCopec.accdb[Ô])
Set My_TableSelLojas = My_DbSelLoja.OpenRecordset([Ô]LOJAS[Ô], dbOpenDynaset)
If Not (My_TableSelLojas.EOF And My_TableSelLojas.BOF) Then
My_TableSelLojas.MoveFirst
End If
o que pode ser?
Obrigado
Eu conectava no access 2007 assim.
troaca o nome do p/ mdb
e funcionou
troaca o nome do p/ mdb
e funcionou
Option Explicit
Public objConexao As New ADODB.Connection
Public sCaminhoBanco As String
Public rsCustomers As Recordset
Public NewRecord As Boolean
Public myRs As Recordset
Public Sub sub_Conecta_Banco()
Dim sStringConexao As String
[ô]
sStringConexao = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;[Ô] _
& [Ô]Data Source=[Ô] & sCaminhoBanco & [Ô];[Ô] _
& [Ô]Jet OLEDB:Database Password=[Ô]
objConexao.Open sStringConexao
[ô]
If objConexao.State <> adStateOpen Then
MsgBox [Ô]Não foi possÃvel abrir uma conexão com o banco de dados![Ô], vbOKOnly + vbCritical, [Ô]Mercanet - Layout Exportação[Ô]
End
End If
[ô]
End Sub
Tópico encerrado , respostas não são mais permitidas