Erro conexão com SQL
Na minha aplicação, ao conectar ao banco de dados (SQL server 2008 R2) retorna o seguinte erro: -2147467259
Qual a causa deste erro? Como resolver?
Qual a causa deste erro? Como resolver?
Cleine Oliveira
Curtidas 0
Respostas
Jothaz
28/10/2015
Post o texto do erro.
Qual "Modo de autenticação" você esta usando: Windows, SQL ou Mixed?
Sua string esta correta?
Você consegue conectar vai Management Studio?
Seu servidor esta com conexão TCP/IP habilitado?
Já tentou desabilitar (temporariamente) o firewall?
Qual "Modo de autenticação" você esta usando: Windows, SQL ou Mixed?
Sua string esta correta?
Você consegue conectar vai Management Studio?
Seu servidor esta com conexão TCP/IP habilitado?
Já tentou desabilitar (temporariamente) o firewall?
GOSTEI 0
Cleine Oliveira
28/10/2015
Estou utilizando os comandos abaixo:
Sim.
Sim.
Public DB As New ADODB.Connection 'Objeto de conexão com o banco de dados
Public Vusuario As String 'Usuário do banco
Public Vsenha As String 'Senha do usuário
Public Vservidor As String 'Nome do servidor de banco de dados na rede
Public Vbanco As String 'Nome do banco de dados dentro do servidor
Public StatusBDN1 As Boolean 'Status de conexão com banco de dados BD_N1
'Conecta somente se conexão não ativa
If DB.State <> 1 Then
DB.Provider = "SQLOLEDB"
'DB.Provider = "ODBC"
DB.ConnectionString = "Server=" & Vservidor & ";Database=" & Vbanco & ";Encrypt=yes;Uid=" & Vusuario & ";Pwd=" & Vsenha
'DB.ConnectionString = "ODBC;DSN=" & Vbanco & ";Uid=" & Vusuario & ";Pwd=" & Vsenha
DB.CommandTimeout = 5
DB.ConnectionTimeout = 2
DB.Open
End If
'Retorno da função
Conn_BD = True
Sim.
Sim.
Public DB As New ADODB.Connection 'Objeto de conexão com o banco de dados
Public Vusuario As String 'Usuário do banco
Public Vsenha As String 'Senha do usuário
Public Vservidor As String 'Nome do servidor de banco de dados na rede
Public Vbanco As String 'Nome do banco de dados dentro do servidor
Public StatusBDN1 As Boolean 'Status de conexão com banco de dados BD_N1
'Conecta somente se conexão não ativa
If DB.State <> 1 Then
DB.Provider = "SQLOLEDB"
'DB.Provider = "ODBC"
DB.ConnectionString = "Server=" & Vservidor & ";Database=" & Vbanco & ";Encrypt=yes;Uid=" & Vusuario & ";Pwd=" & Vsenha
'DB.ConnectionString = "ODBC;DSN=" & Vbanco & ";Uid=" & Vusuario & ";Pwd=" & Vsenha
DB.CommandTimeout = 5
DB.ConnectionTimeout = 2
DB.Open
End If
'Retorno da função
Conn_BD = True
GOSTEI 0
Jothaz
28/10/2015
Retorna somente o número do erro ou vem alguma mensagem?
Aparentemente este ok, mas sugiro que tente conectar usando assim:
Só mesmo para testar e vermos que erro retorna se der erro.
Aparentemente este ok, mas sugiro que tente conectar usando assim:
Dim oOleDbConnection As OleDb.OleDbConnection Dim sConnString As String = _ "Provider=sqloledb;" & _ "Data Source=NomeDoServidor;" & _ "Initial Catalog=NomeBancoDeDados;" & _ "User Id=NomeUsuario;" & _ "Password=Senha" oOleDbConnection = New OleDb.OleDbConnection(sConnString) oOleDbConnection.Open()
Só mesmo para testar e vermos que erro retorna se der erro.
GOSTEI 0
Cleine Oliveira
28/10/2015
Jothaz, muito obrigado, já consegui fazer a conexão. Falha minha. Como estou mudando a estrutura do projeto, coloquei o nome de outro servidor de dados que não possuía a conta referenciada.
GOSTEI 0
Jothaz
28/10/2015
Foi um dos primeiros questionamento que fiz:
Que bom resolveu.
Sua string esta correta?
Que bom resolveu.
Sua string esta correta?
GOSTEI 0