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.

[delphi.com.ar]

Si quieres armar el Sql "a mano" en lugar de pasarlo a un TMemoryStream podrías pasarlo a un TStringStream y recuperar el contenido del mismo con la propiedad DataString... pero si el valor del RichEdit es demasiado extenso, posiblemente esta metodología falle, por eso te recomiendo usar DataSets editables. Busca en el foro información sobre el TUpdateSQL.

Saludos!