Ayuda con Update aun memo

[rodrigodeoz]

Saludos!!!

Espero alguien me pueda ayudar.

Tengo un problema al momento de actualizar un campo de tipo memo en en mi BD tengo la siguente consulta:

Código Delphi [-]
    with dm.qadulto do begin
        close;
        sql.Clear;
        sql.add('update nino set motivo=:0');
        SQL.Add('WHERE cve_cte=:cv');
        parambyname('cv').Value:=cni;
        parambyname('0').AsMemo:=mc.Text;
        execsql;
    end;

La consulta jala bien pero si mto mas de 6 lineas de texto me marca AccesViolation, y necesito poder guardas mas de 6 lineas.
el componente es Query(DBTable). si laguien me puede decir otro metodo se lo agradeceria mucho

[jhonny]

La verdad es que no lo he probado, pero ¿te funcionaria asi?

Código Delphi [-]
 with dm.qadulto do begin
        close;
        sql.Clear;
        sql.add('update nino set motivo=:0');
        SQL.Add('WHERE cve_cte=:cv');
        parambyname('cv').Value:=cni;
        parambyname('0')..Assign(mc);
        execsql;
    end;

espero que si .

[[duilioisola]]

Qué base de datos utilizas?
- Quizas tenga algún tipo de restricciones con respecto a los memos.

Cómo está definida la tabla nino?
- Si el campo cve_cte de la tabla está definido como BLOB no deberías tener problemas.
- Si está definido como un string grande, quizás hayas alcanzado el límite.

[rodrigodeoz]

utilizo Acces, el campo cve_cte es el indice de la tabla, el campo donde guardo el texto es en motivo y este esta definido como memo, y no es por el limite, en un principio tambien pense en eso, pero me fui directo a la tabla y le escribi mastante texto y si lo guardo bien, y no se que mas hacer

[jhonny]

Empezado por rodrigodeoz

utilizo Acces, el campo cve_cte es el indice de la tabla, el campo donde guardo el texto es en motivo y este esta definido como memo, y no es por el limite, en un principio tambien pense en eso, pero me fui directo a la tabla y le escribi mastante texto y si lo guardo bien, y no se que mas hacer

Hiciste lo que te he sugerido?

[rodrigodeoz]

si ya lo hice y me marca error: Cannot assing TMemo to a TParam.

[jhonny]

Empezado por rodrigodeoz

si ya lo hice y me marca error: Cannot assing TMemo to a TParam.

A bueno, ¿Y asi?

Código Delphi [-]
with dm.qadulto do begin
        close;
        sql.Clear;
        sql.add('update nino set motivo=:0');
        SQL.Add('WHERE cve_cte=:cv');
        parambyname('cv').Value:=cni;
        parambyname('0').Assign(mc.Lines);
        execsql;
    end;

Deberia funcionarte.

[rodrigodeoz]

Gracias por la atencion prestada, ya he resuelto mi problema es que en lugar de enviar un parametro de tipo .asMemo lo cambie por un Parametro de tipo asBlob y mi consulta quedo asi

Código Delphi [-]
 
with dm.qadulto do begin
        close;
        sql.Clear;
        sql.add('update nino set motivo=:0');
        SQL.Add('WHERE cve_cte=:cv');
        parambyname('cv').Value:=cni;
        parambyname('0').AsBlob:=mc.Text;
        execsql;
    end;

[[duilioisola]]

Código Delphi [-]
sql.add('update nino set motivo=:0');

Esto es una letra O o es un el número 0 (cero)?
Si es un cero, puede ser ese el problema, prueba lo siguiente:

Código Delphi [-]
with dm.qadulto do begin
        close;
        sql.Clear;
        sql.add('update nino set motivo=:motivo');
        SQL.Add('WHERE cve_cte=:cv');
        parambyname('cv').Value:=cni;
        parambyname('motivo').AsMemo:=mc.Text;
        execsql;
    end;

Tambien puedes probar:

Código Delphi [-]
        parambyname('motivo').AsBlob:=mc.Text;

Nota: no te preocupes de que los campos y los parámetros tengan el mismo nombre. El tener el : (dos puntos) adelante ya los diferencia.

[rodrigodeoz]

Gracias por la ayuda, mi consulta quedo como el ultimo consejo que medieron