No estoy seguro de lo que queres hacer. Entiendo que el resultado del Query, luego, queres ubicarlo en otro dataset.
Es asi?
Podes valerte del método Findkey.
Supongamos que además del qbAbonado, tenes un Grid asociado al DataSet tAbonado.
Entonces quedaría algo como:
Código Delphi
[-]
with DMAbonados.QBAbonado do
Begin
ParamByName('nombre').Value := Edit5.Text;
Open;
end;
try
if not DMAbonados.qbAbonado.IsEmpty Then
tAbonado.FindKey([DMAbonados.qbAbonado.FieldByName('codigo').AsInteger])
else
ShowMessage('No hay coincidencias!');
finally
DMAbonados.qbAbonado.Close;
end;
Como ves, he tenido el cuidado de cerrar qbAbonado, que quizas no sea necesario en tu caso (depende de si lo usas para algo mas). Tampoco he modificado su propiedad SQL suponiendo que lo utilizarás solo para este tipo de consultas... pero también eso puede variar en tu caso.
Hasta luego.
