CONEXÃO SQL USANDO AUTENTICAÇÃO DO WINDOWS

 Tópico anterior Próximo tópico Novo tópico

CONEXÃO SQL USANDO AUTENTICAÇÃO DO WINDOWS

VB.NET

 Compartilhe  Compartilhe  Compartilhe
#444516 - 14/02/2015 11:21:03

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


Última edição em 21/02/2015 17:37:25 por WEBMASTER

Galera, estou com uma dificuldade na conexão, um dos programadores antigos do meu cliente, instalou o SQL express mas o soft antigo fazendo conexao com autenticação do windows, eu normalmente uso autenticação do servidor vou postar o codigo fonte abaixo.
Gostaria de saber como posso alterar minha variavel para fazer autenticação pelo windows e ao mesmo tempo pela conexão com SQL

  
Imports System.Data.SqlClient
Imports System.Windows.Forms
Public Class cldBancoDados
    Dim StringConexao As String = "Server=.;Database=nomedadatabase;user id=usuario;pwd=senha"
    Private Function AbreBanco() As SqlConnection
        Dim Conn As New SqlConnection
        With Conn
            .ConnectionString = StringConexao
            .Open()
        End With
        Return Conn
    End Function
    Private Sub FechaBanco(ByVal Conn As SqlConnection)
        If Conn.State = ConnectionState.Open Then
            Conn.Close()
        End If
    End Sub
    Public Sub ExecutaComando(ByVal strQuery As String)
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
                .ExecuteNonQuery()
            End With
        Catch ex As Exception
            Throw ex
        Finally
        End Try
    End Sub
    Public Function RetornaDataSet(ByVal strQuery As String) As DataSet
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With
            Dim daAdaptador As New SqlDataAdapter
            Dim dsDataSet As New DataSet
            daAdaptador.SelectCommand = cmdComando
            daAdaptador.Fill(dsDataSet)
            Return dsDataSet
        Catch ex As Exception
            Throw New Exception("Erro na camada 3:" & ex.Message)
        Finally
            FechaBanco(Conn)
        End Try
    End Function
    Public Function RetornaDataReader(ByVal strQuery As String) As SqlDataReader
        Dim Conn As New SqlConnection
        Try
            Conn = AbreBanco()
            Dim cmdComando As New SqlCommand
            With cmdComando
                .CommandText = strQuery
                .CommandType = CommandType.Text
                .Connection = Conn
            End With
            Return cmdComando.ExecuteReader
        Catch ex As Exception
            Throw ex
        End Try
    End Function
End Class


O que recebe o usuario e senha e o servidor do SQL esta nesta string: Dim StringConexao As String = "Server=.;Database=nomedadatabase;user id=usuario;pwd=senha"

Só que preciso alterar ele para fazer ele conectar com altenticação Windows.


VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


#444519 - 14/02/2015 17:53:27

LVFIOROT
SERRA
Cadast. em:Março/2012


Última edição em 14/02/2015 17:55:16 por LVFIOROT

"Server=.;Database=nomedadatabase;Trusted_Connection=True;"
ou
"Server=.;Database=nomedadatabase;Integrated Security=SSPI;"
ou
"Server=.;Database=nomedadatabase;Integrated Security=true"


ref: http://stackoverflow.com/questions/1642483/when-using-trusted-connection-true-and-sql-server-authentication-will-this-effe




#444528 - 15/02/2015 18:01:49

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


Vou fazer o teste no computador do cliente e já posto o resultado.

VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


#444600 - 19/02/2015 10:20:01

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


 Anexos estao visíveis somente para usuários registrados

As versões do SQL são diferentes as conexões? Pois eu fiz o teste no meu Note, o SQL conecta perfeitamente, pesquisa, faz login, tudo perfeito, mas na maquina do cliente não está conectando. Não sei exatamente o que o programador anterior fez mas confirmei algo diferente na conexão com SQL ao executar. Vou mandar o print screen. Se puderem me ajudar a conectar nesta maquina com este tipo de conexão.

VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


#444651 - 20/02/2015 15:40:35

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


Alguma segunda opção?

VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


#444659 - 20/02/2015 22:01:34

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


Server=dbServer;database=theData;User ID=loginname;password=thepassword;



Resposta escolhida #444665 - 21/02/2015 02:20:24

LAMPIAO
SAO CAETANO DO SUL
Cadast. em:Setembro/2004


Última edição em 21/02/2015 02:21:56 por LAMPIAO

Olá Mouser, acredito que isso seja um problema da forma como foi instalado o SQL Server, quando se vai instalar, normalmente tem uma sessão da instalação que pergunta como o usuário deseja se conectar ao SQL.

Existem duas maneiras Mixed Mode que permite se conectar com usuário e senha do sql server e também permite se conectar usando autenticação do windows, a outra forma é apenas autenticação do windows.

Se não me falha a memória se quem estiver instalando escolher autenticação do windows, só terá essa opção de conexão com o SQL Server.

Você pode tentar as diversas opções de conexão disponibilizadas aqui

Abraços




#444778 - 25/02/2015 13:08:27

MOUSER
CARAPICUIBA
Cadast. em:Fevereiro/2014


Obrigado Lampiao, vou dar uma estudada nas opções disponibilizada por você e fazer os testes.

VB.NET + SQL Server = Muita coisa sei, mas muita coisa para aprender.
Curso de Excel e VB6 www.cursoexcelvba.com.br
Blog do Mouser


 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por MOUSER em 09/09/2015 12:12:03