Ver Mensaje Individual
  #1  
Antiguo 08-09-2008
klionsis klionsis is offline
Miembro
 
Registrado: may 2006
Posts: 50
Reputación: 19
klionsis Va por buen camino
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, 
          (Descuento * a.PREV)/100 as Descuento, 
          a.PREV - ((Descuento * 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(Codigo) ) or (a.CPROD = ''))
          and ((upper (a."DESC") like upper(Descripcion) ) or (a."DESC" = ''))
          and ((upper (a.Linea) like upper(Linea)) or (a.Linea = ''))
          and ((upper (a."DESC") like upper(Parte) ) 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.


Responder Con Cita