Ver Mensaje Individual
  #1  
Antiguo 31-01-2013
aggg63 aggg63 is offline
Miembro
 
Registrado: sep 2005
Posts: 31
Reputación: 0
aggg63 Va por buen camino
Error haciendo una segunda consulta

Hola.

Tengo una base de datos generada con SQLite. Trabajo con los componentes ZEOS 6 y Delphi 2006. No soy muy experto en el tema de base de datos.
Realizo una consulta para extraer un codigo y a continuacion realizo otra consulta para obtener mas datos. La primera funciona sin problemas, pero la segunda, cuando intento visualizar el numero de registros, me sale un error diciendo que 'Cannot perform this operation in a closed dataset'. He probado con ZConsultaBD.Close; activado y desactivado, el problema es el mismo. ¿Como se pueden realizar varias consultas en una misma base de datos? Gracias.


Código Delphi [-]
      
        if ZConexionBD.Connected then ZConexionBD.Disconnect;
        ZConexionBD.Database:=directorioBaseDatos+'Historico.sql';
        ZConexionBD.Protocol:='sqlite-3';
        ZConexionBD.Connected:=TRUE;
        ZConsultaBD.Connection:=ZConexionBD;
        comSQL:='SELECT CodigoTemporada'
               +' FROM Temporadas'
               +' WHERE Temporada="'+inttostr(t)+'-'+inttostr(t+1)+'"';
        ZConsultaBD.SQL.Text:=comSQL;
        ZConsultaBD.ExecSQL;
        ZConsultaBD.Open;
        ct:=ZConsultaBD0.FieldByName('CodigoTemporada').AsInteger;
        //ZConsultaBD.Close;
        //ZConsultaBD.SQL.Clear;
        comSQL:='SELECT CodigoArticulo'
               +' FROM ArticuloTemporada'
               +' WHERE CodigoTemporada='+inttostr(ct);
        ZConsultaBD.SQL.Text:=comSQL;
        ZConsultaBD.ExecSQL;
        ZConsultaBD.RecordCount; <-- ERROR
Responder Con Cita