Ver Mensaje Individual
  #4  
Antiguo 16-08-2010
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Reputación: 22
JXJ Va por buen camino
me pasaron un codigo fuente escrito en delphi 7
y usando la base de datos firebird 1.5
en dbexpress y usando datasnap
que al hacer la busqueda en la
base de datos
hace uso de bookmarks

el codigo es asi

Código SQL [-]
var
    sBM : String;
begin
    with dmDatos.qryListados do begin
        sBM := dmDatos.cdsCliente.Bookmark;

        dmDatos.cdsCliente.Active := false;
        Close;
        SQL.Clear;
        SQL.Add('SELECT tabla.clave, tabla.nombre, tabla.categoria');
        Open;
        dmDatos.cdsCliente.Active := true;

        dmDatos.cdsCliente.FieldByName('clave').Visible := false;
        dmDatos.cdsCliente.FieldByName('nombre').DisplayLabel := 'vendido';
        dmDatos.cdsCliente.FieldByName('categoria').Visible := false;

        registros.value := dmDatos.cdsCliente.RecordCount;
        try
            dmDatos.cdsCliente.Bookmark := sBM;
        except
            Registros.Value := txtRegistros.Value;
        end;
    end;


lo que me interesa es quitar el uso de bookmarks
y ver si se puede hacer la busqueda por medio
de solo querys,
y no usar datasnap

por que

cdsCliente es un TClientDataSet
y se usan
TDataSetProvider
Responder Con Cita