crei um programa com conexão  ADO

 

db.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & caminho & " ;" & _
                   "Jet OLEDB:Database Password=senha;", _
                   "admin", ""

 

até ai tudo bem , so que agora que colocar quero colocar ele em rede

e criei um form com um text aonde digito o caminho para o banco na rede

 Agora vem o dilema quero que quando alguem desliga o servidor(lugar aonde o banco de dados esta) as maquinas estações avise e feche o programa criei então um timer de 1 segundo e coloquei o código abaixo

 

Set bdAtivo = New ADODB.Connection
bdAtivo.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _
                   "Data Source=" & caminho & " ;" & _
                   "Jet OLEDB:Database Password=senha;", _
                   "admin", ""
If bdAtivo.State = 0 Then
   MsgBox "Banco de dados esta inativo. Talvez o servidor tenha sido desligado o siner será finalizado", vbCritical
 End
End If

 

e queria saber se isso compromete na velocidade do banco e a estabilidade do servidor 

 

se algume conheçe uma maneira mais simples de fazer isso me ajudem 

valeu galera 

 

em vez abrir uma nova conexão, você poderia criar uma variável global da conexão e fica testando o status desta variável

?

ola martini

voce poderia colocar um exemplo

Basta coloca em um modulo Assim

 

Global dbativo As New adodb.Connection

Qualquer form tem acesso a ela e podera ser usado para incluir qualquer tabela.

OLHA SE VC SOUBER USAR O WINSOCK !

SERIA A MELHOR SOLUÇÃO VC DEIXARIA UM APLICATIVO SERVIDOR SE COMUNICANDO COM O CLIENTE ASSIM Q SEJA FECHADO O SERVIDOR ELE INFORMAR AO CLIENTE E ASSIM VC TOMARIA UMA DESIÇÃO DE DEIXAR UM AVISO NA TELA PARA Q O USUÁRIO FECHE E DEPOIS Q ELE CONFIRMASSE VC FECHARIA O APLICATIVO

 

OUTRA MANEIRA SÉRIA VC CRIAR UMA FUNÇÃO Q TRATE O ERRO DE CONEXÃO QUANDO A CONEXÃO E INTERROPIDA ELE RETORNA UM NUMERO DE ERRO , VC UTILIZA ESSE NUMERO DO ERRO AVISANDO Q O SERVIDOR ESTA FECHADO

 

EX.:

PRIVATE SUB SB_INSERT_DADOS_BANCO

  

   on error goto erro_Conexao

 

   cnn.execute "insert into tabela (campo1,campo2) values (vlaue1,value2)

 

 exit sub

erro_Conexao:

    If Err.Number = -2147467259 Then
        msgbox "Verifique servidor ou conexão de rede local, e tente novamente"
    Else
        MsgBox Err.Description & " " & Err.Number, vbCritical,

"SB_INSERT_DADOS_BANCO"
    End If

end sub

 

 

ESPERO TER AJUDADO