Stored Procedure

[mauriciocr 0]

Olá pessoal ,Gostaria que me ajudasse com essa Stored ProcedureÉ uma SP com a finalidade de um select , é uma busca de várias tabelas para um BOLETIM ESCOLAR.A SP , não ta retornando nada , não da erro , mas não traz as informaçoes do banco FIREBIRDsegue o codigo<td width="427"><table width="560" border="0" cellspacing="0" cellpadding="0"> <form name="formCur" method="post" action="buscafaltas.asp"> <input type="hidden" name="ir" value="faltas.asp"> <input type="hidden" name="busca" value="1"> <tr> <td> </td> </tr> <tr> <td height="25" align="right" class="style4">Consulta Boletim de Faltas </td> </tr> <tr> <td height="1" bgcolor="#666666"> </td> </tr> <tr> <td height="10"> </td> </tr> <tr> <td align="center"><table border="0" cellpadding="4" cellspacing="1" class="style1"> <tr> <td align="right">Disciplina</td> <td> </td> </tr> <tr> <td colspan="4" align="center"><input type="submit" class="botao" value="Buscar" /> <input type="reset" class="botao" value="Limpar" /></td> </tr> </table> <br> <table border="0" cellpadding="3" cellspacing="2" class="texto"><% ' Instancio o Objeto para execucao da ProcedureSet DataCmd = Server.CreateObject("ADODB.Command")' Atribuo o Nome da Procedure que sera ExecutadaDataCmd.CommandText = "BOLETIM_ESCOLAR_ALUNO"' Atribuo o Objeto de Conexao com o BDDataCmd.ActiveConnection = Conn' Atribuo o Tipo de Objeto que sera ExecutadoDataCmd.CommandType = adCmdStoredProc' Passo os ParâmetrosDataCmd.Parameters.Append DataCmd.CreateParameter("EVESC_CODI", adInteger, adParamInput, 10, Session("ESC_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVSUB_CODI", adInteger, adParamInput, 10, Session("SUB_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVMAT_CODI", adInteger, adParamInput, 10, Session("MAT_CODI"))' Executo a ProcedureSet RS = DataCmd.Execute' Recupero a variável de retorno da procedure'Conn.close()' Fecho a Conexão while not (RS.EOF) %> <tr> <td align="center"><b>Disciplina </b></td> <td align="center"><b>Mês 1</b></td> <td align="center"><b>Mês 2</b></td> <td align="center"><b>Mês 3</b></td> <td align="center"><b>Mês 4</b></td> <td align="center"><b>Mês 5</b></td> <td align="center"><b>Total Faltas</b></td> <td align="center"><b>Carga Horaria</b></td> <td align="center"><b>Situação</b></td> </tr><% Cor = "#F3F3F3" %> <tr> <td align="center" bgcolor="<%=Cor%>"><%=RS("dis_nome")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA01")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA02")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA03")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA04")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA05")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_TOTAL")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("CUR_CARHOR")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_STATUS")%></td> </tr><% If Cor = "#FFFFFF" Then Cor = "#F3F3F3" Else Cor = "#FFFFFF" End If RS.MoveNext Wend%> </table> <% 'Else%> <span class="style3"><br> <b>Nenhuma disciplina foi encontrado!</b></span> <% 'End If RS.Close Set RS = Nothing'End If%> </td> </tr> <tr> <td class="texto"> </td> </tr> </form></table>

[jothaz 1]

Olá pessoal ,Gostaria que me ajudasse com essa Stored ProcedureÉ uma SP com a finalidade de um select , é uma busca de várias tabelas para um BOLETIM ESCOLAR.A SP , não ta retornando nada , não da erro , mas não traz as informaçoes do banco FIREBIRDsegue o codigo<td width="427"><table width="560" border="0" cellspacing="0" cellpadding="0"> <form name="formCur" method="post" action="buscafaltas.asp"> <input type="hidden" name="ir" value="faltas.asp"> <input type="hidden" name="busca" value="1"> <tr> <td> </td> </tr> <tr> <td height="25" align="right" class="style4">Consulta Boletim de Faltas </td> </tr> <tr> <td height="1" bgcolor="#666666"> </td> </tr> <tr> <td height="10"> </td> </tr> <tr> <td align="center"><table border="0" cellpadding="4" cellspacing="1" class="style1"> <tr> <td align="right">Disciplina</td> <td> </td> </tr> <tr> <td colspan="4" align="center"><input type="submit" class="botao" value="Buscar" /> <input type="reset" class="botao" value="Limpar" /></td> </tr> </table> <br> <table border="0" cellpadding="3" cellspacing="2" class="texto"><% ' Instancio o Objeto para execucao da ProcedureSet DataCmd = Server.CreateObject("ADODB.Command")' Atribuo o Nome da Procedure que sera ExecutadaDataCmd.CommandText = "BOLETIM_ESCOLAR_ALUNO"' Atribuo o Objeto de Conexao com o BDDataCmd.ActiveConnection = Conn' Atribuo o Tipo de Objeto que sera ExecutadoDataCmd.CommandType = adCmdStoredProc' Passo os ParâmetrosDataCmd.Parameters.Append DataCmd.CreateParameter("EVESC_CODI", adInteger, adParamInput, 10, Session("ESC_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVSUB_CODI", adInteger, adParamInput, 10, Session("SUB_CODI"))DataCmd.Parameters.Append DataCmd.CreateParameter("EVMAT_CODI", adInteger, adParamInput, 10, Session("MAT_CODI"))' Executo a ProcedureSet RS = DataCmd.Execute' Recupero a variável de retorno da procedure'Conn.close()' Fecho a Conexão while not (RS.EOF) %> <tr> <td align="center"><b>Disciplina </b></td> <td align="center"><b>Mês 1</b></td> <td align="center"><b>Mês 2</b></td> <td align="center"><b>Mês 3</b></td> <td align="center"><b>Mês 4</b></td> <td align="center"><b>Mês 5</b></td> <td align="center"><b>Total Faltas</b></td> <td align="center"><b>Carga Horaria</b></td> <td align="center"><b>Situação</b></td> </tr><% Cor = "#F3F3F3" %> <tr> <td align="center" bgcolor="<%=Cor%>"><%=RS("dis_nome")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA01")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA02")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA03")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA04")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA05")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_TOTAL")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("CUR_CARHOR")%></td> <td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_STATUS")%></td> </tr><% If Cor = "#FFFFFF" Then Cor = "#F3F3F3" Else Cor = "#FFFFFF" End If RS.MoveNext Wend%> </table> <% 'Else%> <span class="style3"><br> <b>Nenhuma disciplina foi encontrado!</b></span> <% 'End If RS.Close Set RS = Nothing'End If%> </td> </tr> <tr> <td class="texto"> </td> </tr> </form></table>

Camarada,Cadê o código da stored procedure? você postou somente a chamada da sp!Posta a sp ai para facilitar.t+

[mauriciocr 0]

Camarada,Cadê o código da stored procedure? você postou somente a chamada da sp!Posta a sp ai para facilitar.t+A SP , NO FIREBIRD .COMMIT WORK;SET AUTODDL OFF;SET TERM ^ ;CREATE PROCEDURE BOLETIM_ESCOLAR_ALUNO ( EVESC_CODI INTEGER, EVSUB_CODI INTEGER, EVMAT_CODI INTEGER)RETURNS( RVCUR_SIGLA VARCHAR(10) CHARACTER SET ISO8859_1, RVALU_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVALU_NR VARCHAR(20) CHARACTER SET ISO8859_1, RVALU_RM VARCHAR(20) CHARACTER SET ISO8859_1, RVCUR_NOME VARCHAR(200) CHARACTER SET ISO8859_1, RVTER_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVPER_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVTUR_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVTUR_CODI INTEGER, RVSAL_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVPES_CODI INTEGER, RVMAT_CODI INTEGER, RVCUR_TERMO INTEGER, RVCUR_CODI VARCHAR(10) CHARACTER SET ISO8859_1, RVALU_FOTO BLOB, RVMAT_NOTA01 NUMERIC(15, 2), RVMAT_NOTA02 NUMERIC(15, 2), RVMAT_NOTA03 NUMERIC(15, 2), RVMAT_NOTA04 NUMERIC(15, 2), RVMAT_NOTA05 NUMERIC(15, 2), RVMAT_NOTA06 NUMERIC(15, 2), RVMAT_NOTA07 NUMERIC(15, 2), RVMAT_NOTA08 NUMERIC(15, 2), RVMAT_NOTA09 NUMERIC(15, 2), RVMAT_NOTA10 NUMERIC(15, 2), RVMAT_NOTA01L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA02L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA03L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA04L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA05L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA06L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA07L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA08L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA09L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA10L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_FALTA01 INTEGER, RVMAT_FALTA02 INTEGER, RVMAT_FALTA03 INTEGER, RVMAT_FALTA04 INTEGER, RVMAT_FALTA05 INTEGER, RVMAT_FALTA06 INTEGER, RVMAT_FALTA07 INTEGER, RVMAT_FALTA08 INTEGER, RVMAT_FALTA09 INTEGER, RVMAT_FALTA10 INTEGER, RVMAT_MEDIA01 NUMERIC(15, 2), RVMAT_MEDIA02 NUMERIC(15, 2), RVMAT_RESUL02 VARCHAR(2) CHARACTER SET ISO8859_1, RVMAT_STATUS VARCHAR(20) CHARACTER SET ISO8859_1, RVMAT_TOTAL INTEGER, RVMAT_CARGHOR INTEGER, RVMAT_FREQ NUMERIC(15, 2), RVDIS_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVDIS_CODI INTEGER, RVDIS_MESTRE INTEGER, RVPROF_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVDIS_ORDEM INTEGER)ASBEGIN EXIT; END ^ALTER PROCEDURE BOLETIM_ESCOLAR_ALUNO ( EVESC_CODI INTEGER, EVSUB_CODI INTEGER, EVMAT_CODI INTEGER)RETURNS( RVCUR_SIGLA VARCHAR(10) CHARACTER SET ISO8859_1, RVALU_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVALU_NR VARCHAR(20) CHARACTER SET ISO8859_1, RVALU_RM VARCHAR(20) CHARACTER SET ISO8859_1, RVCUR_NOME VARCHAR(200) CHARACTER SET ISO8859_1, RVTER_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVPER_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVTUR_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVTUR_CODI INTEGER, RVSAL_DESC VARCHAR(50) CHARACTER SET ISO8859_1, RVPES_CODI INTEGER, RVMAT_CODI INTEGER, RVCUR_TERMO INTEGER, RVCUR_CODI VARCHAR(10) CHARACTER SET ISO8859_1, RVALU_FOTO BLOB, RVMAT_NOTA01 NUMERIC(15, 2), RVMAT_NOTA02 NUMERIC(15, 2), RVMAT_NOTA03 NUMERIC(15, 2), RVMAT_NOTA04 NUMERIC(15, 2), RVMAT_NOTA05 NUMERIC(15, 2), RVMAT_NOTA06 NUMERIC(15, 2), RVMAT_NOTA07 NUMERIC(15, 2), RVMAT_NOTA08 NUMERIC(15, 2), RVMAT_NOTA09 NUMERIC(15, 2), RVMAT_NOTA10 NUMERIC(15, 2), RVMAT_NOTA01L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA02L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA03L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA04L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA05L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA06L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA07L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA08L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA09L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_NOTA10L VARCHAR(10) CHARACTER SET ISO8859_1, RVMAT_FALTA01 INTEGER, RVMAT_FALTA02 INTEGER, RVMAT_FALTA03 INTEGER, RVMAT_FALTA04 INTEGER, RVMAT_FALTA05 INTEGER, RVMAT_FALTA06 INTEGER, RVMAT_FALTA07 INTEGER, RVMAT_FALTA08 INTEGER, RVMAT_FALTA09 INTEGER, RVMAT_FALTA10 INTEGER, RVMAT_MEDIA01 NUMERIC(15, 2), RVMAT_MEDIA02 NUMERIC(15, 2), RVMAT_RESUL02 VARCHAR(2) CHARACTER SET ISO8859_1, RVMAT_STATUS VARCHAR(20) CHARACTER SET ISO8859_1, RVMAT_TOTAL INTEGER, RVMAT_CARGHOR INTEGER, RVMAT_FREQ NUMERIC(15, 2), RVDIS_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVDIS_CODI INTEGER, RVDIS_MESTRE INTEGER, RVPROF_NOME VARCHAR(50) CHARACTER SET ISO8859_1, RVDIS_ORDEM INTEGER)ASbeginfor select mat.alu_nome, mat.alu_nr, mat.alu_rm, cur.cur_nome,curter.ter_desc, Per.per_desc, Tur.tur_desc,Sal.Sal_Desc, mat.pes_Codi, Mat.mat_Codi,mat.mat_termo_atual, mat.cur_Codi, pes.alu_foto,MATTUR.tur_codifrom pessoas pesinner join matriculas maton( pes.esc_codi = mat.esc_codiand pes.sub_codi = mat.sub_codiand pes.pes_codi = mat.pes_codiand mat.mat_Status in ('MAT'))inner join matriculas_turmas matturon( mattur.esc_codi = mat.esc_codiand mattur.sub_codi = mat.sub_codiand mattur.pes_codi = mat.pes_codiand mattur.mat_codi = mat.mat_codiand mattur.cur_codi = mat.Cur_codiand mattur.cur_termo = mat.mat_termo_atualand mattur.per_codi = mat.per_codiand mattur.tur_codi = mat.tur_codiand mattur.mat_status in('MAT'))inner join cursos Curon( cur.esc_codi = mat.esc_codiand cur.sub_codi = mat.sub_codiand cur.cur_codi = mat.cur_codi)inner join cursos_termos CurTeron( CurTer.esc_codi = mattur.esc_codiand curTer.sub_codi = mattur.sub_codiand CurTer.cur_codi = MatTur.cur_codiand CurTer.cur_termo = matTur.cur_termo)inner join periodos peron( per.esc_Codi = mattur.esc_codiand per.sub_codi = mattur.sub_codiand per.per_codi = mattur.per_codi)inner join turmas turon( tur.esc_codi = mattur.esc_codiand tur.sub_codi = mattur.sub_codiand tur.tur_codi = mattur.tur_codi)inner join Salas Salon( sal.esc_codi = tur.esc_codiand sal.sub_codi = tur.sub_codiand sal.sal_codi = tur.sal_codi)where Mat.esc_codi = :EVESC_CODIand Mat.sub_codi = :EVSUB_CODIand mat.MAT_COdi = :EVMAT_CODIand mat.mat_Status in ('MAT')order by Mat.ALu_nomeinto :RVALU_NOME, :RVALU_NR, :RVALU_RM , :RVCUR_NOME,:RVTER_DESC, :RVPER_Desc, :RVTUR_DESC,:RVSAL_DESC, :RVPES_CODI, :RVMAT_CODI,:RVCUR_TERMO, :RVcur_Codi, :RVAlu_Foto,:RVTUR_CODI dobeginfor select distinct matDis.mat_nota01, matDis.mat_nota02,matDis.mat_nota03, matDis.mat_nota04,matDis.mat_nota05, matDis.mat_nota06,matDis.mat_nota07, matDis.mat_nota08,matDis.mat_nota09, matDis.mat_nota10,matDis.mat_nota01L,matDis.mat_nota02L,matDis.mat_nota03L,matDis.mat_nota04L,matDis.mat_nota05L,matDis.mat_nota06L,matDis.mat_nota07L,matDis.mat_nota08L,matDis.mat_nota09L,matDis.mat_nota10L,matDis.mat_falta01, matDis.mat_falta02,matDis.mat_falta03, matDis.mat_falta04,matDis.mat_falta05, matDis.mat_falta06,matDis.mat_falta07, matDis.mat_falta08,matDis.mat_falta09, matDis.mat_falta10,matDis.mat_media01, matDis.mat_media02,matDis.mat_resul02, matDis.mat_Total,matdis.mat_Status, Matdis.mat_carghor,MatDis.mat_freq, Dis.dis_nome, ProDis.Dis_COdi,CurDis.dis_mestre, CurDis.Cur_Ordem, curDIS.CUR_sIGLAfrom matricula_disciplinas matDisinner join disciplinas Dison( dis.dis_codi = matdis.dis_codiand dis.dis_tipo <> 'R')inner join professor_disciplina ProDison( ProDis.esc_codi = matdis.esc_codiand ProDis.sub_codi = matDis.sub_codiand ProDis.dis_codi = matDis.Dis_Codi)inner join curso_disciplinas CurDison( MatDis.esc_codi = CurDis.esc_codiand matDis.sub_codi = CurDis.sub_codiand matDis.cur_codi = CurDis.cur_codiand matdis.cur_termo = CurDis.cur_termoand matdis.dis_codi = curdis.dis_codi/* só as disciplinas mestres */and curdis.dis_mestre is null/*and ( Select Count(*) From curso_disciplinas CDWhere CD.esc_codi = CurDis.esc_codiand Cd.sub_codi = curdis.sub_codiand cd.cur_codi = Curdis.cur_codiand cd.cur_termo = Curdis.cur_termoand cd.dis_mestre = curdis.dis_codiand NOT(cd.dis_mestre is null) ) <= 0 */ )where matDis.esc_codi = :EVEsc_Codiand Matdis.sub_codi = :EVSub_Codiand matDis.pes_codi = :RVPES_CODIand matDis.MAT_codi = :EVMAT_COdiand matDis.cur_codi = :RVCur_Codiand MatDis.cur_termo = :RVCur_Termoand matDis.Mat_Status in ('CUR','DNC','DEC','APR')order by Cur_Codi, Cur_Ordem, Dis_Nomeinto :RVmat_nota01, :RVmat_nota02,:RVmat_nota03, :RVmat_nota04,:RVmat_nota05, :RVmat_nota06,:RVmat_nota07, :RVmat_nota08,:RVmat_nota09, :RVmat_nota10,:RVmat_nota01L,:RVmat_nota02L,:RVmat_nota03L,:RVmat_nota04L,:RVmat_nota05L,:RVmat_nota06L,:RVmat_nota07L,:RVmat_nota08L,:RVmat_nota09L,:RVmat_nota10L,:RVmat_falta01, :RVmat_falta02,:RVmat_falta03, :RVmat_falta04,:RVmat_falta05, :RVmat_falta06,:RVmat_falta07, :RVmat_falta08,:RVmat_falta09, :RVmat_falta10,:RVmat_media01, :RVmat_media02,:RVmat_resul02, :RVmat_Total,:RVmat_Status, :RVmat_carghor,:RVmat_freq, :RVdis_nome,:RVDis_COdi, :RVDis_Mestre, :RVDis_Ordem, :RVCUR_SIGLA dobeginselect Min(distinct(PEs.Pes_nome))from pessoas pesinner join professor_disciplina ProfDison( pes.esc_codi = ProfDis.esc_codiand pes.sub_codi = ProfDis.sub_codiand pes.pes_Codi = ProfDis.pes_codi)inner join turma_horarioaula thon( pes.esc_codi = th.esc_codiand pes.sub_codi = th.sub_codiand th.tur_codi = :RVTUR_CODI)where ProfDis.esc_codi = :EVESC_CODIand ProfDis.sub_codi = :EVSUB_CODIand ProfDis.dis_codi = :RVDIS_CODIand pes.pes_codi in (th.thor_domprof,th.thor_segprof,th.thor_terprof,th.thor_quaprof,th.thor_quiprof,th.thor_sexprof,th.thor_sabprof)into RVPROF_NOME;beginif (udf_Trim(RVPROF_NOME) = '') thenRVPROF_NOME = 'SEM PROFESSOR(A)';suspend;endendendend ^SET TERM ; ^COMMIT WORK;SET AUTODDL ON;

[mauriciocr 0]

AMIGO ,ao ver a SP , descobri<td align="center" bgcolor="<%=Cor%>"><%=RS("dis_nome")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA01")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA02")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA03")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA04")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_FALTA05")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_TOTAL")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("CUR_CARHOR")%></td><td align="center" bgcolor="<%=Cor%>"><%=RS("MAT_STATUS")%></td>O problema era nas RS , estva colocando errado o nome dos camposOBRIGADO PELA AJUDA .Muito agradecido