Estimados necesito lo sgte porfavor, la consulta la necesito imprimir en una tabla (no tengo problema).
Tengo 2 tablas una llamada PC y otra llamada Teclado, los campos para ambas son n° de serie, Marca, Estado, Ubicacion. necesito realizar la consulta para ver la tabla computadores pero cuando los campos ubicacion de ambas tablas coincidan, es decir, si en la tabla computador el campo ubicacion es "laboratorio" y en la tabla teclados el campo ubicacion es el mismo que muestre los campos ° de serie, Marca, Estado, Ubicacion de la tabla Teclados.
---------------------------------------------------------------------------------------------------------
<%
set Conn1 = Server.CreateObject("ADODB.Connection")
Conn1.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("BODEGA INFORMATICA.mdb")
SQL="SELECT N_de_Serie, Lugares, Marca, Estado FROM TECLADOS where lugares = 'Bodega' union SELECT N_de_Serie, Lugares, Marca, Estado FROM COMPUTADORES WHERE Lugares ='bodega' "
set RS1 = Conn1.Execute(SQL)
if RS1.EOF then
Response.Write("NO SE ENCUENTRA REGISTRO")
else
'Llamo al procedimiento que pinta la tabla
PintarTabla
end if
'Cierro el Recordset
RS1.Close
'Destruyo el objeto'
set RS1 = nothing
'Cierro la conexión'
Conn1.Close
'Destruyo la conexión'
set Conn1 = nothing
'==========================================='
Sub PintarTabla ()
'Utiliza el objeto rs abierto para pintar la tabla
'La primera fila la escribo directamente, con los nombres de los campos
Response.Write( "<TABLE BORDER=""1"">" & vbCrlf)
Response.Write( "<TR>" & vbCrlf)
Response.Write( "<TD><B>N_de_serie</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Ubicacion</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Marca</B></TD>" & vbCrlf )
Response.Write( "<TD><B>Estado</B></TD>" & vbCrlf )
'Hasta que llegue al final del recordset...'
while not RS1.EOF
'Imprimo una fila de la tabla'
Response.Write( "<TR>" & vbCrlf )
Response.Write( "<TD>" & RS1.Fields("N_de_Serie") & "</TD>" )
Response.Write( "<TD>" & RS1.Fields("Lugares") & "</TD>" )
Response.Write( "<TD>" & RS1.Fields("Marca") & "</TD>" )
Response.Write( "<TD>" & RS1.Fields("Estado") & "</TD>" )
Response.Write( "</TR>" & vbCrlf )
'MUY IMPORTANTE!!!!! Pasamos al siguiente registro'
RS1.MoveNext
'Olvidarte esto significa que vas a imprimir siempre el mismo registro... Un bucle infinito!'
wend
'Cierro la tabla'
Response.Write("</TABLE>")
End Sub 'PintarTabla
'===========================================
%>
La tabla me muestra los resultados de ambas tablas pero yo necesito que me muestre solo los resultados de la tabla teclados.
La coneccion la realizo en access y programo con DreamViewer.
