[Resolvido] Conexao com SQL Server

[Roacutan 0]

Eu gostaria de saber se a alguma maneira de conectar ao sql server sem ter que colocar senha, pq para conectar com componentes nao solicita, mas qdo eu tento pelo método ADO so obtenho exito se for no sql e configurar senha!!

 

Dim sql As String
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Form_Load()
cn.Provider = "SQLOLEDB"
cn.Properties("Data Source").Value = "gustavo"
cn.Properties("Initial Catalog").Value = "Fornecedores"
cn.Properties("User ID").Value = "user_forn"
cn.Properties("Password").Value = "123456"
cn.Open
sql = "Select cod, nome, item from Fornecedores"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenForwardOnly, adLockOptimistic
mostrar_dados
cmdCancelar.Enabled = True
cmdGravar.Enabled = False
End Sub

[scorpio 7]

o Seu SQL está configurado com usuário e senha ou você conecta nele com o usuário do windows (sem precisar digitar)?

[Roacutan 0]

já consegui achar a solução!

[scorpio 7]

já consegui achar a solução!

 

Sim, mas como fez? Outros usuários podem precisar...

[Roacutan 0]

tirei as linhas

cn.Properties("User ID").Value = "user_forn"
cn.Properties("Password").Value = "123456"

e coloquei

cn.Properties("Integrated Security") = SSPI 

que é autenticação via windows se nao me engano !!

 

deu certo !

Private Sub Form_Load()
cn.Provider = ("SQLOLEDB")
cn.Properties("Data Source").Value = "gustavo"
cn.Properties("Initial Catalog").Value = "Matricula"
cn.Properties("Integrated Security") = SSPI
cn.Open
sql = "Select ra, nome, curso from cadastrogeral"
rs.CursorLocation = adUseClient
rs.Open sql, cn, adOpenForwardOnly, adLockPessimistic
 
preencher_campos
cmdGravar.Enabled = False
End Sub