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