Club Builder

[Ely]

Aunque cada vez que abro la base de datos la vuelvo a cerrar cuando llega a 251 aperturas , me da el error Too Many Open Tables


mi codigo es el siguiente ::


TForm1::LeeHistoricos(TDateTime fecha_hora_inicial,TDateTime fecha_hora_final,unsigned short entrada,unsigned char tipo_entrada)
{

TQuery * TablaDatos = new TQuery(NULL) ;
String consulta;
String select;

try
{
try
{
consulta = " fechahora >= '" + Fecha_hora_inicial.FormatString("mm/dd/yyyy hh:nn") + "' and fechahora <= '" + fecha_hora_final.FormatString("mm/dd/yyyy hh:nn") + "' and NUMEROENTRADA = " + IntToStr(entrada) ; // + " order by fechahora " ;

TablaDatos->SQL->Clear();
select = "select * from 'F:\\ely\\PROYECTOS ELY\\PROYECTO REMOTA\\ERU\\BASEDATOS\\DTA.db' where " + consulta ;
TablaDatos->SQL->Add(select);
TablaDatos->ExecSQL();
TablaDatos->Open();
if (!TablaDatos->Eof) TablaDatos->First();
while (!TablaDatos->Eof)
{
TablaDatos->Next();
}
}
catch(Exception &e)
{

int i = 0 ;
}
}
__finally
{
TablaDatos->Close();
Sleep(500);
delete TablaDatos;
}

}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
for (int i = 0;i<500;i++)
{
LeeHistoricos((TDateTime) "13/05/2004 08:00",(TDateTime) "13/05/2004 09:00",2,2);
Edit1->Text = i;
Application->ProcessMessages();
}

ShowMessage("ZA CABO") ;
}


cuando i = 251 me da un error de too many open files

el builder es el 5 y la base datos paradox

por que