mostrar registro tipo memo en interbase.

[Myakire]

Lo siento de verdad, pero yo para ser de más ayuda, necesito poder probar. Creo en el cd de delphi viene una versión de Interbase. Veré si puedo reproducir el fallo.

[lexus]

ok te lo agradezco, la verdad no pense ke se me fuera acomplicar esto por un simple campo. ojala encuentres algo que me pueda servir, gracias por la colaboracion.

[lexus]

alguein ke le haya pasado algo similar?

[lexus]

alguien ke me pueda colaborar?

[lexus]

alguien que me ayude porfavor este tema me tiene loco ya

[Constantine]

Que tal Lexus, yo trabajo con Interbase y ASP, en este caso estas trabajando con un campo que contiene datos Binarios es por eso que te ha marcado esos errores.

tu codigo debe quedar asi:

<%mis_notas = rs("notas")%>

en tu variable mis_notas traes los datos Binarios del campo de tu BD Interbase, ahora debes de usar el metodo BynaryWrite del Objeto REsponse para mostrar esos datos Binarios

<% Response.BinaryWrite(mis_notas)%>

con eso debe imprimir en tu pagina todo el texto que en realidad tiene tu campo BLOB.

Si tienes algun problema me avisas. . .

[lexus]

hola muchas gracias por la respuesta..
me salio este error

Tipo de error:
objeto Response, ASP 0106 (0x80020005)
Se encontró un tipo de datos sin especificar.
/sms/eventos.asp, línea 107

donde la linea 107 es esta

<%
mis_notas = rs("notas")
Response.BinaryWrite(mis_notas)

%>


que puede ser?
/sms/eventos.asp, línea 107

[lexus]

hola muchas gracias

le hice un pequeno cambio asi

mis_notas = rs("notas")
if isnull(mis_notas) then
else
Response.BinaryWrite(mis_notas)
end if

y ya me funciono.. mil gracias por tu ayuda..


otra preguntica ya que sabes como manejar asp e interbase.. perdon por abusar...

tengo un campo fecha, tipo datetime y tengo un formulario en mi asp con dia, mes y ano para seleccionar la fecha..
quiero por sql que me muestre solo la fecha seleccionada pero no logro conseguirlo.

esta es mi consulta actual sin lo de la fecha.
set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where CODCLIENTE = " & codcliente & " Order by FECHA DESC")

[JuanRAPerez]

seria bueno que lo posteen en las faq dado que es algo que mas de alguno utilizara en algun momento....

les parece?

suerte

[Myakire]

Iniciado por 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

ya ves lexus, no hubieran pasado tantos días si hubieras probado cuando te dije

En fin, lo bueno es que ya se nos quitó la duda del por que no selía

[Constantine]

Que bueno que te sirvio, olvide aclarar que ese metodo no puede recibir valores nulos pero que bueno que lo deduciste rapido.

Respecto a las fechas, el motor de Interbase utiliza las fechas en este formato "mm/dd/aaaa" entonces acomodas tu fecha de la sig. manera:
<%
Hoy = Now()
Fecha = Month(Hoy) & "/" & Day(Hoy) & "/" & Year(Hoy)
%>

y en tu SQL pones por ejem:
<%
sSQL = "SELECT * FROM Nombre_de_tu_tabla WHERE Tu_Campo_Fecha='" & Fecha & "'"
%>

Observa como al formar el SQL puse la variable Fecha entre comillas simples (' ') como si estuvieras pasando una cadena de texto normal(porque no se distingue muy bien), osea debe quedar Tu_Campo_Fecha='05/14/2008' suponiendo que fuera la fecha de hoy, no se si me explico.
Tambien puedes utilizar los operadores <, >, <=, >= para pedir rangos de fechas, el motor de Firebird hace el trabajo.
Los campos con los que vas a utilizar tu SQL pueden ser DateTime o Date, con los dos tipos funciona el ejemplo anterior.

Lo que dicen de agregar esto a las FAQ si solo diganme como porque soy nuevo en el Foro.

Una pregunta Lexus, me podrias decir como te conectas a la BD de Firebird? por ODBC ? que version de Firebird usas ?

Estamos en contacto . . .

[Shiryu_Libra]

Iniciado por Myakire

ya ves lexus, no hubieran pasado tantos días si hubieras probado cuando te dije

En fin, lo bueno es que ya se nos quitó la duda del por que no selía

necesitaba la luz de otra estrella , lo bueno que ya quedo

[JuanRAPerez]

lo que necesitaba era no desesperarse y leer completo los post
jejejejeje

[lexus]

Hola
Shiryu_Libra si lo habia probado como me habias dicho tu, pero no sabia lo de los valores nulos asi ke me salia error, menos mal ya esa parte quedo solucionada. porque no me dejaba avanzar. de todos modos muchisimas gracias por la colaboracion a todos.

en cuanto a la conexion que uso es la siguente


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

[lexus]

HOLA,
la busqueda por fecha si tengo problemas todavia

set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where CODCLIENTE = " & codcliente & " AND FECHA= '"&fecha&"' Order by FECHA DESC")


he intentado de dos formas
que la fecha quede asi 1/3/2008 o asi 01/03/2008 y de ninguna forma me muestra ningun dato.. que mas podra ser

Dim dia, mes, ano, fecha
dia = request.querystring("dia")
mes = request.querystring("mes")
ano = request.querystring("ano")
if dia = "" or isnull(dia) then
dia = day(now)
end if
if mes = "" or isnull(mes) then
mes = month(now)
end if
if ano = "" or isnull(ano) then
ano = year(now)
end if
fecha = FormatoNum(mes,2) &"/" &FormatoNum(dia,2)&"/"&ano

[Constantine]

Pues ya vi tu codigo y creo que esta bien, se me hace raro que tno te funcione, pero puede haber tres razones por las que no estas obteniendo esa respuesta:

1. Lo que pienso que es mas normal es que no tienes registros en tu BD de las fechas que estas pidiendo.

2. Que tiene la funcion FormatNum( ), seguro que esta agregando los parametros correctos ? aunque no es necesaria si lo haces para completar 0´s porque yo tengo codigo funcionando a como te puse en el ejemplo anterior y funciona perfectamente.

3. Si estas declarando la variable fecha antes de ejecutar el SQL vdd? para que cuando lo metas(la Fecha) al SQL ya traiga los valores.

Recomendacion: Asegurate de crear un registro en tu BD manualmente el cual contenga la fecha de hoy, y ejecuta tu SQL con el codigo fijo para que busque registros con la fehca de Hoy, esto para asegurarnos que si esta funcionando tu SQL y que el problema solo estaria en la generacion de la fecha que pasas al SQL
Haz la prueba y me dices

[lexus]

Hola, te respondo a las 3 preguntas.
1) las fechas que estoy buscando si estan en la base de datos.
2) la funcion formatnum si esta correcta ya la he usado antes y si me completa los 0 e hice la prueba con esa funcion y sin esa funcion y con ninguna me encontro datos.
3) si estoy declarando la fecha antes del sql incluso la imprimo antes y despues para ver si esta correcta y si esta bien pero no arroja resultados.

hice lo que dices de crear un registro el dia actual y nada.
te pego una parte de mi codigo para que mires que peude estar mal
gracias



Dim dia, mes, ano, fecha
Dim rs, mis_notas

dia = request.querystring("dia")
mes = request.querystring("mes")
ano = request.querystring("ano")
if dia = "" or isnull(dia) then
dia = day(now)
end if
if mes = "" or isnull(mes) then
mes = month(now)
end if
if ano = "" or isnull(ano) then
ano = year(now)
end if

fecha = mes&"/"&dia&"/"& ano



set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where CODCLIENTE = " & codcliente & " AND FECHA= '"&fecha&"' Order by FECHA DESC")


mi pregunta es la siguiente..
si el campo es datetime
y tiene la fecha 03/05/2008 12:00:00
y le estoy pasando solo fecha sin hora si me la busca?

yo siempre he trabajado con mysql y no me pone problema para nada osea si me funciona sin importa la hora. pero aqui no encuentra nada.

[Constantine]

Si, si funciona con campos DateTime, te digo que yo asi los utilizo y sin ningun problema, lo que sugiero es que metas una fecha fija escrita manualmete en tu SQL para asegurarse de que esta funcionando bien, otra cosa, en tu SQL estas metiendo en el WHERE un codcliente, estas seguro de que si traes un valor en esa variable ? o que si es un codigo valido de cliente, mira quita esa variable (codcliente) de tu SQL y prueba metiendo una fecha escrita desde el codigo, esto para que compruebes que si funcionan las busquedas por fecha con Interbase...

[lexus]

hola en la base de datos tengo este registro.

11/02/2008 7:27:07

y hago la consulta asi.


set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where FECHA= '11/02/2008 7:27:07' Order by FECHA DESC")


asi


set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where FECHA= '11/02/2008' Order by FECHA DESC")


y asi


set rs = con.Execute("select ZONA, FECHA, DESCRIPCION, CODCLIENTE, NOTAS from EVENTOBCK Where FECHA= '02/11/2008' Order by FECHA DESC")


y de ninguna forma me encuentra los datos.

[Constantine]

Hijole Lexus veo tu codigo y esta bien, vaya con eso ya te debio haber arrojado respuestas de Datos, yo tengo dos aplicaciones en ASP que usan mis clientes donde hacen muchas busquedas por fechas o rangos de fechas y todas funcionan bien y los campos son DateTime se me ocurren estas posibles causas:

1. Estas seguro que estas apuntando a la BD correcta ? asegurate de que el Path de BD que tienes en tu aplicacion ASP sea exactamente el mismo que el de la BD que estas viendo con tu modelador, digo ya me ha pasado que estoy esperando respuestas y no sale nada porque mi BD es otra y no contiene los registros que veo en el modelador.

2. Que version de Interbase usas ? yo uso Firebird 1.0 y 2.1 y en las 2 funcionan bien, lo veo dificil pero podria ser el caso que tu version no soporte ese tipo de busquedas.

3. Que modelador estas usando para ver los datos de la BD ? yo uso el DBuilder y en este prog los campos de fecha y hora se llaman TimeStamp porque no me deja especificar campos Date o Time, todos son TimeStamp, si tu modelador si te deja intenta convertirlo en Date(pero no creo que sea eso porque en una de las consultas que acabas de hacer utilizaste la fecha y hora completa y nada)

checa esos puntos y me dices.
Y no te desesperes que vamos a encontrar la solucion y para entonces nos podremos reir del problema

[lexus]

hola gracias por las respuestas.
te cuento....
la bd si es correcta porque la consulta cuando no le coloco el where con fecha si me arroja todos los datos que necesito solo deja de mostrarlos cuando le agrego el criterio de fecha.

la version que uso de firebird es 2.0 y m efunciona perfecto a excepcion de cuando le meto eso de las fechas..
el visor de la base de datos que uso es xBaseView solo es para ver la estructura y los datos pero no la puedo modificar porque esa base de datos es de otra aplicacion asi que no me permiten hacerle ningun cambio solo consultarla.


gracias por la paciencia..
aqui te coloco un pantallazo de lo que me muestra el visor que uso de la base de datos.

www.oktopuscali.com/pantallazo.jpg




el driver que uso y el string de conexion es el siguiente

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

[Constantine]

Oye Lexus te pido una disculpa porque estoy en un error, no me habia dado cuenta pero en mi BD en todos los campos que filtro por fecha todos son de tipo TimeStamp, pero entre manualmente a la BD a checar esos campos y o sorpresa, ninguno tiene horas, todos tienen solo fecha entonces por eso me funciona sin problemas, hice la prueba de agregarle hr a un campo y el campo si lo acepta, pero a la hr de hacer la busqueda con mi aplicacion ASP ya no me trae ese registro, entonces conclusion: si tiene hora el campo no te lo va a traer, yo me confie porque esa BD se alimenta desde un sistema hecho en Delphi y habia visto que la mayoria de los campos los grababa junto con fechas, pero en los que yo consulto no tienen hr por eso no habia tenido problemas y los resultados eran buenos.

Pero a lo que vamos tengo 2 posibles soluciones para ti y ahora si definitivas:

1. Quitarles las fechas a tus registros (solo si no las usas) aunque no me parece muy practico.

2. Incluye la hr en tus SQL por ejem:

<%
sSQL = "SELECT * FROM Tu_Tabla WHERE Campo_Fecha >= '" & Var_Fecha & " 00:00:00' AND Campo_Fecha <= '" & Var_Fecha & " 23:59:59'"
%>
Osea metes un rango de fechas que va a ser el mismo dia, pero abarca todas las hrs del dia entonces seguro te funcionara, de hecho ya lo probe con uno de mis proyectos y si jalo, asi que ya no hay pretextos de que no te funcione, de todos modos seguimos en contacto, me avisas como te fue . . .

[lexus]

hola,
bueno no aplique la de quitarle las horas ya que la aplicacion original necesita las horas para su funcionamiento.

use la segunda opcion que me diste de agregarle las horas a la consulta a modo de rango
y me funciono perfecto.. muchisimas gracias por tu ayuda..
me has salvado de algo que me tenia parado por varios dias.

gracias por todo a ti y a los demas que aportaron soluciones.

[Constantine]

Ok. de nada, que bueno que te sirvio.

[lexus]

se deberian publicar esas dos cosas en las FAQs depronto alguien mas lo necesita y no lo ha encontrado.

como mostrar campos tipo memo en interbase con asp.
y como hacer consultas con fechas en interbase.

me ha sido de gran utilidad tu ayuda depronto a alguien mas le sirve..
gracias.