Seleccionar el mismo dato de diferentes tablas (2 tablas)

[Cameron_2006]

Buenas tardes, les presento mi problema a ver si hay alguien que pueda ayudarme con esto, lo cual agradezco de atemano.

quiero seleccionar todas las imagenes de un mismo proyecto, dichas imágenes entran por dos direcciones distintas:

caso 1) Al momento de crear el proyecto
caso 2) Cuando uno de los usuarios envia un mensaje desde la sala de visitas.

Para esto existen las siguientes tablas:

Para el caso 1:
----------------------------------------------

m_proyectos:
cod_proyecto
..
...
etc..

m_anexosproyecto
cod_foto
cod_proyecto
txt_filename (nombre del archivo jpg, gif, jpg)
txt_descripcion (descripción de la imagen)
nro_filsize (tamaño del archivo)

Para el caso 2:
----------------------------------------------------------
m_salas
cod_sala
cod_proyecto
....
....
etc...

T_salamensajes
cod_mensaje
cod_sala
....

m_anexosalas (cree esta tabla porque en las sala deben aparecer los anexos insertados en cada mensaje para determinado proyecto)

cod_anexosala
cod_mensaje
txt_filename (nombre del archivo jpg, gif, jpg)
txt_descripcion (descripción de la imagen)
nro_filsize (tamaño del archivo)

---------------------------------------------------------------------------------------

Lo que necesito es seleccionar todos los documentos que están en las tablas m_anexosproyecto y m_anexosalas , que pertenezcan al mismo proyecto.

Hice esto pero no resulta:
strSql ="Select * from m_anexosproyectos where cod_proyecto="&idp
union all
strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.txt_filename, " &_
"c.txt_descripcion, c.nro_filesize " &_
"from m_salas a, t_salasmensajes b, m_anexosalas c " &_
"where a.cod_sala = b.cod_sala " &_
"and b.cod_mensaje = c.cod_mensaje " &_
"and a.cod_proyecto = "&idp&";"
set mPdf=conexion.Execute(strSql)

<a href="http://www.dominio.es/documentos/proyectos/documentos/<%=mPdf( "txt_filename" )%>" target="_blank"><%=mPdf( "txt_descripcion" )%></a><br>Tama&ntilde;o del Archivo:&nbsp;<%=mPdf( "nro_filesize" )/1000%>&nbsp;kb

El error del log es el siguiente:
254|800a000d|No_coinciden_los_tipos:_'union'

Alguien sabe que debería utilizar para rescatar esos datos?

Gracias de antameno por la ayuda

[Cameron_2006]

Estos 2 query funcionan bien por separado, me dan los resultados esperado, ahora como hago para unirlos?

Extrae los documentos del proyecto "X" que fueron ingresados a través de las salas de visita:

strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.cod_anexosala, c.txt_filename, " &_
"c.txt_descripcion, c.nro_filesize " &_
"from m_salas a, t_salasmensajes b, m_anexosalas c " &_
"where a.cod_sala = b.cod_sala " &_
"and b.cod_mensaje = c.cod_mensaje " &_
"and a.cod_proyecto = "&idp&";"

Extrae los documentos del proyecto "X" que fueron ingresados en el momento de su creación:
strSql ="Select * from m_anexosproyectos where cod_proyecto="&idp

[Adler]

Hola

Podría ser algo como

Código asp:

strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.cod_anexosala, c.txt_filename, " &_
"c.txt_descripcion, c.nro_filesize " &_
"from m_salas a, t_salasmensajes b, m_anexosalas c " &_
"where a.cod_sala = b.cod_sala " &_
"and b.cod_mensaje = c.cod_mensaje " &_
"and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&");
 

De cualquier modo mira como hacer subconsultas

Suerte

[Cameron_2006]

Gracias Adler por tu constante ayuda, he colocado ese código de mil y una maneras y me sigue diciendo que:

87|800a0401|Se_esperaba_un_final_de_instrucción
la línea 87 es la que está en rojo, gracias nuevamente

Set mPdf=Server.CreateObject("ADODB.RecordSet")
strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.cod_anexosala, c.txt_filename, " &_
strSql = strSql = "c.txt_descripcion, c.nro_filesize " &_
strSql = strSql = "from m_salas a, t_salasmensajes b, m_anexosalas c " &_
strSql = strSql = "where a.cod_sala = b.cod_sala " &_
strSql = strSql = "and b.cod_mensaje = c.cod_mensaje " &_
strSql = strSql = "and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&")";
set mPdf = conexion.execute(strSql)

[Adler]

Hola

Prueba así

Código sql:

SET mPdf=Server.CreateObject("ADODB.RecordSet")
strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.cod_anexosala, c.txt_filename, "
strSql = strSql & "c.txt_descripcion, c.nro_filesize "
strSql = strSql & "from m_salas a, t_salasmensajes b, m_anexosalas c "
strSql = strSql & "where a.cod_sala = b.cod_sala "
strSql = strSql & "and b.cod_mensaje = c.cod_mensaje "
strSql = strSql & "and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&")"
 

Se trata de concatenación "&", si usas el operado "=" es para dar valor a una variable, session, ect..

Suerte

[Cameron_2006]

ok, gracias de nuevo, pero nada, sigue dando el mismo error:
|86|800a0401|Se_esperaba_un_final_de_instrucción

Lo coloqué de estas 2 formas:
strSql = strSql & "and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&")"

y así:
strSql = strSql & "and a.cod_proyecto = (Select * from m_anexosproyectos where cod_proyecto="&idp&");"

y nada

[Adler]

Hola

Vamos ha hacer un bug

Sistituye

set mPdf = conexion.execute(strSql)

por

Response.Write strSql

y muestra el resultado

Suerte

[Shiryu_Libra]

ando oxidado con esto de las sentencias...
pero el primer orror que veo es este

strSql ="Select * from m_anexosproyectos where cod_proyecto="&idp
union all
strSql ="Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.txt_filename, " &_
"c.txt_descripcion, c.nro_filesize " &_
"from m_salas a, t_salasmensajes b, m_anexosalas c " &_
"where a.cod_sala = b.cod_sala " &_
"and b.cod_mensaje = c.cod_mensaje " &_
"and a.cod_proyecto = "&idp&";"
set mPdf=conexion.Execute(strSql)

no se si lo notarian desde un principio

ahora, funcionara algo como esto????

Código ASP:

strquery = "select * from (" &_
            "Select * from m_anexosproyectos"&_
            " union "&_
            "Select a.cod_sala, a.cod_proyecto, b.cod_mensaje, c.txt_filename,"&_
            " c.txt_descripcion, c.nro_filesize from m_salas a, t_salasmensajes b, m_anexosalas c"&_
            ") where a.cod_sala = b.cod_sala and b.cod_mensaje = c.cod_mensaje "&_
            "and a.cod_proyecto = (cod_proyecto= " & idp & ");"
set mPdf=conexion.Execute(strSql)