VALIDAR CONEXAO VB6 X SQL 2005

FRIAS 01/10/2010 11:50:09
#354249
Galera, boa tarde!

Gostaria de saber se tem como verificar a conexão com um banco SQL Server. Minha dúvida é porque no meu sistema quando mando abrir a conexão e o IP do banco está errado, ele fica quase 1 minuto pra devolver o erro. Se o IP estiver OK, ele conecta rapidinho.

Se alguém puder me ajudar eu agradeço!

[]'s
JAMESBOND007 01/10/2010 12:11:22
#354251
Você pode diminuir o timeout da conexao. 
onnection Timeout=20[Ô]
FRIAS 01/10/2010 13:51:25
#354254
JAMESBOND007, valeu! Eu já tentei fazer isso e não mudou nada, a não ser que eu esteja fazendo errado:


Citação:

Set cn = New ADODB.Connection
Set cn = CreateObject([Ô]ADODB.Connection[Ô])
Dim ConectaSqlServer As String

ConectaSqlServer = [Ô]Provider=SQLNCLI;Server=[Ô] & IP & [Ô];Database=BANCO;Uid=USUARIO; Pwd=SENHA;[Ô]
cn.CursorLocation = adUseClient
cn.ConnectionTimeout = 20
cn.Open ConectaSqlServer



Obrigado!
Ricardo
TECLA 02/10/2010 09:48:27
#354297
Creio que 10 segundos seja suficiente.

Set con = New ADODB.Connection
con.ConnectionTimeout = 10
DoEvents
con.Open [Ô]Provider=SQLOLEDB; Data Source=[Ô] & Host & [Ô]; Initial Catalog=[Ô] & Banco & [Ô]; User ID=usuario; Password=senha;[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar