como despliegar texto completo de un RecordSet

hexiquiogv · #1 (**permalink**) 13/03/2007, 15:26

tengo un problema al tratar de desplegar el contenido de un recordset en una tabla,
despues de realizar la consulta, y desplegar el contenido de cada columna del recordset con un loop

response.write("<tr>")
for campo=0 to num_campos - 1
response.write("<td>" & objRS(campo).name & "</td>")
end if
response.write("<tr>")

el problema es con uno de los campos, aparece incompleto,
si los registros que voy a desplegar esa columna tiene cierto tamaño, ajusta los renglones siguientes segun la longitud del primer registro

Myakire · #2 (**permalink**) 13/03/2007, 15:58

Esto esta bien?

Cita:

for campo=0 to num_campos - 1
response.write("<td>" & objRS(campo).name & "</td>")
end if

hexiquiogv · #3 (**permalink**) 13/03/2007, 16:09

tienes razon, me equivoque al copiar el segmento del codigo, lo correcto es

response.write("<tr>")
for campo=0 to num_campos - 1
response.write("<td>" & objRS(campo) & "</td>")
end if
response.write("<tr>")

realice varias operaciones incluyendo la funcion trim(objRS(campo)), tambien definiendo el alto de las columnas de la tabla pero no obtuve ningun resultado

Myakire · #4 (**permalink**) 13/03/2007, 16:45

Cita:

tienes razon, me equivoque al copiar el segmento del codigo, lo correcto es

response.write("<tr>")
for campo=0 to num_campos - 1
response.write("<td>" & objRS(campo) & "</td>")
end if
response.write("<tr>")

hexiquiogv · #5 (**permalink**) 13/03/2007, 17:40

disculpas de nuevo
si en vez de end if
debi haber puesto next

si lo ejecuta bien pero como te digo solo despliega parte del contenido del campo
te agradeceria mucho cualquier sugerencia

Myakire · #6 (**permalink**) 15/03/2007, 08:45

El campo de que tipo es?

Estas seguro que se guardó todo? (quizá se truncó desde la grabación)

Si lo pones en un textarea, se ve completo?

osea, la cosa es de hacer pruebas, saludos

hexiquiogv · #7 (**permalink**) 15/03/2007, 16:36

el campo es de tipo memo
Si lo inserta bien en la tabla, tambien lo muestra si lo pongo en un textarea.
El problema ocurre cuando despliego el listado segun las instrucciones que mencionaba anteriormente, solo muestra una parte del texto

No se si sea algo de la configuracion de la tabla?

hexiquiogv · #8 (**permalink**) 15/03/2007, 19:43

[QUOTE=hexiquiogv;1931281]el campo es de tipo memo
Si lo inserta bien en la tabla, tambien lo muestra si lo pongo en un textarea.
El problema ocurre cuando despliego el listado segun las instrucciones que mencionaba anteriormente, solo muestra una parte del texto

No se si sea algo de la configuracion de la tabla?

Estuve haciendo pruebas y me di cuenta que en el primer renglon de la tabla la columna donde vacio el contenido del campo memo tiene una longitud, los renglones siguientes los trunca o ajusta a esa longitud, y si hago una consulta en el que solo aparezca un renglon ahi si me lo muestra el contenido completo

Shiryu_Libra · #9 (**permalink**) 15/03/2007, 20:09

te serviria esta funcion, para los saltos de linea?

<%
Function ArreglaSaltos(cadena)
cadena = Replace(cadena,vbCrLf,"<BR>")
ArreglaSaltos = cadena
End Function
%>

por que al parecer eso es el detalle de los text areas, no crees?
el codigo fue sustraido de la pagina de SoloASP, pero no esta en linea

Shiryu_Libra · #10 (**permalink**) 15/03/2007, 20:10

texto = ArreglaSaltos(texto)
esa es la forma de llamarlo, se me paso

hexiquiogv · #11 (**permalink**) 16/03/2007, 08:16

probe la funcion ArreglaSaltos pero sigo teniendo el problema, que otra cosa pudiera ser?

Myakire · #12 (**permalink**) 16/03/2007, 08:22

Puedes poner el código de la tabla y sus dos renglones?, quiero ver si tienes estilos.

tammander · #13 (**permalink**) 16/03/2007, 08:39

Eso que te ocurre suele pasar cuando hay dos vbCrLf (retornos de carro + Nueva Linea) seguidos en un campo memo de Access o bien se ha hecho un retorno de carro sin el Lf (cosas de Unix) Access lo toma con final de archivo y ahí se queda

Limpia el texto que haya en el campo memo de caracteres extraños (lo mejor es abrir el archivo mdf en el access y limpiarlos a mano). A partir de ese momento, codifica todo caracter ASCII que entre en el campo memo (me refiero a retrorno de carro, tabuladores, espacios en blanco de mas de un caracter, etc)

Access es asi

Un saludo

hexiquiogv · #14 (**permalink**) 16/03/2007, 18:21

esta es la tabla que despliego, esta dentro de un formulario

<FORM NAME=form1 method='POST' ACTION='procesa.ASP' target='_blank'>

<table width="100%" cellspacing="2" cellpadding="2" border="0">
<tr>
<td>
<div align="right">
 <input type="image" src="agregar.jpg" onclick=Procesa("1")>
 <input type="image" SRC="edicion.jpg" onclick=Procesa("2")>
 <input type="image" src="eliminar.jpg" onclick=Procesa("3")>
<input type='hidden' name='tipo' value='2'>
<input type="hidden" name="opcion" value="">
<input type="hidden" name="id" value="">
</td>
</tr>
</table>

<TABLE BORDER=1><TR><th>  </th><th>tipo</th><th>fecha</th><th>hora</th><th>nombre</th><th>estatus</th><th>asunto</th><td>  </td></tr><TR><td><INPUT TYPE='radio' name='llave' value='20/02/2007 18:57:16 '></td><TD> LLAMADA  </TD><TD> 20/02/2007 </TD><TD> 16:43  </TD><TD> C. RAFAEL MIRELES  </TD><TD> PENDIENTE  </TD><TD> GRUPO DE PROTECCIÓN CIUDADANA DE LA LAGUNA, DE PARTE DE ING. CARLOS DELGADO, SALOMÓN ISSA Y ROBERTO RODRÍGUEZ, COMENTARLE SOBRE LA ADQUISICIÓN DE EQUIPO ANTISECUESTROS NO HAN PODIDO LOCALIZAR AL CP. DESIDERIO </TD><td><a href='Ficha.asp?tipo=LLAMADA &estatus=PENDIENTE &evento=20/02/2007 18:57:16 ' target='_blank'><img src='view.gif' width='16' height='16' border='0'></a></td></tr><TR><td><INPUT TYPE='radio' name='llave' value='21/02/2007 11:54:20 '></td><TD> LLAMADA  </TD><TD> 21/02/2007 </TD><TD> 10:50  </TD><TD> SILVIA ORTIZ  </TD><TD> PENDIENTE  </TD><TD> DESEA COMENTARLE PLÁTICA QUE SOSTUVO CON LA FISCAL, CEL. ESPOSO 8713462439 Y SRA. SILVIA 8711688568  </TD><td><a href='Ficha.asp?tipo=LLAMADA &estatus=PENDIENTE &evento=21/02/2007 11:54:20 ' target='_blank'><img src='view.gif' width='16' height='16' border='0'></a></td></tr><TR><td><INPUT TYPE='radio' name='llave' value='21/02/2007 13:39:04 '></td><TD> LLAMADA  </TD><TD> 21/02/2007 </TD><TD> 13:30  </TD><TD> ING. ALBERTO VILLARREAL BERLANGA  </TD><TD> PENDIENTE  </TD><TD> SOLICITA AUDIENCIA ESPECÍFICAMENTE CON UD., ASUNTO: ROBO CAMIÓN, HAY 2 PERSONAS GRAVES POR ACCIDENTE, NO LE DEVUELVEN EL CAMIÓN Y EL PRESUNTO ESTÁ LIBRE SIN HABER PAGADO FIANZA, LA DENUNCIA LA PRESENTÓ EN ART </TD><td><a href='Ficha.asp?tipo=LLAMADA &estatus=PENDIENTE &evento=21/02/2007 13:39:04 ' target='_blank'><img src='view.gif' width='16' height='16' border='0'></a></td></tr>
</table>
</form>

Shiryu_Libra · #15 (**permalink**) 16/03/2007, 22:02

pues

lo que muestras es el resultado de la consulta, mas no el codigo de la consulta, puedes mostrar ese pedazo nada mas?

hexiquiogv · #16 (**permalink**) 20/03/2007, 18:03

esta es la sentencia de consulta

SELECT CVEEVENTO,EVENTO.NOMBRE AS TIPO,CTOD(FECHA1) AS FECHA,HORA1 AS HORA, ALLTRIM(IIF(NOT ISNULL(ALLTRIM(DIRECTORIO.NOMBRE)+' '+ALLTRIM(DIRECTORIO.PATERNO)+' '+ALLTRIM(DIRECTORIO.MATERNO)), ALLTRIM(DIRECTORIO.NOMBRE)+' '+ALLTRIM(DIRECTORIO.PATERNO)+' '+ALLTRIM(DIRECTORIO.MATERNO),' ')+ IIF(NOT ISNULL(ALLTRIM(PERSONA)),ALLTRIM(PERSONA),'')) AS NOMBRE,ESTATUS.NOMBRE AS ESTATUS,ALLTRIM(ASUNTO) AS ASUNTO FROM ACTIVIDAD LEFT JOIN DIRECTORIO ON ALLTRIM(ACTIVIDAD.CVEPERSONA)=ALLTRIM(DIRECTORIO.C VEPERSONA) LEFT JOIN EVENTO ON ACTIVIDAD.EVENTO=EVENTO.CLAVE LEFT JOIN ESTATUS ON ACTIVIDAD.ESTATUS=ESTATUS.CLAVE WHERE DAY(CTOD(FECHA1))=20 AND MONTH(CTOD(FECHA1))=3 AND YEAR(CTOD(FECHA1))=2007

y aqui es donde la ejecuto

strSQL = ucase(strSQL)
Set objRS = oConn.Execute(strSQL)