Caros Amigos,
Estou desenvolvendo uma aplicação em VB que acessa uma base de dados em SQL-Server via Internet. Por precaução, quando a aplicação é iniciada, eu verifico se a base dedos está acessível ou não, posto que a conexão com a Internet pode estar ausente. Para isso eu uso a função abaixo. Ou seja, se a conexão não for estabelecida, a função retorna False e exibe a mensagem.
Tudo está funcionando bem, porém, a palicação tenta por 30 segundos a conexão antes de exibir a mensagem. Seria possível ajustar este tempo para um valor menor?
Aproveitando, alguém sabe se existe uma função específica no VB para verificar se uma conexão com a Internet está disponível ou não?
Agradeço desde já.
Grande Abraço a todos.
Public Function abreconn() As Boolean
Dim conn As New ADODB.Connection
Dim abrir As String
' *** ABRE O BANCO DE DADOS NO SQL SERVER ***
abrir = "PROVIDER=SQLOLEDB;"
abrir = abrir & "SERVER=http://sqlxxx.gcbd.com.br;"
abrir = abrir & "UID=gcbd;"
abrir = abrir & "PWD=xxxxxxxxxx;"
abrir = abrir & "DATABASE=gcbd"
On Error GoTo msg
conn.Open abrir
abreconn = True
Exit Function
msg:
MsgBox "Erro ao conectar a Base de Dados Central. Comunique a Equipe de Suporte.", vbCritical, "Erro na Conexão"
End Function
