A
AB
Boa tarde,
Preciso de uma resposta urgente
O meu objectivo é poder alterar tabelas e consultas do Access via VB6
Sempre correu tudo bem, até o dia em que, de repente, deixou de funcionar
por razões que desconheço.
O meu código é:
Private Sub cmdLixo_Click()
Dim cat As New ADOX.Catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='DB_A.mdb';Jet " & _
"OLEDB
atabase Password=1234"
cat.Views.Refresh
Set cat = Nothing
End Sub
O VB6 "estoura" com um erro inesperado quando lê a linha:
cat.Views.Refresh
A Base de dados DB_A.mdb abre via Access2000 e VB6 também
Tanto por VB6 como por Access, consigo realisar todas as operações, tais
como: inserir, pesquisar registos e apagar registos.
Experimentei mudar o nome à Base de Dados, não resultou
Experimentei, reparar e compilar a Base de Dados, não resultou
Experimentei noutra base de dados, funciona!
Reinstalei o Office, não resultou.
Instalei as actualizações automáticas do Office, não resultou.
Expero que alguém que entenda o que se passou possa-me ajudar.
Obrigado.
Preciso de uma resposta urgente
O meu objectivo é poder alterar tabelas e consultas do Access via VB6
Sempre correu tudo bem, até o dia em que, de repente, deixou de funcionar
por razões que desconheço.
O meu código é:
Private Sub cmdLixo_Click()
Dim cat As New ADOX.Catalog
cat.ActiveConnection = "Provider='Microsoft.Jet.OLEDB.4.0';" & _
"Data Source='DB_A.mdb';Jet " & _
"OLEDB
atabase Password=1234"cat.Views.Refresh
Set cat = Nothing
End Sub
O VB6 "estoura" com um erro inesperado quando lê a linha:
cat.Views.Refresh
A Base de dados DB_A.mdb abre via Access2000 e VB6 também
Tanto por VB6 como por Access, consigo realisar todas as operações, tais
como: inserir, pesquisar registos e apagar registos.
Experimentei mudar o nome à Base de Dados, não resultou
Experimentei, reparar e compilar a Base de Dados, não resultou
Experimentei noutra base de dados, funciona!
Reinstalei o Office, não resultou.
Instalei as actualizações automáticas do Office, não resultou.
Expero que alguém que entenda o que se passou possa-me ajudar.
Obrigado.