ERRO 429

MARCELOFAZAN 25/07/2010 21:18:28
#348410
Pessoal ,acho que fiz alteracoes sem querer

nessa linha Set area = DBEngine.CreateWorkspace([Ô]NewWorkspace[Ô], [Ô]Admin[Ô], [Ô][Ô])
me retorna o Erro 429 Cant X component cant create object

Oq preciso instalar e desinstalar para sanar o Erro

Obrigado
aBs
Marcelo Fazan
EDERMIR 25/07/2010 21:24:27
#348412
Resposta escolhida
Verifique as REFERENCIAS do projeto. Se as referencias ADO ou DAO estão marcadas.
MARCELOFAZAN 25/07/2010 21:32:02
#348413
entao ... o que necessariamente tem que estar marcado rsrs

ai q ta o
problema ? dao 3.6 ...... libray 2.8 ? estao lá ambas
se eu registro algo isso muda sozinho ? como funciona ?
andei utilizando package inno
acabei fazendo uma lambuzera pra o ADODB ta funcionando
a qdo vi o projeto de DAO esse erro

o que necessariamente devo conferir

eu zerei o banco teria algo a ver ?
tentei colocar senha no DB mais de primeiro teste nao deu certo ai removi a senha tb
tambem instalei um runtimes do SP5 sendo que nao uso SP nenhum
Obrigado
Abs
Marcelo Fazan
EDERMIR 25/07/2010 21:39:11
#348415
Aparentemente falta alguma referencia.

As duas referencias de ADO 2.8 Library estão marcadas?

Este banco de dados que você quer abrir utiliza qual conexão ADO ou DAO?
MARCELOFAZAN 25/07/2010 21:42:41
#348416
nos casos ADO esta funcionando
no caso DAO ai ta com problema
projetos diferentes pro mesmo banco
marquei as duas referencias estava somente 1

mesmo assim o erro continua
EDERMIR 25/07/2010 21:50:51
#348417
DBEngine está definido nas variáveis gerais do projeto?
MARCELOFAZAN 25/07/2010 21:53:01
#348418
nao esta nao . esta dentro de um command
Escreve empty encima da palavra area
EDERMIR 26/07/2010 00:20:43
#348424
Se você não executa o comando a variável estará vazia.

Meu comando está assim:
Dim WS As Workspace
Set WS = DBEngine.CreateWorkspace([Ô][Ô], [Ô]admin[Ô], [Ô][Ô], dbUseJet)

E MICROSOFT DAO 3.5 habilitado nas referências.
MARCELOFAZAN 26/07/2010 00:31:26
#348426
Edermir se eu fazer o que me diz ai caio no Erro 3343
nessa linha

Set Banco = area.OpenDatabase(App.Path & [Ô]\busc.mdb[Ô])

esses dias faltou uma DLL DAO350 ai puxei de qq lugar e coloquei ela

tipo passei o package gerou
dao360.dll
stdole2.tlb
msado25.tlb ate qdo funcionava
uso access 2003

ainda o problema tá

Abs
Marcelo Fazan
MARCELOFAZAN 26/07/2010 00:46:09
#348427
amigo
arrumo
nao fiz nada pra arrumar
só que sei nao ..... to aprendendo a finalizar as coisas ultimamente

nao tava funcionando por falta de registro
porque diversas vezes .... peguei as dll que compilei no inno
e coleias na system32

agora fiz
regsvr32.exe dao360.dll
regsvr32.exe DAO350.DLL

e volto a funcionar ....
Obrigado
Abs
Marcelo Fazan
Tópico encerrado , respostas não são mais permitidas