Guardar texto con formato en Access

[Franklim]

Muchas gracias por tu respuesta pero tengo un pequeño problema y es que no se como insertar el codigo en el mio. Me explico, yo trabajo de esta manera he quitado las comprobaciones previas para hacer mas claro el codigo)


sql := 'Insert into [Modelo Presupuesto] (enlace,modelo,descripcion) values(';
sql := sql +ADOQueryConsulta.fieldByName('Indice').AsString+',';
sql := sql +''''+ EditModeloSeleccionado.Text+''''+',';
sql := sql +''''+ RichEditDescripcion.Text+''''+');';
ADOQueryConsulta.SQL.Clear;
ADOQueryConsulta.SQL.Add(sql);
ADOQueryConsulta.ExecSQL;

y no veo como o no se como introducir el codigo que me comentas en medio de esto.


AStream := TMemoryStream.Create;
Try
RichEditDescripcion.Lines.SaveToStream(AStream);
BlobField(ADOQueryConsulta.FieldByName('Descripcion') ).LoadFromStream
(AStream);
finally
AStream.Free;


Saludos y gracias.