problema con memo y access

[[JClink]]

buenass holas a todos

Mi gran preocupacion en estos momentos es que llevo dias intentando meter el texto de un componente memo en un campo de tipo memo de una base de datos access.

Cuando escribo en el memo e inserto algun tabulador o algún intro y doy a guardarlo me da un error que pone cadena truncada por la derecha y no se como solucionarlo.

los datos los meto en la base de datos de la siguiente manera:

self.Query2.close;
self.Query2.sql.clear;
self.Query2.sql.add('insert into tratamientos Nombre,NifDoctor,NifPaciente,fecha,tipo,descripcion,cerrado) values(:Nombre,:NifDoctor,:NifPaciente,:fecha,:tipo,:descripcion,:cerrado)');
self.query2.Params[0].AsString:=nombre;
self.query2.Params[1].AsString:=NifDoctor;
self.query2.Params[2].AsString:=NifPaciente;
self.query2.Params[3].AsString:=datetostr(date);
self.query2.Params[4].AsString:=tipo;
self.query2.Params[5].AsMemo:=descripcion;
self.query2.Params[6].AsBoolean:=cerrado;
self.Query2.ExecSql;

en el que descripcion le paso el contenido del memo a traves de su propiedad text.

Gracias de antemano.

[vtdeleon]

Saludos

Chequea este hilo que tuvo un problema parecido.

[[JClink]]

perdon por la insistencia pero la solución que me propone este hilo es la siguiente:
Pasa el texto con la propiedad AsMemo utiliza la propiedad AsBlob pero el problema es que en la base de datos me lo escribe con caracteres chinos u orientales. Pero cuando los cargo de la base de datos access a mi componente memo me aparece lo siguiente: ???????????????? es decir no me lo traduce.

Por lo cual he tenido que optar por poner la propiedad Asmemo y poner a false la propiedad WordWrap del componente memo. Con esto consigo que los intros que introduzco los inserte bien en la base de datos.

Lo que ahora me ocurre es que al introducir algún caracter de estos: -+´`'ç
me sale: ... error de cadena truncada por la derecha(null).

Espero me puedan ayudar GRACIAS.

[Fernando]

Hola delphimaníacos:

No sé si esto sirva, no tengo Delphi a la mano:

self.query2.Params[5].AsString:= descripcion.Lines;

o

self.query2.Params[5].AsString:= descripcion.Lines.Text;


Saludos.

[gastongg]

Empezado por Fernando

Hola delphimaníacos:

No sé si esto sirva, no tengo Delphi a la mano:

self.query2.Params[5].AsString:= descripcion.Lines;

o

self.query2.Params[5].AsString:= descripcion.Lines.Text;


Saludos.

El problema que creo tenés es que el campo de tipo "MEMO" creado en ACCESS, debe tener el atributo "Compresión Unicode" en "NO".
Espero soluciones tu problema.
Gastón Gonzalez Gradaschi.-
CODNET - GRUPO INFORMATICO
www.codnet.com.ar