Hola Amigos del foro, les pido de su valiosa ayuda para terminar de codificar un ciclo anidado
Tratare de ser lo más especifica posible para que me puedan ayudar porqyue no he logrado solucionar esto en ningun lado aunque todos dicen que es muy facil
Tengo el siguiente codigo en mi pagina
Código PHP:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/conn_PMR2009.asp" -->
<%
'El Recordset para la consulta padre
Dim rsPadre
Dim rsPadre_cmd
Dim rsPadre_numFilas
Set rsPadre_cmd = Server.CreateObject ("ADODB.Command")
rsPadre_cmd.ActiveConnection = MM_conn_PMR2009_STRING
rsPadre_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp in (0,1) AND dep_ID = 100"
rsPadre_cmd.Prepared = true
Set rsPadre = rsPadre_cmd.Execute
rsPadre_numFilas = 0
%>
<%
'El Recordset para la consulta hijo
Dim rshijos
Dim rshijos_cmd
Dim rshijos_numRows
Set rshijos_cmd = Server.CreateObject ("ADODB.Command")
rshijos_cmd.ActiveConnection = MM_conn_PMR2009_STRING
rshijos_cmd.CommandText = "SELECT Tra_ID, Tra_NoModalidad as cveSec, Tra_HomoclaveGeneral as clave, Tra_HomoclaveModalidad, Tra_Nombre, Tra_NombreModalidad FROM dbo.Tramite t WHERE t.Tra_NoModalidadTmp > 0 AND Dep_ID =100"
rshijos_cmd.Prepared = true
Set rshijos = rshijos_cmd.Execute
rshijos_numRows = 0
%>
<%
Dim Ciclo1_numFilas
Dim Ciclo1_indice
Ciclo1_numFilas = 10
Ciclo1_indice = 0
rsPadre_numFilas = rsPadre_numFilas + Ciclo1_numFilas
%>
<%
Dim Ciclo2_numFilas
Dim Ciclo2_indice
Ciclo2_numFilas = 10
Ciclo2_indice = 0
rshijos_numRows = rshijos_numRows + Ciclo2_numFilas
%>
<!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 sin título</title>
<link href="extras/Estilos.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!-- Muestro la tabla con los padre -->
<table width="296" border="1">
<tr>
<td width="134" class="LigasGral">M_Id</td>
<td width="146" class="LigasGral">Clave</td>
</tr>
<% While ((NOT rsPadre.EOF) AND(Ciclo1_numFilas <> 0)) %>
<tr>
<td class="LigasGral"><%=(rsPadre.Fields.Item("Tra_ID").Value)%></td>
<td class="LigasGral"><%=(rsPadre.Fields.Item("clave").Value)%></td>
</tr>
<%
Ciclo1_indice=Ciclo1_indice+1
Ciclo1_numFilas=Ciclo1_numFilas-1
rsPadre.MoveNext()
Wend
%>
</table>
<p> </p>
<p class="NivelPagina"> ************************************************************************************************</p>
<p> </p>
<!-- Muestro la tabla con los hijos -->
<table border="1">
<tr>
<td class="CeldaGridDet">M_ID</td>
<td class="CeldaGridDet">cveSec</td>
<td class="CeldaGridDet">Clave</td>
<td class="CeldaGridDet"> </td>
</tr>
<% While ((NOT rshijos.EOF) AND (Ciclo2_numFilas <> 0)) %>
<tr>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("Tra_ID").Value)%></td>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("cveSec").Value)%></td>
<td class="CeldaGridDet"><%=(rshijos.Fields.Item("clave").Value)%></td>
<td class="CeldaGridDet"> </td>
</tr>
<%
Ciclo2_indice=Ciclo2_indice+1
Ciclo2_numFilas=Ciclo2_numFilas-1
rshijos.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsPadre.Close()
Set rsPadre = Nothing
%>
<%
rshijos.Close()
Set rshijos = Nothing
%>
El resultado de este código es que me muestra por separado el contenido de 2 tablas
El padre así:
El hijo así:
Y lo que necesito es, que cuando se arrojen resultados de la consulta hijo, estos sean "embebidos" en la consulta padre y se muestren así:
El campo con el que se pueden unir es el m_ID (Tra_ID en la Base de datos), pero no tengo idea de como hacerlo, podrian ayudarme por favor ? mi experiencia con ASP es muy poquita
Muchisimas gracias de antemano