Skip to main content
removeu 8 caracteres do conteúdo
Fonte Link
Marconcilio Souza
  • 12,6mil
  • 10
  • 40
  • 106

Olá. TenhoTenho 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")session("id_pes") = Rs1("id"). Diz que o item não pôde ser encontrado na coleção correspondente.

verifiquei e o comando é executado no banco. Quando troco a string de conexão para usar o Driver = {SQL Native Client}Driver = {SQL Native Client} funciona sem problemas.

Alguém poderia me ajudar?

Grato.

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. 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.

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.

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?

Tweeted twitter.com/#!/StackOverflowPT/status/508038534612393984
Fonte Link
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.