- Tengo dos tablas relacionadas entre si con varios campos en cada una, me gustaría mostrar los registros de la primera tabla en campos de texto vinculados un select principal (será el id de la tabla1).
- Al mismo tiempo me gustaría mostrar también en el mismo formulario campos de texto con los registros de la tabla2 vinculados al select de la primera, no se si me explico.
El caso es que me surgen dos problemas con lo que tengo hecho:
- El primero... no queda fijado el select al seleccionarlo, siempre vuelve al primer registro de la tabla aunque la información del resto de campos de la tabla1 si cambia.
- El segundo... al intentar leer los registros de la segunda tabla me da un error (Data type mismatch in criteria expression.)Este es el código que tengo (el campo común en ambas tablas es IdSalidas):
Código:
Muchas gracias de ante mano, espero que puedan ayudarme...<form name=formulario>
<p align="left"><strong>Nº Salida:</strong>
<select name=IdSalidas class="fc_main" onChange="location.href('vis_listas.asp?IdSalidas=' + formulario.IdSalidas.options[formulario.IdSalidas.selectedIndex].value)">
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING
SQL_insc="select * from salidas order by IdSalidas asc"
set RS_insc=createobject("ADODB.Recordset")
RS_insc.open SQL_insc,conn
do while not RS_insc.eof
IdSalidas = RS_insc("IdSalidas")
p = request.querystring("IdSalidas")
if p <> "" then
if p = IdSalidas then
response.write "<option value="&IdSalidas&"selected>"&IdSalidas&"</option>"
elseif p <> IdSalidas then
response.write "<option value="&IdSalidas&">"&IdSalidas&"</option>"
end if
else
response.write "<option value="&IdSalidas&">"&IdSalidas&"</option>"
end if
RS_insc.movenext
loop
RS_insc.close
%>
</select>
<%
if request.querystring("IdSalidas") <> "" then %>
<%
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open = MM_cnx_salidas_STRING
SQL_dat="select * from salidas where IdSalidas="&request.querystring("IdSalidas")&" order by Fecha asc"
set RS_dat=createobject("ADODB.Recordset")
RS_dat.open SQL_dat,conn
do while not RS_dat.eof
IdSalidas = request.querystring("IdSalidas")
Fecha = RS_dat("Fecha")
Hora = RS_dat("Hora")
Destino = RS_dat("Destino")
Barco = RS_dat("Barco")
Incidencias = RS_dat("Incidencias")
%>
Fecha:
<input type="text" class="fc_main" value="<%=Fecha%>" size="15" readonly="true">
Hora:
<input type="text" class="fc_main" value="<%=Hora%>" size="9" readonly="true">
Lugar:
<input type="text" class="fc_main" value="<%=Destino%>" size="25" readonly="true">
Barco:
<input type="text" class="fc_main" value="<%=Barco%>" size="17" readonly="true"><br><br>
<strong>Incidencias:</strong>
<input type="text" class="fc_main" value="<%=Incidencias%>" size="35" readonly="true">
</p>
<strong>Buceadores:</strong><br>
<%
SQL_buzos="select * from buzos_incl where IdSalidas="&request.querystring("IdSalidas")&" order by Socio asc"
set RS_buzos=createobject("ADODB.Recordset")
RS_buzos.open SQL_buzos,conn
do while not RS_buzos.eof
IdSalidas = request.querystring("IdSalidas")
Socio = RS_buzos("Socio")
Nombre = RS_buzos("Nombre")
DNI = RS_buzos("DNI")
TIT = RS_buzos("TIT")
%>
<input type="text" class="fc_main" value="<%=Socio%>" size="8" readonly="true">
<input type="text" class="fc_main" value="<%=Nombre%>" size="50" readonly="true">
<input type="text" class="fc_main" value="<%=DNI%>" size="10" readonly="true">
<input type="text" class="fc_main" value="<%=TIT%>" size="20" readonly="true">
<%
RS_dat.movenext
loop
RS_buzos.movenext
loop
RS_dat.close
RS_buzos.close
%>
<% end if %>
</form>
SaLu2
Re: Consulta de dos tablas por registros (select depen) 
Re: Consulta de dos tablas por registros (select depen) 
, es lo mismo que reiterar pero sin re 
:
Este tema le ha gustado a 1 personas