Trabalhando Com Access com OLE através do Excel

[willian.rocha]

O codigo abaixo inserido no excel, fuinciona tranquilo numa maquina com ms access intalado

Dim objAccess As Access.Application
objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd
objAccess.DoCmd......o céu é o limite hahahah

Progredindo nos estudos cheguei ao comando para funcionar tb no runtime, nesse caso sendo necessário trabalhar com a api shellexecute

Call ShellExecute(0, "open", strCaminhoBD & "\" & strNomeBD, "", strCaminhoBD, 3)
Sleep 3000
Set objAccess = GetObject(strCaminhoBD & "\" & strNomeBD)

Mas aí precisei colocar senha criptografada no banco sem grupo, aquela generica. Quando fui ver estava precisando efetuar todas essas instruções

Call ShellExecute(0, "open", strCaminhoBD & "\temp.accdb", "", strCaminhoBD, 3)
Sleep 3000
Set objAccess = GetObject(strCaminhoBD & "\temp.accdb")
objAccess.CloseCurrentDatabase
objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd

Perguntas existe alguma maneira desse comando

Código: Selecionar todos

 objAccess.OpenCurrentDatabase strCaminhoBD & "\" & strNomeBD, False, strPwd

ser reconhecido numa maquina só com o runtime instalado sem necessidade de executar o shellexecute? Se não, existe alguma maneira executra o shellexecute informando já os parametros de logon? obs já tentei o comando shellexecute como os parametros /user admin /PWD aabbccZ2 ele tenta logar com grupo de usuário não é isso o que eu quero.

[Avelino Sampaio]

Willian,

pesquisei bastante aqui e não encontrei uma solução diferente da sua. Infelizmente, para acessar o Access RUNTIME ou o arquivo com a extensão ACCDR é necessário que estejam abertos, para usar o GetObject().

Se conseguir algo diferente, poste aqui pra gente.

[willian.rocha]

Valeu Avelino! Vou continuar pesquisando, qqr coisa informo aqui.