buenas todos, me encargaron migrar un sistema de Delphi 2 al 5XE, hay cosas que no me resultan, en el siguiente código muestro los datos obtenidos por un QRY general obtengo 6 registros pero no los puedo mostrar en un clientedataset
Código Delphi
[-]
with dmAyuda_Emp_Holding.QRY_General do
begin
SQL.Clear;
SQL.Add('SELECT Codigo_Holding'
+' FROM QS_SYS_DEF_HOLDING'
+' WHERE Codigo_Empresa = :Codigo_Empresa'
);
ParamByName('Codigo_Empresa').AsString := trim(sEmpresa);
Open;
if FieldByName('Codigo_Holding').IsNull then
sCodigo_holding := ''
else
sCodigo_Holding := FieldByName('Codigo_Holding').AsString;
Close;
end;
if Trim(sCodigo_Holding) <> '' then
begin
With dmAyuda_Emp_Holding.FDQuery4 do
begin
Close;
ParamByName('Codigo_Holding').AsString := sCodigo_Holding;
Open;
dmAyuda_Emp_Holding.ClientDataSet4.Active := True; (es aquí donde debería mostrar datos)
el QRY es la selección de dos tablas
el dataset esta relacionado con un TDATASETPROVIDER y este ultimo al QRY
adjunto select del QRY
Código SQL
[-]
SELECT b.Codigo_Identidad
,b.Razon_Social_Pat
FROM QS_SYS_DEF_HOLDING a
,QS_SYS_IDENTIDAD b
WHERE a.Codigo_Holding = :Codigo_Holding
AND a.Codigo_Empresa = b.Codigo_Identidad
muchas gracias de antemano