Concadenar un Blob y un Varchar

[ingabraham]

ej;:

tipo varchar blob
select nombrepaciente||diagnostico from recetas

me sale error, no me muestra nada,
como se hace esto?

utilizo firebird 2.0 y delphi 7.

[[Caral]]

Hola
Desde IBExpert o desde delphi???
Saludos

[ingabraham]

desde delphi,

[[Caral]]

Hola
Desde IBExpert o directo en Firebird:

Código SQL [-]
 recetas.nombrepaciente|| ' ' ||diagnostico AS Descr,

Desde Delphi:

Código Delphi [-]
 recetas.nombrepaciente|| '' '' ||diagnostico AS Descr,

Saludos

[ingabraham]

error me aparece, de esa forma en delphi no me aparece nada
y en firebird error.
debido a que hay incompatibiliad en los tipo Blob y un Varchar

el cast(nombrepaciente as blob)

o
el cast(diagnostico as varchar)
no me acepta tampoco.

que hago?

[[egostar]]

Empezado por ingabraham

error me aparece, de esa forma en delphi no me aparece nada
y en firebird error.
debido a que hay incompatibiliad en los tipo Blob y un Varchar

el cast(nombrepaciente as blob)

o
el cast(diagnostico as varchar)
no me acepta tampoco.

que hago?

Hola

Código SQL [-]
select coalesce(substring(nombrepaciente from 1 for 80), diagnostico) from recetas

Saludos

[ecfisa]

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; // para visualizar en dbgrid
  with IBQuery1 do
  begin
    Close;
    SQL.Text:= 'SELECT  NOMBRE || OBSERVACION FROM PACIENTES';
    Open;
  end;
end;

procedure TForm1.BtnDataSetClick(Sender: TObject);
begin
  DataSource1.DataSet:= IBDataSet1; // para visualizar en dbgrid
  with IBDataSet1 do
  begin
    Close;
    SelectSQL.Text:= 'SELECT  NOMBRE || OBSERVACION FROM PACIENTES';
    Open;
  end;
end;

Saludos.

[[Caral]]

Hola
En un reporte uso esta sentencia a la perfeccion, al estar en el string del reporte es igual que ponerla en el IBexpert:

Código SQL [-]
SELECT SerieMaterial.NumSerie, OrdenProdItem.CodOrden, OrdenProdItem.CodParte,
 Articulos.Descripcion|| ' ' ||Categoria|| ' ' ||SubCategoria AS Descr, SerieMaterial.CodMaterial,
Materiales.Descripcion, Materiales.Unidad, SerieMaterial.Cantidad, Materiales.Costo,
OrdenProdItem.FinProd, SerieMaterial.CostoALaFecha 
FROM Articulos RIGHT JOIN (OrdenProdItem INNER JOIN (Materiales RIGHT JOIN SerieMaterial
ON Materiales.CodMaterial = SerieMaterial.CodMaterial) ON OrdenProdItem.NumSerie = SerieMaterial.NumSerie)
ON Articulos.CodParte = OrdenProdItem.CodParte

Y en uno de los tantos codigos que tengo en delphi:

Código Delphi [-]
If FSelProdFact.CheckBox1.Checked = True then
      begin
         QTemp.Close;
         QTemp.SQL.Text := 'SELECT Descripcion|| '' '' ||Categoria|| '' '' ||SubCategoria AS Descr, Precio1 FROM Articulos '+
                           'WHERE CodParte = '+QuotedStr(FSelProdFact.Edit1.Text);
         QTemp.Open;
      end;

Por lo tanto:
Las dos sentencias que puse funcionan Perfectamente en Firebird, si no es asi, tengo un trato con el diablo jejejje.
Saludos

PD: LAS COMILLAS son por razones Obvias:
Se usan para que los datos que se presentan no estén pegados, estén separados por un espacio, muy útil lógicamente.