Skip to main content
1 de 2
Onaiggac
  • 1,1mil
  • 7
  • 21

Provider de conexão não está funcionando em VBScript

Olá. Tenho a seguinte string de conexão:

conn = "Provider=SQLNCLI; Server=" & conn_server &"; Database="& conn_database &"; UID="& conn_uid &"; PWD="& conn_pwd

E o código para abrir e executar a SP:

set conexao = server.CreateObject("ADODB.connection")
conexao.ConnectionString = conn
conexao.Open

set cmd = Server.CreateObject("ADODB.Command")        
cmd.ActiveConnection = conexao
cmd.CommandText = "sp_login"
cmd.CommandType = adCmdStoredProc

cmd.Parameters.Append cmd.CreateParameter("@EMA_PES", adVarChar, adParamInput, 100, login)
cmd.Parameters.Append cmd.CreateParameter("@PSW_PES", adVarChar, adParamInput, 35, psw)

set Rs1 = Server.CreateObject("ADODB.RecordSet")
Rs1.CursorLocation = adUseClient
Rs1.CursorType = adOpenStatic

Rs1.Open cmd

session("id_pes") = Rs1("id")

Rs1.Close()
Set Rs1 = nothing
conexao.Close()
Set conexao = nothing

O problema ocorre no comando session("id_pes") = Rs1("id"). Diz que o item não pôde ser encontrado na coleção correspondente. Já verifiquei e o comando é executado no banco. Quando troco a string de conexão para usar o Driver = {SQL Native Client} funciona sem problemas.

Alguém poderia me ajudar?

Grato.

Onaiggac
  • 1,1mil
  • 7
  • 21