Tema: Mostrar resultado en dos tablas mediante una sola tabla de access
Ver Mensaje Individual
  #5 (permalink)  
Antiguo 09/07/2011, 03:06
Avatar de Joch_pa
Joch_pa
 
Fecha de Ingreso: octubre-2009
Ubicación: Pachuca De Soto, Hidalgo, Mexico, Mexico
Mensajes: 122
Antigüedad: 16 años
Puntos: 7
Respuesta: Mostrar resultado en dos tablas mediante una sola tabla de access
no seria mejor:

Código ASP: 
Ver original
  1. set conn=Server.CreateObject("ADODB.Connection")
  2. conn.Provider="Microsoft.Jet.OLEDB.4.0"
  3. conn.Open "provider=microsoft.jet.oledb.4.0;data source=" & server.MapPath("bd_consulta.mdb") & ""
  4. conn.CursorLocation = 3
  5.  
  6. cdatos=request.form("tabla_consul")
  7. set rs=createobject("ADODB.Recordset")
  8. sqltxt="select dato1,dato2,dato3,dato4,dato5,dato6,dato7,dato8,da to9,dato10,dato11,dato12 from tabla_consul where dato1 like '%"&cdatos&"%'"
  9. rs.ActiveConnection = conn
  10. rs.open sqltxt , conn , 3
  11.  
  12. 'Imprimir las primeras columnas
  13.     response.Write "<table>"
  14.     response.Write "<tr>"
  15.     For i = 0 To 5
  16.         response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(i).Name)) & "</th>"
  17.     next        
  18.     response.Write "</tr>"
  19.     do While not rs.EOF
  20.         response.Write "<tr valign=""middle"">"
  21.         For i = 0 To 5
  22.             valorTD =  rs.Fields(i).Value
  23.             response.write "<td>" &valorTD & "</td>"
  24.         next
  25.         response.Write "</tr>"
  26.         rs.MoveNext 
  27.         response.Flush
  28.     loop
  29.     response.Write "</table><br>"
  30.     rs.movefirst
  31. 'Imprimir las ultimas columnas
  32.     response.Write "<table>"
  33.     response.Write "<tr>"
  34.     'Imprimir la columna del ID o identificador que liga con la primera tabla
  35.         response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(0).Name)) & "</th>"
  36.  
  37.     For i = 6 To rs.Fields.count-1
  38.         response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(i).Name)) & "</th>"
  39.     next        
  40.     response.Write "</tr>"
  41.     do While not rs.EOF
  42.         response.Write "<tr valign=""middle"">"
  43.         'Imprimir el valor identificador que se liga
  44.             response.Write "<th>" & server.HTMLEncode(ucase(rs.Fields(0).value)) & "</th>"
  45.         For i = 6 To rs.Fields.count-1
  46.             valorTD =  rs.Fields(i).Value
  47.             response.write "<td>" &valorTD & "</td>"
  48.         next
  49.         response.Write "</tr>"
  50.         rs.MoveNext 
  51.         response.Flush
  52.     loop
  53.     response.Write "</table><br>"