Error Catastrófico

[cd.rafael]

Cordial Saludo,

Definitivamente no estoy de acuerdo con este tipo de mensajes que muestra Delphi, lo deja a uno .

El problema es rarísimo y no sé qué pueda ser:

Hice una aplicación que me permita abrir cualquier tabla para poder realizar cualquier acción (insertar, editar, eliminar). Utilizo dbExpress.

Vay a tratar de dar un ejemplo para poderme explicar:

1. Inicio la aplicación para la TablaX. Al iniciar la aplicación, la tabla se encuentra cerrada.
2. Abro una forma de búsqueda donde puedo realizar un query cualquiera y no genera ningún problema, ej.

select * from TablaX

3. Cierro la aplicación, la inicio nuevamente para la misma TablaX y abro la foma de búsqueda y genero el siguiente query
y hasta aquí, ningún problema:

select * from TablaX where Campo1 = 1

4. Cierro la aplicación, la inicio nuevamente para la TablaY y abro la foma de búsqueda y genero el siguiente query
y... ERROR CATASTROFICO:

select * from TablaY

5. Cierro la aplicación, la inicio nuevamente para la misma TablaY y abro la foma de búsqueda y genero el siguiente query
y... ningún problema:

select * from TablaY where Campo1 = 1

La verdad es que no sé qué podrá ser y cabe advertir que todas las consultas son perfectamente válidas.

Agradezco muchísimo de antemano toda la ayuda posible.

[Casimiro Noteví]

Código fuente necesitamos.

[cd.rafael]

Cordial Saludo,

    Application.CreateForm(TfrmBusqueda, frmBusqueda);
    frmBusqueda.gStEsquema := pStEsquema;
    frmBusqueda.gStTabla := pStTabla;
    frmBusqueda.gScxConexion := pQry.SQLConnection;
    frmBusqueda.ShowModal;
    if (frmBusqueda.gBlCancela) then
    begin
        Exit;
    end;
    if (Length(frmBusqueda.gStSQLAdd) > 0) then
    begin
        pClientDataSet.Close;
        pQry.Close;
        if (Pos('where', frmBusqueda.gStSQLAdd) = 0) and (Pos('where', LowerCase(pStSQL)) = 0) then
        begin
            pQry.SQL.Text := pStSQL + ' where 1 = 1 ' + frmBusqueda.gStSQLAdd;
        end else begin
            pQry.SQL.Text := pStSQL + ' ' + frmBusqueda.gStSQLAdd;
        end;
        pQry.Open;
    end else begin
        pQry.SQL.Text := pStSQL;
        pQry.Open;
    end;
    try
        pQry.Refresh;
        pClientDataSet.Open; //Aquí Genera el Error Catastrófico!!!
        pClientDataSet.Refresh;
    finally;
    end;

Muchas Gracias.

[[Chris]]

Ningún error en computación es catastrófico .

Cuál es exactamente el mensaje que tira el error?

[cd.rafael]

Cordial Saludo,

Adjunto imagen.

Gracias.

[[Chris]]

Es casi obvio para mí que este error no tiene nada que ver con Delphi, sino con algo externo usado por dbExpress o incluso aún el sistema operativo. Que tipo de tablas / motor de DB estás usando?