CONEXAO COM BANCO DE DADOS OCORRENDO DBNETLIB
Oie...... Gente estou com um problemão 
...O sistema que estou fazendo para o projeto, abro uma conexão com o SQL Server no load do formulário principal (MDI), porém está ocorrendo DBNETLIB - Falha de conexão. O que poderia alterar na conexão para que não ocorrá este problema.
...O sistema que estou fazendo para o projeto, abro uma conexão com o SQL Server no load do formulário principal (MDI), porém está ocorrendo DBNETLIB - Falha de conexão. O que poderia alterar na conexão para que não ocorrá este problema.
Olha o ideal seria vc postar a sua string conexão e se possÃvel a imagem do erro, desta maneira poderemos ter uma visão mais ampla do seu problema
Public CN As ADODB.Connection
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]user id=sa;data source=[Ô] & Servidor & [Ô];initial catalog=Database[Ô]
.Open
End With
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]user id=sa;data source=[Ô] & Servidor & [Ô];initial catalog=Database[Ô]
.Open
End With
a string de conexão não está errada?
tente assim
Public CN As ADODB.Connection
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]Data Source=[Ô] & Servidor & [Ô];Initial Catalog=Database;User Id=sa;Password=[txt-color=#e80000]sua_senha[/txt-color];[Ô]
.Open
End With
posso estar errado mas acredito que seja assim
tente assim
Public CN As ADODB.Connection
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]Data Source=[Ô] & Servidor & [Ô];Initial Catalog=Database;User Id=sa;Password=[txt-color=#e80000]sua_senha[/txt-color];[Ô]
.Open
End With
posso estar errado mas acredito que seja assim
Conexão está correta, porém não sei o que fazer para aumentar o timeout, pois se parar de usar o sistema, a pouco ele para de funcionar....
ja'tentou
Public CN As ADODB.Connection
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]user id=sa;data source=[Ô] & Servidor & [Ô];initial catalog=Database[Ô]
.CommandTimeout = 0
.Open
.
End With
Public CN As ADODB.Connection
Input #intfnum, Servidor
ValorServidor = Servidor1
With CN
.Provider = [Ô]sqloledb[Ô]
Input #intfnum, Servidor
If ValorServidor = 1 Then .ConnectionString = [Ô]user id=sa;data source=[Ô] & Servidor & [Ô];initial catalog=Database[Ô]
.CommandTimeout = 0
.Open
.
End With
acho que vc poderia mudar sua conexao pra melhor . isso nao ira atrapalhar nos Records Set , e nem no seu T-SQL
voce esta usando arquivos externo .... que tipo udl ou ini ?
voce esta usando arquivos externo .... que tipo udl ou ini ?
Tópico encerrado , respostas não são mais permitidas