Urgente. error al consultar una tabla dbase
Publicado por Robert (5 intervenciones) el 28/06/2001 22:43:16
Hola Foro
Estoy consultando una tabla en dbase pero al hacer la consulta varias veces me aparece el siguiente error:
Too many open Files. You may need to increase MAXFILEHANDLE limit in IDAPI configuration
Table is read only
File D: Datos\Especie.dbf
La consulta se hace sobre un alias creado en tiempo de ejecución que lee datos de una tabla que se encuentra en un cd.
Los datos de la bùsqueda (que se quieren encontrar en la tabla) son tomados de un edit y la estructura de la consulta es como sigue:
procedure TBusquedaYPresentacion.EditBusNomKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
Var Nombre:String;
begin
IF (KEy=VK_RETURN)then
begin
Nombre:=''''+'%'+EditBusNom.text+'%'+'''';
ConsultaEspecie.Sql.Clear;
ConsultaEspecie.Sql.Add('SELECT * FROM ESPECIE.DBF WHERE NOMBRESVUL LIKE'+Nombre+'ORDER BY GENEROESPE,ESPECIE');
ConsultaEspecie.Open;
end
end;
SI alguien sabe como ayudarme, se lo agradeceria enormemente.
GRACIAS por si atención
Estoy consultando una tabla en dbase pero al hacer la consulta varias veces me aparece el siguiente error:
Too many open Files. You may need to increase MAXFILEHANDLE limit in IDAPI configuration
Table is read only
File D: Datos\Especie.dbf
La consulta se hace sobre un alias creado en tiempo de ejecución que lee datos de una tabla que se encuentra en un cd.
Los datos de la bùsqueda (que se quieren encontrar en la tabla) son tomados de un edit y la estructura de la consulta es como sigue:
procedure TBusquedaYPresentacion.EditBusNomKeyDown(Sender: TObject;
var Key: Word; Shift: TShiftState);
Var Nombre:String;
begin
IF (KEy=VK_RETURN)then
begin
Nombre:=''''+'%'+EditBusNom.text+'%'+'''';
ConsultaEspecie.Sql.Clear;
ConsultaEspecie.Sql.Add('SELECT * FROM ESPECIE.DBF WHERE NOMBRESVUL LIKE'+Nombre+'ORDER BY GENEROESPE,ESPECIE');
ConsultaEspecie.Open;
end
end;
SI alguien sabe como ayudarme, se lo agradeceria enormemente.
GRACIAS por si atención
Valora esta pregunta


0