Erro conexão com SQL
28/10/2015
0
Qual a causa deste erro? Como resolver?
Cleine Oliveira
Posts
28/10/2015
Jothaz
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?
28/10/2015
Cleine Oliveira
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
28/10/2015
Jothaz
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.
28/10/2015
Cleine Oliveira
28/10/2015
Jothaz
Que bom resolveu.
Sua string esta correta?
Clique aqui para fazer login e interagir na Comunidade :)