none
Recordset com parâmetros RRS feed

  • Pergunta

  • Boa tarde, eu tenho em minha aplicação um recordset trazendo um grupo de equipamentos que executo ele passando uma string, segue:

    strGru = "select * from tb_grupo_equip"
    set rs = con.execute(strGru)

    Depois, crio um while trazendo os grupos dele no select do form, segue:

    <select name = "slcConsulP">
              <%while not rs.eof%><option value="<%=rs("id_grupo")%>"><%=rs("grupos")%></option>
              <%rs.movenext
              wend%>
         </select>

    Até ai beleza, porém eu preciso criar essa mesma chamada de recordset com procedimento, eu criei meu procedimento, mas não sei como armazenar ele em um recordset, segue:

    set ocCMD              = Server.CreateObject("ADODB.Command")
       set ocCMD.ActiveConnection = con
       ocCMD.CommandText      = "PRCSELECTG"
       ocCMD.CommandType      = 4
       Set objParam = ocCMD.CreateParameter ("@prmgrupo", 200, 1, 50 , idGrupo)
       ocCMD.Parameters.Append objParam

    Como vou recuperar os dados que eu passei no meu parâmetro @prmgrupo e exibilos no select do form como exibi anteriormente?

    quarta-feira, 14 de novembro de 2012 14:06

Todas as Respostas

  • Faz assim

    No meio do codigo, crie o seu segundo recordSet usando a forma abaixo

    strGru = "execute PRCSELECTG " & CStr(idGrupo)
    set rsGrupo = con.execute(strGru)


    []'s --- Se a minha resposta lhe foi util, marque "Propor como Proposta" para qualificar o conteudo do fórum e ajudar os outros usuários. Obrigado, Valdek Santos Santana Junior

    terça-feira, 15 de janeiro de 2013 21:10
  • Tenta assim,

    Set cmdTemp = Server.CreateObject("ADODB.Command")
    Set cmdTemp.ActiveConnection = MSCS
    cmdTemp.CommandType = adCmdText
    
    cmdTemp.CommandText = "SELECT * FROM Tabela WHERE campo1 = ? AND campo2 = ?"
    params = array("campo1", "campo2")
    params(0) = "valorDoCampo1"
    params(1) = "valorDoCampo1"
    Set rs = cmdTemp.Execute(count, params)
    

    At.


    Michel Guilherme Ferreira http://www.lehcim.com

    sexta-feira, 18 de janeiro de 2013 13:01