• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

Sir Pereira

[VisualBasic6] conexao com a base de dados

5 mensagens neste tópico

não sei porque não consigo fazer com que o meu programa conecte á base de dados dá-me este erro:

Run-time error '7866':

O Microsoft Office Access não consegue abrir a base de dados porque esta falta ou foi aberta por um outro utilizador para uso exclusivo.

O problema, é que tenho a base de dados exactamente na mesma pasta onde está o projecto VB, e a outra parte, penso que também não, pois ao ter sido criada por mim, exactamente antes de começar a criar o projecto VB, e eu não tendo seleccionado nada para que tal acontecesse, acho muito pouco provável que seja isso.

Sendo assim, também não percebo o que se passa.

Tal também pode ter acontecido pois eu sou novato em VisualBasic / Bases de dados.

E para que não haja dúvidas o ficheiro da base de dados tem como nome 'downloader.mdb'.

O código do meu programa é este:

Private Sub Form_Load()
Access.Application.OpenAccessProject ("downloader.mdb")
MsgBox ("db2.mdb opened!")
End Sub

Com os melhores cumprimentos,

Ivo Pereira

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Quando utilizo uma Bd no Vb por norma esse problema trato-os sempre nas propriadades da "DATA"

mas por qualquer coisa pode-se ter que utilizar essa mesma instruçao

          Access.Application.OpenAccessProject ("downloader.mdb")

nao vejo que seja esse o problema ...

Ve se nao tens a BD protegida contra leitura/escrita  ou se tens o path bem ... Ou se a tens já aberta ...

Se nao for de alguma destas coisas ... n sei do que possa ser ...

cumps...

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Não sei bem mas acho que isso tem haver com...Objectos ou BD mal defenida !! será   --->>>   verifica bem os nomes.. :confused:

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

faz assim

project -> references -> microsoft dao 3.6 object library

general declarations
dim db as dao.database

private sub form_load ()
set db = opendatabase(app.path & "\downloader.mdb")
end sub

deve funcionar bem

abraços

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora