[Carmelo Cash]

Hola Foro:

Esta consulta es medio "Fuera de época"... pero es que siempre trabajé con bases de datos y nunca usé tablas dbf.

Ahora tengo que hacer una aplicación que grabe y lea una tabla dbf y necesito un campo de observaciones que cargue un Tmemo.

Estoy utilizando el mismo método que para firebird pero no me funciona, porque si en el memo estribo:

AAAAAAAAAAAA
BBBBBBBBBBBB
CCCCCCCCCCCCCC

Cuando lo recupero me devuelve:

???????????????

Estoy utilizando Delphi 10 y me conecto con ADO

Bueno, a continuación dejo los pasos que estoy haciendo.

Desde ya muchas gracias.



--- sql para crear tabla -----

Create Table Articul6.dbf (
ID Integer,
CD char(25),
Articulo char(120),
Obs memo
);

--- sql para insert ----------------

Insert into
Articul6.dbf
(
ID,
CD,
Articulo,
Obs
)
values
(
:ID,
:CD,
:Articulo,
:Obs
)

El campo Obs es BlobType:ftWidwmemo

--- para grabar --------------------

var
MS: TMemoryStream;
begin
MS := TMemoryStream.Create;
Memo3.Lines.SaveToStream(MS);
Q_Ins.Parameters.ParamByName ('ID').Value:= StrToInt(Edit4.Text);
Q_Ins.Parameters.parambyname('CD').Value:= Edit5.Text;
Q_Ins.Parameters.parambyname('Articulo').Value:= Edit6.Text;
Q_Ins.Parameters.ParamByName('Obs').LoadFromStream(MS,ftBlob);
Q_Ins.ExecSQL;
ms.Free;
end;

--- para recuperar -----------------

Memo3.lines.Add(Q_Ver.FieldByName('Obs').AsString);