Usamos cookies para medir audiência e melhorar sua experiência. Você pode aceitar ou recusar a qualquer momento. Veja sobre o iMasters.
Possuo uma tabela TB_Departamentos (Departamento_ID) e TB_Unidades (unidade_ID - chave prim. e Departamento_ID chave estrang.).
Não consigo listar dentro de cada Tabela Departamento suas unidades conforme a primeira coluna, conforme exemplo abaixo...
MCR....................MCJ...................MCB...................MCS...................MCD...................MCI (departamentos)
Gostaria de um HELP dos senhores, abaixo segue código.... Abraço a todos...
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/cnx.asp" -->
<%
Dim RsDepto
Dim RsDepto_cmd
Dim RsDepto_numRows
Set RsDepto_cmd = Server.CreateObject ("ADODB.Command")
RsDepto_cmd.ActiveConnection = MM_cnx_STRING
RsDepto_cmd.CommandText = "SELECT * FROM TB_Departamentos"
RsDepto_cmd.Prepared = true
Set RsDepto = RsDepto_cmd.Execute
RsDepto_numRows = 0
%>
<%
Dim rsDivisao__MMColParam
rsDivisao__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then
rsDivisao__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rsDivisao
Dim rsDivisao_cmd
Dim rsDivisao_numRows
Set rsDivisao_cmd = Server.CreateObject ("ADODB.Command")
rsDivisao_cmd.ActiveConnection = MM_cnx_STRING
rsDivisao_cmd.CommandText = "SELECT * FROM TB_Unidades WHERE departamento_ID = ?"
rsDivisao_cmd.Prepared = true
rsDivisao_cmd.Parameters.Append rsDivisao_cmd.CreateParameter("param1", 5, 1, -1, rsDivisao__MMColParam) ' adDouble
Set rsDivisao = rsDivisao_cmd.Execute
rsDivisao_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rsDivisao_numRows = rsDivisao_numRows + Repeat1__numRows
%>
<%
Dim HLooper1__numRows
HLooper1__numRows = -8
Dim HLooper1__index
HLooper1__index = 0
RsDepto_numRows = RsDepto_numRows + HLooper1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Documento sem título</title>
<link href="sty.css" rel="stylesheet" type="text/css" />
<style type="text/css">margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
</style>
</head>
<body>
<p> </p>
<table width="310">while((numrows <> 0) AND (Not RsDepto.EOF))
startrw = endrw + 1
endrw = endrw + numberColumns
%>
<tr align="center" valign="top">
<% <td><table width="116%">
<tr>
<td bgcolor="#CCCCCC" class="Titulo_14_Azul"><%=(RsDepto.Fields.Item("departamento_Sigla").Value)%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"><% <div align="left"><span class="Label_14_Preto_SemSerifa">- <%=(rsDivisao.Fields.Item("unidade_sigla").Value)%></span><br />
</div>%></td>
</tr>
<tr>
<td bgcolor="#CCCCCC"> </td>
</tr>
</table></td>
<% </tr>
<%</table>
<p> </p>
</body>
</html>Carregando comentários...