Hola
No se lo que haces, pero hay varias contradicciones.
Creo que esta mejor asi:
Código Delphi
[-]
DBSearch.DatabaseName := 'dbs\';
DBSearch.SQL.Clear;
DBSearch.SQL.Add('SELECT * FROM EMPLEADO.DB WHERE COOPERATIVA LIKE '+quotedstr('%'+wndmain.cbCooperativa.text+'%')+ ' AND TRABAJO_ASIGNADO LIKE '+quotedstr('%'+wndmain.cbPuestoTrabajo.Text+'%')+ ' AND HABILITADO LIKE '+quotedstr('%SI%'));
DBSearch.SQL.Add(' ORDER BY APELLIDO') ;
quickrep1.DataSet := DBSearch;
dbsearch.Active := true;
Código Delphi
[-]
Monto_Inasistencia := 0;
dbInasistencias.DatabaseName := 'dbs\';
dbInasistencias.SQL.Clear;
dbInasistencias.SQL.Add('SELECT * FROM '+ 'INA2008.db' + ' WHERE DNI= NI AND FECHA >= :fecha1 AND FECHA<= :fecha2' );
dbInasistencias.Params.ParamByName('DNI').AsInteger := dbsearch.FieldValues['DNI'];
dbInasistencias.Params.ParamByName('fecha1').AsDate:= wndmain.pImpresionFrom;
dbInasistencias.Params.ParamByName('fecha2').AsDate:= wndmain.pImpresionTo;
while not dbInasistencias.Eof do
begin
monto_Inasistencia := monto_Inasistencia + dbInasistencias.FieldValues ['MONTO'];
dbInasistencias.Next;
end;
dbInasistencias.Active:=true;
Saludos