banco de dados access

[copelli 0]

olá alguem sabe me informar como faço para abrir um banco de dados ACCESS, independente de onde eu o salvei - A:, C:, D:por exemplo. Eu estou fazendo assim: Form_Load Set BdEstoque = OpenDatabase("A:\DS2\Estoque\Estoque.mdb") Set TbProdutos = BdEstoque.OpenRecordset("Produtos", dbOpenTable) TbProdutos.Index = "IndCodigo" Para abrir o BD eu estou colocando o caminho todo: OpenDatabase("A:\DS2\Estoque\Estoque.mdb"), e está funcionando mas se eu mudo a pasta de lugar tenho que mudar o caminho de todos os Forms Se alguém souber como fazer para que que eu não precise fazer isso me ajude.

[Graymalkin 0]

Use App.Path para retornar onde o executável do seu programa está rodando. Daí, basta adicionar o caminho do BD a este caminho.Abraços,Graymalkin

[fnandood 0]

CRIE UMA VARIAVEL CAMINHOPUBLIC VCAMINHO AS STRING (ESTA VOCE CRIA DENTRO DE UM MODULO)VCAMINHO = TEXT1.TEXT 'NESSE TEXT VOCE CONFIGURA O CAMINHODEPOIS COLOQUE EM TODOS OS FORMS O SEGUINTEOpenDatabase(CAMINHO &"\Estoque.mdb")