Cita:
Empezado por jafera
Gracias Ecfisa.
El componente Camions es un IBDataset de firebird que contiene aproximadamente mil quinientos registros.
Saludos
|
¡Perfecto! entonces podes usar directamente el
TIBDataSet
Algo similar a esto:
Código Delphi
[-]
var
tmp: string;
begin
with F_ModulDades.Camions do
begin
tmp := SelectSQL.Text; Close;
SelectSQL.Text := 'SELECT * FROM BOM0001 WHERE ID = :PID';
ParamByName('PID').AsInteger := Camions_ParcID.AsInteger;
Open;
end;
if not Assigned(F_Camions) then
begin
F_Camions := TF_Camions.Create(nil);
F_Camions.ShowModal
end
else
F_Camions.BringToFront;
with F_ModulDades.Camions do
begin
Close;
SelectSQL.Text := tmp;
Open;
end;
end;
Saludos