Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Archivos _XXXX.DBF generados por consulta sql (https://www.clubdelphi.com/foros/showthread.php?t=59754)

klionsis 08-09-2008 01:07:42

Archivos _XXXX.DBF generados por consulta sql
 
Hola gente, tengo un problema con una consulta sql que he realizado. El problema es que cuando ejecuto la misma en el directorio donde se encuentra alojada la aplicacion se generan unos archivos con extencion .DBF que los mismos se van acumulando a medida que realizo la consulta mencionada. Los archivos que se generan tienen esta forma:

Código Delphi [-]
_QSQL000.DBF
_QSQL165.DBF

y la consulta que estoy realizando es la siguiente:

Código Delphi [-]
Select 
          a.CPROD as Codigo, 
          a."DESC" as Descripcion, 
          a.PREV as Precio, 
          (:pDescuento * a.PREV)/100 as Descuento, 
          a.PREV - ((:pDescuento * a.PREV)/100) as Total,
          a.ULT_ACTUA as Actualizacion, 
          a.Linea
from 
          Tabla1.dbf as a 
          inner join Tabla2 l on l.Linea=a.Linea
where 
          l.pasa = 'S'
          and ((upper (a.CPROD) like upper(:pCodigo) ) or (a.CPROD = ''))
          and ((upper (a."DESC") like upper(:pDescripcion) ) or (a."DESC" = ''))
          and ((upper (a.Linea) like upper(:pLinea)) or (a.Linea = ''))
          and ((upper (a."DESC") like upper(:pParte) ) or (a."DESC" = ''))  
order by
a.CPROD

donde a los parametros se los paso desde el codigo en delphi al igual que la ejecucion de la consulta, todo esto de la siguiente manera:

Código Delphi [-]
try
    ModuloDatos.QryProductos.Close;
    ModuloDatos.QryProductos.ParamByName('pDescuento').AsFloat := mDescuento;
    ModuloDatos.QryProductos.ParamByName('pCodigo').AsString := txtCodigo.Text+'%';
    ModuloDatos.QryProductos.ParamByName('pDescripcion').AsString := txtDescripcion.Text+'%';
    ModuloDatos.QryProductos.ParamByName('pLinea').AsString := txtLinea.Text+'%';
    ModuloDatos.QryProductos.ParamByName('pParte').AsString := '%'+txtPalabras.Text+'%';
    ModuloDatos.QryProductos.Open;
  except
    on E: Exception do

        Application.MessageBox( PChar( E.Message ), 'Error de SQL',
        MB_ICONSTOP );
    end;

Espero me puedan ayudar con este problema ya que al acumularse una cantidad determinada de estos archivos la aplicacion produce problemas.

Muchas gracias.

Saludos.



AzidRain 08-09-2008 18:05:43

Esos archivos son temporales que crea el BDE cuando realizas consultas sobre tablas planas. Lo que puedes hacer es borrarlos al cerrat tu aplicación con un "del *._Q*.DBF"


La franja horaria es GMT +2. Ahora son las 01:32:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi