Tabla dbf y campo memo
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);
|