
09/07/2011, 03:06
|
 | | | Fecha de Ingreso: octubre-2009 Ubicación: Pachuca De Soto, Hidalgo, Mexico, Mexico
Mensajes: 122
Antigüedad: 15 años, 5 meses Puntos: 7 | |
Respuesta: Mostrar resultado en dos tablas mediante una sola tabla de access no seria mejor:
Código ASP:
Ver originalset conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("bd_consulta.mdb") & "" conn.CursorLocation = 3 cdatos=request.form("tabla_consul") set rs=createobject("ADODB.Recordset") sqltxt="select dato1,dato2,dato3,dato4,dato5,dato6,dato7,dato8,da to9,dato10,dato11,dato12 from tabla_consul where dato1 like '%"&cdatos&"%'" rs.ActiveConnection = conn rs.open sqltxt , conn , 3 'Imprimir las primeras columnas response.Write "<table>" response.Write "<tr>" For i = 0 To 5 response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(i).Name)) & "</th>" next response.Write "</tr>" do While not rs.EOF response.Write "<tr valign=""middle"">" For i = 0 To 5 valorTD = rs.Fields(i).Value response.write "<td>" &valorTD & "</td>" next response.Write "</tr>" rs.MoveNext response.Flush loop response.Write "</table><br>" rs.movefirst 'Imprimir las ultimas columnas response.Write "<table>" response.Write "<tr>" 'Imprimir la columna del ID o identificador que liga con la primera tabla response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(0).Name)) & "</th>" For i = 6 To rs.Fields.count-1 response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(i).Name)) & "</th>" next response.Write "</tr>" do While not rs.EOF response.Write "<tr valign=""middle"">" 'Imprimir el valor identificador que se liga response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(0).value)) & "</th>" For i = 6 To rs.Fields.count-1 valorTD = rs.Fields(i).Value response.write "<td>" &valorTD & "</td>" next response.Write "</tr>" rs.MoveNext response.Flush loop response.Write "</table><br>"
|