ayuda con campos blob

[cahp]

que utilizas para la edicion?
es decir donde escribes el texto?

Si lo dices te puedo ayudar.

Saludos

[squenda]

Hola CAHP, de antemano te agradezco tu atencion, mira yo utilizo controles normales, no uso controles db, en lugar de usar un DBEdit, uso un Edit, en lugar de usar un DBMemo uso un Memo, y asi me la llevo, como trabajo con puro query no me gustan los DB, y lo que hago que es que armo los querys al vuelo, ejemplo:

With qry_work, qry_work.SQL do
begin
Close;
Clear;
Add('INSERT INTO clientes (');
Add('Nombre,');
Add('Domicilio,');
Add('Observaciones');
Add('VALUES (');
Add(#39 + edt_nombre.text + #39 + ','); //Edit normal
Add(#39 + edt_domicilio.text + #39 + ','); //Edit normal
Add(#39 + m_observaciones.text + #39); //Memo normal
execSQL;
end;

pero nunca he utilizado tipos BLOB, asi que no se si utilizarlo como utilizaría un memo normal o que? espero que esta informacion te ayude a ayudarme jaja, mucha gracias y saludos

[guillotmarc]

Empezado por squenda

pero nunca he utilizado tipos BLOB, asi que no se si utilizarlo como utilizaría un memo normal o que?

Un campo Blob es un campo Memo.

En todo caso, no podrás asignar el contenido de un campo Blob en la misma sentencia SQL (como haces en el ejemplo), por lo que tendrás que recurrir a sentencias con parámetros. Entonces en el parámetro puedes asignarle directamente su valor si solo vas a guardar una string, o bien puedes utilizar métodos como el LoadFromFile para cargar datos desde un archivo, e incluso el LoadFromStream para, como te han comentado, cargar datos de un Stream (útil en el caso de que vayas a cargar datos binarios).

Saludos.

[cahp]

Suponiendo la query:

Add('INSERT INTO clientes')
Add('Nombre,');
Add('Domicilio,');
Add('Observaciones');
Add('VALUES (:nombre, :domicilio, :observaciones) ');

seria:

Query.parambyname('Nombre').AsString :=  EditNombre.Text;
Query.parambyname('Domicilio').AsString :=  EditDomicilio.Text;
Query.parambyname('Observaciones').AsString :=  Memo1.lines.Text;
Query.ExecSQL;

A ver si te sirve eso.

Saludos.

[guillotmarc]

Has olvidado cerrar entre paréntesis la lista de campos, ejplo :

Add('INSERT INTO clientes (Nombre, Domicilio, Observaciones)');
Add('VALUES (:nombre, :domicilio, :observaciones) ');

Saludos.

[cahp]

cierto, y puede ser que falte algo mas, lo he hecho de memoria.

Gracias.

Saludos.

[Julià T.]

Como SQUENDA me envió un mensaje privado, y he visto el tema, publico aquí la respuesta

Hola SQUENDA:

Antes de empezar decirte que los campos Blob de texto les puedes asignar un DBMemo que solitos se encargan del trabajo

En el primer caso casi se podria solucionar poniendo;

       Add(QuotedStr( m_apuntes.text));//control TMemo 
       Add(QuotedStr( m_apuntes.text)+' )' );//control TMemo //aquí te falta cerrar parentesis del insert al final

En el segundo caso

    Add(':apuntes'+' )');//parametro//aquí te falta cerrar el parentesis del insert al final
    Prepared:=True;//para que se prepare la consulta y se regeneren los parámetros "hechos a mano"
    ParamByName('observaciones').AsBlob:= m_observaciones.text;
    ParamByName('apuntes').AsBlob:= m_apuntes.text;