Ir para conteúdo
  • ×   Você colou conteúdo com formatação.   Remover formatação

      Only 75 emoji are allowed.

    ×   Your link has been automatically embedded.   Display as a link instead

    ×   Your previous content has been restored.   Clear editor

    ×   You cannot paste images directly. Upload or insert images from URL.

  • Conteúdo Similar

    • Por FabianoSouza
      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;"  
    • Por 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
    • Por 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.
       
       
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.