Duda con columnas en DBF

[NeWsP]

Buenas noches.

Estoy haciendo una miniaplicacion que coge los datos de un archivo DBF ya creado,( archivo de facturaplus ) el archivo se puede abrir correctamente, montrar campos, hacer un query a segun que columnas, etc. ( es decir tengo acceso a el desde mi aplicacion ).

El problema es cuando hago un query a una columna en concreto, q si abro ese archivo con el excel me sale marcado con ####### y si hago un poco mas grande la columna se ven los datos correctos, la cosa esta en que si hago el query estando el ancho de columna con los ##### la aplicacion "peta" , pero si con el excel hago mas ancha esa columna, hasta q se vean los valores, y guardo la tabla asi, la aplicacion va perfecta.

Mi idea, seria copiar ese DBF ( para no fastidiar el de facturaplus, q en el trabajo me matan :P ) y si se pudiera cambiar de alguna forma en mi aplicacion el ancho de esa columna, no se me ocurre ninguna solucion mas.

Espero que se me haya entendido T_T , y a ver si alguien me puede echar una mano.

Muchas gracias por adelantado saludoss

[marcoszorrilla]

Si le das formato de "miles" a esa columna se acabará el problema "000". También puedes exportar tu mismo tu consulta a Excel y así no tienes que tocar los datos originales para nada, es más no debes.

Código Delphi [-]
Excell[fila,columna].Style.Comma;

Un Saludo.

[NeWsP]

Gracias por contestar roman.

el problema es que es un campo de fecha. entonces creo q eso de "miles" no se lo puedo poner, y lo de excel, lo comentaba porque es con lo unico que he podido abrir esa tabla para cambiarle el ancho.

Ej: donde tiene q poner 22/07/2006 pone ####### si hago mas grande la columna con el excel pone 22/07/2006.

Gracias otra vez

[marcoszorrilla]

Perdón entendí que el campo era numérico, por eso lo del formato.

Código Delphi [-]
Excell[fila,columna].NumberFormat = 'dd/mm/yy';

Un Saludo.

P.D.:Román está de vacaciones.

[NeWsP]

Empezado por marcoszorrilla

P.D.:Román está de vacaciones.

perdon perdon U_U gracias Marcos :P

un par de cositas

Empezado por marcoszorrilla

También puedes exportar tu mismo tu consulta a Excel y así no tienes que tocar los datos originales para nada, es más no debes.

Con esto q quieres decir que cree una archivo XLS que solo contenga los valores de mi consulta sql , sobre el DBF de facturaplus?

yo es que lo unico que he hecho con bases de datos han sido consultar, o modificaciones de datos sobre la tabla, pero nunca pasar el contenido de una consulta a xls , pero bueno, a ver si encuentro algo

ahora si , gracias Marcos y perdon por error U_U ( es que lei roman al ver el mensaje pero estaba como moderador, no como la persona q contesto al post U_U )


EDITADO 5Min despues de buscar algo de info...

Una cosita mas, el problema es que no puedo realizar la consulta U_U porque es cuando peta el programa, tengo q poder cambiar el ancho de columna antes de hacer la consulta, entonces , creo que eso de poder exportar mi consulta sql no seria posible, corrigeme si me equivoco por favor , gracias

[marcoszorrilla]

Pues si lo que quieres simplemente verlo en una rejilla, puedes poner el ancho a la rejilla en tiempo de diseño a la vez que ves los datos:

Pon una "Query" (consulta) en tu formulario), en la propiedad Strings le pones el código sql adecuado:

Código SQL [-]
Select campo1, xxx, campo2....
From La_Tabla_Que_Sea

Conecta un TdataSource a esa Consulta, conecta una rejilla a ese DataSource.

Activa la consulta en tiempo de diseño, Active = True, ahora estarás viendo los datos y podrás dar la dimensiones que desees a la rejilla.

Lo de exportar a Excel ese otra cosa y puede hacerse desde la rejilla una vez abierta, en el Foro encontrarás ejemplos y trucos al respecto.

Un Saludo.

[NeWsP]

Buenas tardes marcos, siento marearte tanto, pero creo q no me he expresado bien, te explico ( o lo intento )

- mi programita muestra en una grid el resultado de un query , al archivo con la condicion de q la columna fecha soy menor o igual al dia de hoy

- si hago dicha consulta con cualquier otra columna , por ejemplo fecha2 funciona correctamente.

- el problema esta en esa columna fecha en concreto , ( en el archivo de pedidos de facturaplus ) cuando hago el where a esa columna el programa "peta".

- si abro ese archivo enconreto con Excel , y hago esa columna mas ancha, guardo el archivo y realizo la consulta, esta funciona correctamente, asi que el error esta en el ancho de columna en el archivo dbf del facturaplus.

- creo q lo correcto seria copiar esta tabla DBF , a otra , e intentar cambiar el ancho de esa columna ( no se si se puede ) para una vez hexo esto realizar la consulta y que el programa no "pete"

- la cosa esta en que yo no puedo decirle al usuario, si quieres q esto fujncione, abre con el excel el archivo tal.bdf , haz mas grande esta columna, y guarda, entonces te funcionara bien mi programa.

espero haberme explicado mejor.

Un saludo y siento marearte tanto

[marcoszorrilla]

Pues algo raro contiene esa columna para que otra igual si funcione y ésta no.
si me envias la tabla(Con los índices pertinenetes y algún registro), en cuestión la echaré una ojeada a ver que es lo que pasa, me tiene intrigado.

Un Saludo.

[NeWsP]

Buenas
Lo raro es lo q te digo si se hace grande q quepan todos los datos es decir que en excel se vea el valor va bien, pero si es pequeña y se ve ### va mal U_U

he estado mirando como mandarte un mail con la tabla, pero no veo tu mail U_U
y si le doy a enviar mail no puedo enviar adjuntos, si quieres los subo a rapidshare o un sitio de estos, y te paso el enlace, muchas gracias por el interes

[NeWsP]

Adjunto el archivo porque ocupa muy poquito.Gracias
el problema es con la columna DFECENT si haces la consulta asi tal cual con el where a esa columna no me funciona, si la haces mas grande si.

Gracias, un saludo

[marcoszorrilla]

Pues lamento decirte que acabo de hacer una consulta contra ese campo y veo todos los registros sin ningún problema en la rejilla que he creado al efecto.

Código SQL [-]
procedure TForm1.Button1Click(Sender: TObject);
Var
Fecha:TDate;
begin
Fecha:=EnCodeDate(2004,03,07);
Query1.Close;
Query1.Sql.Clear;
Query1.Sql.Add('Select * from ''e:\pruebas\Pedclit.Dbf''');
Query1.Sql.Add('Where DfecPed >= '+QuotedStr(FormatDateTime('mm/dd/yyyy', Fecha)));
Query1.Open;
end;

Un Saludo.

[NeWsP]

Muchas gracias U_U pero sigo sin entenderlo, te puedo asegurar q si hace la columna mas ancha funcionaba, pero tambien te puedo decir q la comprobacion la hacia con un campo de str , eso de FormatDateTime , lo probe, pero no me funcionaba, y ahora he entendido el por que, era pq como valor le pasaba tambien una string y no un date.

Ahora ya funciona, muchas gracias, de verdad