[Resolvido] Consultas SQL através de Trusted Connection

[Tercio_Toledo 0]

Caros amigos estou com um problema aqui na empresa com relação a forma de acesso ao banco.

 

Eu tenho uma aplicação que já esta funcionando normalmente quando conecto no banco através da atenticação de usuário senha do SQL. Porém agora preciso utilizar o acesso "Truted Connection".

 

Então fiz algumas alterações para "Trusted Connection" o banco esta conectando normalmente. Porém as minhas consultas via "SELECT" não estão funcionando, pois quando a aplicação vai fazer alguma consulta ocorre o seguinte erro.

 

Run-time error '-2147217865 (80040e37)'

 

Nome do objeto 'SERIES_NF' inválido.

Pelo que entendi parece que por causa da forma de conexão o meu recordset não esta encontrando a tabela.

 

Veja como estou fazendo a conexao e a consulta

 

CONEXAO AO BANCO

strConn = strConn & "Provider=sqloledb; "

strConn = strConn & "Data Source=" & Trim(txtServidor.Text) & "; "

strConn = strConn & "Catalog=pubs;"

strConn = strConn & "Integrated Security=SSPI;"

strConn = strConn & "Trusted_Connection=Yes;"

 

 

Set cn = New ADODB.Connection

cn.Open strConn

 

CONSULTA SQL

 

SQL = ""

SQL = SQL & "SELECT * FROM SERIES_NF WHERE DATA_FIM > GETDATE() OR DATA_FIM IS NULL ORDER BY SERIE_NF"

Set rs = New ADODB.Recordset

rs.Open SQL, cn

 

Será que alguém sabe o que pode estar ocasionando esse erro ? Poderiam me ajudar ?

 

Obrigado

[Claudio Neto 3]

Olá Tercio, que VB você está utilizando?

[erich8vb 0]

Ola amigo uso o vb6.

Tenho uma apostila e nela fala de Build e Select.

O Build não ajudaria?

Talvez eu não tenha entendido

 

eu usava sql asim

 

If Op = "Nome" Then

Set TB_F = New ADOR.Recordset

TB_F.Open "select * from FORNECEDOR where NOME like'" + Text10 + "%'", "provider=microsoft.jet.oledb.3.51;persist security info =false; user id=;data source=" & arquivo & " ", adOpenStatic, adLockOptimistic

If TB_F.EOF Then

MsgBox "cliente não Localizado!", vbInformation, "Resultado da Pesquisa!"

End If

atualiza

Exit Sub

End If

[Tercio_Toledo 0]

Olá Tercio, que VB você está utilizando?

 

Ola Claudio desculpe a demora na resposta.

 

Estou usando o VB6

[Tercio_Toledo 0]

erich8vb obrigado pela ajuda.

 

E você utilizava com banco SQLSERVER o ACCESS ?

 

Porque aqui estou utilizando o SQLSERVER 2005 e o aceso ao banco esta normal apenas as instruções SQL que tento fazer apresentam esse problema. Lembrando que antes eu me logava ao banco diretamente com o login e senha do SQL e essas instruções SQL sempre funcionaram.

 

Obrigado

 

Ola amigo uso o vb6.

Tenho uma apostila e nela fala de Build e Select.

O Build não ajudaria?

Talvez eu não tenha entendido

 

eu usava sql asim

 

If Op = "Nome" Then

Set TB_F = New ADOR.Recordset

TB_F.Open "select * from FORNECEDOR where NOME like'" + Text10 + "%'", "provider=microsoft.jet.oledb.3.51;persist security info =false; user id=;data source=" & arquivo & " ", adOpenStatic, adLockOptimistic

If TB_F.EOF Then

MsgBox "cliente não Localizado!", vbInformation, "Resultado da Pesquisa!"

End If

atualiza

Exit Sub

End If

[Tercio_Toledo 0]

Pessoal consegui resolver de uma maneira o meu problema.

 

Em todas as sentenças SQL eu coloquei o nome do banco antes do nome da tabela.

 

EXEMPLO

 

STRSQL = "SELECT * FROM " & "CLIENTESDB" & ".DBO.CADASTROS WHERE ID_CLIENTE=" & RS.FIELDS("NUMERO")

[Claudio Neto 3]

Parabéns Tércio, que bom que resolveu.

 

Eu não soube te ajudar, mas ainda bem que achou a solução.