mostrar registro tipo memo en interbase.

[lexus]

hola como van
estoy tratando de leer un campo tipo memo de interbase con asp
y me sale esto
?????????????????›???????????????????????????????? ????

y entro a la base de datos y hay un texto
[operador3-11/02/2008 07:04:03 a.m.]: APERTURA SIN NOVEDAD, SE...


los demas campos son normales y si me leen comun y corriente.
los estoy mostrando asi
<%=rs("NOTAS")%>


ke tiene de diferente un tipo memo en interbase o como debo mostrarlo?

[Shiryu_Libra]

Lexus, te sera de utilidad ESTE ENLACE ???

[lexus]

gracias por el link
la verdad no entendi la funcion me podrias explicar un poco?
la verdad nunca uso interabase siempre he usado mysql y asp y pues nunca habia tenido este tipo de problema con los campos memo.
esta funcion ke hace o como se usa?

gracias.

[lexus]

alguien sabe como mostrar un campo tipo memo de interbase con asp?

[lexus]

al;guien ke me ayude porfa que no entendi la respeusta de shiru no se como usar esa funcion.

[lexus]

yo la monte asi:

Function Obtenir_Memo(campo)
'No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
Dim vChunk
vChunk = campo.GetChunk(4000)
Obtenir_Memo = vChunk
Do Until IsNull(vChunk) = true
vChunk = campo.GetChunk(4000)
Obtenir_Memo = Obtenir_Memo & vChunk
Loop
END Function


y dentro del ciclo ke muestra cada campo memo la mando a lllamar asi
Obtenir_Memo rs("NOTAS")

y me sale un error



Error de Microsoft VBScript en tiempo de ejecuciónerror '800a000d'
No coinciden los tipos /sms/eventos.asp, line 12


donde la linea 12 es esta Obtenir_Memo = Obtenir_Memo & vChunk

[Shiryu_Libra]

lexus

Código PHP:

  Function Obtenir_Memo(ByRef RS, ByVal Camp)
    No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
    Dim vChunk
    
    vChunk = RS(Camp).GetChunk(4000)
      Obtenir_Memo = vChunk
      Do Until IsNull(vChunk) = true
        vChunk = RS(Camp).GetChunk(4000)
        Obtenir_Memo = Obtenir_Memo & vChunk
      Loop
END Function  
   

no resulta directamente la llamada de la funcion???
Obtenir_Memo(RS,notas)

??

[lexus]

no te entendi
y tampoco entiendo esta parte
Function Obtenir_Memo(ByRef RS, ByVal Camp)
esos dos parametros cuales son?

me das un ejemplo porfa de la llamada a la funcion?
gracias

[Shiryu_Libra]

Iniciado por Shiryu_Libra

lexus

Código PHP:

  Function Obtenir_Memo(ByRef RS, ByVal Camp)
    No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
    Dim vChunk
    
    vChunk = RS(Camp).GetChunk(4000)
      Obtenir_Memo = vChunk
      Do Until IsNull(vChunk) = true
        vChunk = RS(Camp).GetChunk(4000)
        Obtenir_Memo = Obtenir_Memo & vChunk
      Loop
END Function  
   

no resulta directamente la llamada de la funcion???
Obtenir_Memo(RS,notas)

??

byref RS<--- tu recordset
byval Camp <-- tu campo

Iniciado por lexus

no te entendi
y tampoco entiendo esta parte
Function Obtenir_Memo(ByRef RS, ByVal Camp)
esos dos parametros cuales son?

me das un ejemplo porfa de la llamada a la funcion?
gracias

Obtenir_Memo(RS, "notas")

mira que mando llamar la funcion, enviandole como parametros el recordset y el campo

[lexus]

hola, lo hago asi
response.write Obtenir_Memo (rs,"notas")
pero me saca este error
ke podra ser?


Error de Microsoft VBScript en tiempo de ejecuciónerror '800a000d'
No coinciden los tipos /sms/eventos.asp, line 13

donde la linea 13 es esta
Obtenir_Memo = Obtenir_Memo & vChunk

[Shiryu_Libra]

re- lexus

pego el pedazo de mensaje que traia ese codgio, segun esto dice que el nombre del campo debe ser el ultimo de los campos en la instruccion SELECT, al parecer se trunca, tambien he mirado otros post donde ocupan el mismo pedazo de codigo pero lo tienen en SUB en ves de FUNCTION

Mensaje

Hola otra vez, gracias parsons.Despues de buscar por internet, encontre (ahora no se donde) la solucion para leer los registros de la base de datos:
Un ejemplo sencillo de la funcion que lo hace:
SUB Obtenir_Memo(ByRef RS, ByVal Camp, ByRef Memo)
'No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
Dim vChunk

vChunk = RS(Camp).GetChunk(4000)
Memo = vChunk
Do Until IsNull(vChunk) = true
vChunk = RS(Camp).GetChunk(4000)
Memo = Memo & vChunk
Loop
END SUB
Esto me funciona bien, siempre y cuando el campo en cuestion se situe el ultimo en la instruccion SELECT, si no parece que se trunca el contenido n.p.i.
Para insertarlo en el campo no me encontre con ningun problema, siempre y cuando encerrase todo el texto entre comillas simples ('), comprobando antes que si en el texto ya existian esas comillas la tendria que doblar ('').
Aunque ahora que me fijo, en el INSERT tambien situo el campo Memo en ultimo lugar, sera casualidad?
...
Gracias otra vez, Para otro que tenga este problema, espero que esto le ayude.
Axl.

ahora con respecto al error, todo dice que es por incompatibilidad, solo que tengo duda si es el campo obtenir_Memo deba ser DIM DOUBLE o LONG para que pueda manipular la cantidad de informacion

cdbl(obtenir_memo) o clng(obtenir_memo)



Masters que opinan al respecto????

[lexus]

ahora si no entendi nada,
el campo en la base de datos es tipo MEMO pero a veces tiene informacion y a veces no. y el campo "notas" lo coloco de ultimo en el select.
siempre hay texto en ella pero me muestra puros signos de interrogacion cuando trato de mostrarla sn esa funcion.
me explicas un poco ahora porke tiene 3 paramostros y y como usaria la funcion?

gracias por la paciencia.

[Shiryu_Libra]

pero me referia dentro de la funcion no de la tabla

intentemos algo con la funcion

Function Obtenir_Memo(ByRef RS, ByVal Camp)
No olvidar situar en el select el campo Memo (ntext, image, text) el ultimo campo.
Dim vChunk

vChunk = RS(Camp).GetChunk(4000)
temp= vChunk
Do Until IsNull(vChunk) = true
vChunk = RS(Camp).GetChunk(4000)
temp= temp & vChunk
Loop
obtenir_memo = temp
END Function

si interpretacion de lo que hizo con el sub no esta mal, creo que lo que hizo con el SUB, fue utilizar una variable temporal

funcionara?

p.d. Guns and Roses - Patience

[lexus]

la probe como dices y me sale este error


Error de Microsoft VBScript en tiempo de ejecuciónerror '800a000d'
No coinciden los tipos /sms/eventos.asp, line 12
donde la linea 12 es temp= temp & vChunk

[lexus]

alguien ke me de una manito porfa.. gracias.

[Myakire]

A ver si no me sale cola por meterme a este post

No tengo Interbase para probar, pero por todo lo que Shiyriu menciona, supongo que el campo memo lo trata como un binario. Si es así, entonces pues si tiene sentido el error.

Supongo que lo que debes hacer para pasar ese binario a texto es algo como esto:

Código:

vChunk = RS(Camp).GetChunk(4000)
for i = 1 to LenB(vChunk)
	str = str & Chr(AscB(MidB(vChunk, i, 1)))
next

o algo similar

Igual me gustaría solo por curiosidad ver el resultado de un response.BinaryWrite RS(Camp)

Saludos

[lexus]

hola myakire, gracias por la respuesta.
pero la verdad este codigo no lo entiendo muy bien, podrias hacerme el favor de decirme como acomodar tu codigo en la funcion para usarlo?

gracias.

[Myakire]

Mira, si estas trabajando con binarios, hay funciones para manipular estos tipos de datos, el ASC, el LEN y el MID, trabajan con texto, bueno el ASCB, el LENB y el MIDB trabajan con binarios, yo lo que estoy haciendo es cambiar el binario que leíste por texto. Solo eso.

A mi me gustaría poder hacer algunas pruebas, por ejemplo esto:

Response.BinaryWrite RS(Camp).GetChunk(RS(Camp).ActualSize)

Sobre tu duda, en lugar de la concatenación, yo puse ese FOR, prueba y me dices que sale

[lexus]

ok pues mira ke cuando miro la base de datos desde un manejador ke tengo me sale la informacion correcta es un campo tipo memo
pero cuando le doy response.write rs("notas") me salen puros signos de interrogacion

ahora si coloco lo ke tu dices
Response.BinaryWrite RS("notas").GetChunk(RS("notas").ActualSize)

me sale este error
Argumentos incorrectos, fuera del intervalo permitido o en conflicto con otros.
/sms/eventos.asp, línea 107

[lexus]

otra cosa
la funcion la tengo asi

Function Obtenir_Memo(ByRef RS, ByVal Camp)
Dim vChunk, i, str
vChunk = RS(Camp).GetChunk(4000)
for i = 1 to LenB(vChunk)
str = str & Chr(AscB(MidB(vChunk, i, 1)))
next
obtenir_memo = str
END Function

y cuando la ejecuto asi
response.write Obtenir_Memo (rs,"notas")

me sale este error

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A005E)
Uso no válido de Null
/sms/eventos.asp, línea 31

donde la linea 31 es esta:
for i = 1 to LenB(vChunk)

[Myakire]

Eso entonces es por que no tienes binarios en ese campo

Tienes otro lenguaje instalado con el cual hacer pruebas?, delphi, .NET o vb?

[lexus]

pues siempre trabajo con asp..
pero tambien tengo instalado .net
aunke con .net no sabria como conectar la base de datos .

[Shiryu_Libra]

Conexion base de datos ASP.NET

[lexus]

no el problema de pasar todo a .net es ke me toca cambiar mil cosas no solo la conexion.
ademas ke no domino el lenguaje, entonecs prefiero seguir con el asp.
sabes ke pueda ser lo ke me pase? es comun ke no pueda mostrar un simple campo tipo memo con asp? en mysql nunca tube ningun problema con este tipo de campo en asp.

[Myakire]

Solo ocupamos conectarnos a la BD desde el asistente de conexiones de .NET y abrir esa tabla, desde ahí mismo podrás hacer un select a la misma y te lo mostrará en un grid; no es para que te cambies de lenguaje si no quieres, eso te lo sugerí solo para checar si en ese campo hay binarios o hay un simple texto en una codificación que seguro no es UTF-8

[lexus]

mmm gracias,
la verdad es ke de .net no tengo idea alguna asi ke no sabria ni siquiera por donde comenzar jeje.
con asp no se podra mostrar de alguna forma?

[Myakire]

Pues por ASP no hay mucho, quizá solo el Response.CharSet = "utf-8" y la directiva CodePage, yo más bien creo que el asunto es el proveedor que usaste para conectarte.

¿Qué proveedor usaste para conectarte a Interbase?
¿Qué versión de Interbase usas?

[Shiryu_Libra]

tema demasiado extraño

Cadenas de conexion interbase

[lexus]

estoy usando esta conexion

Dim con, con2
set con = Server.CreateObject("ADODB.Connection")
con.Open "DRIVER={XTG Systems InterBase6 ODBC driver};" & _
"DB=localhost:D:\intranets\sms\prueba.GDB;" & _
"Uid=SYSDBA;" & _
"Pwd=masterkey"
set con2 = Server.CreateObject("ADODB.Connection")

[lexus]

que mas podria hacer para solucionar este problema que tengo?