|
|
Postada em 24/08/2010 13:44 hs
Amigos,
Tenho um banco de dados (Access) em rede, e quando o usuário vai tentar abrir o sistema, mas a rede nao esta conectada, aparece uma mensagem de erro. Alguem tem algum codigo de exemplo para tratar dessa situacao, tipo testar a conexao da rede? OBS? Estou usando DAO.
|
|
|
|
|
|
|
|
Postada em 25/08/2010 10:19 hs
Edmar, acho que uma simples mensagem tratando este erro já deveria situar o operador do sistema quanto a isso, ex: on Error goto Erro_ABreBD bdados.open........ exit sub Erro_ABreBD: msgbox "O banco de dados não foi encontrado. Verifique se rede está ativa ou contate o administrador de redes ou do sistema.") end Sub |
|
TÓPICO EDITADO
|
|
|
|
Edmar Santos
não registrado
|
|
Postada em 25/08/2010 11:16 hs
Caro J. Carlos,
Grato pela resposta. Mas está acontecendo um problema. A idéia do sistema é a seguinte: Cada máquina possui um arquivo de preferencias instalado para guardar o caminho do banco de dados. Dai uso do DAO para abrir o banco de dados
Set DB = DBEngine.Workspaces(0).OpenDatabase("" & Text3 & "mdbCadastro.mdb")
Mas tá acontecendo um erro... Sempre a mensagem ta aparecendo. Eu fiz um teste: coloquei o arquivo no C: e mesmo assim aparece o erro...
O que você acha?
|
|
|
|
J.Carlos
|
PRESIDENTE PRUDENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/08/2010 14:35 hs
Qdo eu usava Dao eu fazia assim: Set Bdados = OpenDatabase(App.Path & "mala.mdb") ' abrindo banco de dados Tem certeza de que no seu text3 que contém o caminho do bd tem a barra invertida antes do nome do bd? Pelo que entendi acima, vc está usando DAO só porque o seu bd está em outro local e tem vários pc's acessando. O Ado resolveria isso muito bem e é muito melhor que DAO. Abraços.
|
|
|
|
Treze
|
SÃO VICENTE
SP - BRASIL
|
|
|
ENUNCIADA !
|
|
|
Postada em 25/08/2010 19:18 hs
colega o J. Carlos mandou a melhor resposta. mas faça o seguinte, anote o numero do erro que aparece, e trate assim on Error goto TrataErro ' seu código de conexão exit sub TrataErro: If Err.Number = numero do erro then msgbox "Ouve um erro ao tentar se conectar, verifique a rede antes de continuar" end Sub e é isso |
|
|
|
|
|
Postada em 31/08/2010 16:20 hs
se voce não estiver mapeando a unidade voce tem que compartilhar este arquivo na rede,caso contrário sua aplicação não vai achar ele no outro PC.
|
|
|
|
