PESSOAL DA UMA AJUDA NO TRATAMENTO DESTE ERRO!

BYDUMORAES 21/03/2005 16:18:05
#74088
Private Sub Conecta()

Galera ja postei essa duvida mas nao consigo tratar esse erro, o seguinte abaixo segue a minha conxeao com o banco remoto, só que na Locaweb tem um timeout e as vezes demora um pouco pra conectar e as vezes da um erro, eu queria o seguinte assim que abrir o form mostrasse uma mensagem tipo"Conectando com a base de dados.... " e se desse algum erro na conexao mostrasse outra msgbox... ja quebrei a cabeca mas nao consegui...

Private Sub Conecta()

Set cnn = New ADODB.Connection
Set rs = New ADODB.Recordset

cnn.CursorLocation = adUseClient
cnn.CommandTimeout = 0
cnn.Open "Provider=sqloledb;" & _
"Network Library=DBMSSOCN;" & _
"Data Source=xxx.xxx.xxx.x;" & _
"User ID=xxxxx;" & _
"Password=xxxxxx"

End Sub
LCSD 21/03/2005 16:37:29
#74093 Resposta escolhida
Tente fazer assim:


Private Sub Conecta() 
on error goto Erro_Conecta
Set cnn = New ADODB.Connection 
Set rs = New ADODB.Recordset 

     cnn.CursorLocation = adUseClient 
     cnn.CommandTimeout = 0 
    cnn.Open "Provider=sqloledb;" & _ 
    "Network Library=DBMSSOCN;" & _ 
    "Data Source=xxx.xxx.xxx.x;" & _ 
    "User ID=xxxxx;" & _ 
    "Password=xxxxxx" 
     exit sub

Erro_Conecta:
   if err.number = código do erro then
       msgbox "blablablablablablabla"
   endif
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar