Hola ingabraham.
El código funciona perfectamente.
Cambié los nombres de campo y tabla para realizar la prueba, pero la consulta es la misma:
Campo ||
CampoBlob
Prueba en Delphi/Firebird, con IBQuery y con IBDataSet:
Código Delphi
[-]
procedure TForm1.BtnQueryClick(Sender: TObject);
begin
DataSource1.DataSet:= IBQuery1; with IBQuery1 do
begin
Close;
SQL.Text:= 'SELECT NOMBRE || OBSERVACION FROM PACIENTES';
Open;
end;
end;
procedure TForm1.BtnDataSetClick(Sender: TObject);
begin
DataSource1.DataSet:= IBDataSet1; with IBDataSet1 do
begin
Close;
SelectSQL.Text:= 'SELECT NOMBRE || OBSERVACION FROM PACIENTES';
Open;
end;
end;
Saludos.