Jump to content
FabianoSouza

Erro de recordset gerado por ADODB

Recommended Posts

Está ocorrendo um erro simplesmente maluco.

 

Tenho uma procedure que funciona normalmente.

Mas quando mudo a string de conexão ocorre erro de recordset, dizendo " Operação não permitida quando o objeto está fechado. "

 

Vejam o código

 

Dim strConex
Set strConex = Server.CreateObject("ADODB.Connection")
'strConex.ConnectionString ="dsn=nomeConex1;uid=user1;pwd=senha1;"
strConex.ConnectionString ="dsn=nomeConex2;uid=user2;pwd=senha2;"
strConex.Open

Dim cmd
Dim rs1
Dim Recordset1_numRows

set cmd = Server.CreateObject("ADODB.Command")
cmd.ActiveConnection = strConex
cmd.CommandText = "dbo.sel_MinhaProcedure"
cmd.Parameters.Append cmd.CreateParameter("@RETURN_VALUE", 3, 4)
cmd.Parameters.Append cmd.CreateParameter("@id", 3, 1, 16, 11) 'int
cmd.CommandType = 4
cmd.CommandTimeout = 0
cmd.Prepared = true
set rs1 = cmd.Execute
%>

 

O problema está aqui. Usando usando a nomeConex1, funciona.

 

Com a nomeConex2 não funciona. Porém uso a nomeConex2 para várias outras coisas. Deveria funcionar.

 

strConex.ConnectionString ="dsn=nomeConex1;uid=user1;pwd=senha1;"
strConex.ConnectionString ="dsn=nomeConex2;uid=user2;pwd=senha2;"

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

  • Similar Content

    • By parralego
      Ola pessoal estou tentando tirar 2 º via de cuns comprovantes porém está aparecendo o erro
       
      ADODB.Field error "800a0bcd"
       
      Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
       
       
      peguei isso para pedir ajuda pois vi em alguns post 
       
       
      <head>
       
       
      <link rel="stylesheet" type="text/css" href="../estilos.css"/>
      <link rel="stylesheet" href="../js/calendario/calendario.css" type="text/css">
      <script language="javascript" src="../js/calendario/calendario.js"></script>
      <script language="javascript" src="../js/validacao.js"></script>
       
      <font face="Arial" size=2>
      <p>ADODB.Field</font> <font face="Arial" size=2>error '800a0bcd'</font>
      <p>
      <font face="Arial" size=2>Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.</font>
      <p>
      <font face="Arial" size=2>/cdtr/session.asp</font><font face="Arial" size=2>, line 97</font>
       
       
      vocês podem me ajudar por favor ?
       
       
    • By MarKteus
      Erro de tempo de execução do Microsoft VBScript erro '800a01b6'
      O objeto não dá suporte para a propriedade ou método: 'RecordCount'

      Estou obtendo esse erro ao tentar descobrir quantos registros foram retornados,

      O estranho é que em outras ocasiões, eu mesmo já usei método e não tive problemas

      Set objCommand= Server.CreateObject("ADODB.Command") Set objRecordset = Server.CreateObject("ADODB.Recordset") if not IsNull(Connection) then With objCommand .CommandText = "SELECT * FROM Usuario NOLOCK" .CommandType = 1 .ActiveConnection = Connection Set objRecordset = .Execute() End With end if
    • By MarKteus
      Alguem tem uma luz
       
       
      Set Con = CreateObject("ADODB.Connection") Con.ConnectionString = "Provider=SQLOLEDB;Data Source=(Local);Initial Catalog=MyBank;Persist Security Info=False;Integrated Security=SSPI"
       
       
      OpenConnection = Con.Open
       
       
      Mensagem de erro
       
      Microsoft OLE DB Provider for SQL Server erro '80004005'
      Não é possível abrir o banco de dados "SimpleCrudWithBoostrap" solicitado pelo logon. Falha de logon.
       
       
×

Important Information

Ao usar o fórum, você concorda com nossos Terms of Use.