insertar un archivo en un campo blob desde delphi

[thelibmx]

[quote=sitrico;252575]Bueno mira no se si ayude o complique la cosa a estas alturas pero te recomiendo lo siguiente:

Modifica la sentencia SQL asi:

Original:

Código Delphi [-]Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
Edit1.Text+','''+tdEditAsunto.Text+''','+QuotedStr(blob)+')');





Modificada:

Código Delphi [-]Querygestion.SQL.add('insert into tabla_prueba(llave,nombre,archivoblob) values '+
'(:llave,:nombre,:archivoblob)');





De esa manera usarás parametros para manipular los datos en SQL (el nombre del campo precedido de dos puntos ":")

Luego (creo) que puedes hacer:


Código Delphi [-]
Querygestion.ParamByName('llave').asinteger := unentero;
Querygestion.ParamByName('nombre').AsString := uncharacter
Querygestion.ParamByName('archivoblob').AsString := memo.text




quote]
con ese codigo manda un mensaje de "table is read only" ya verifique en las propiedades del ttable y la propiedad read only esta desactivada, cheque en el tdatabase haber si podria haber alguna propiedad ahi y no encontre algo que pudiera afectar, alguna sugerencia o comentario que me pudieran dar?


gracias