Club Builder

[Eduardo]

Cuando guardo los datos del Tmemo y sobrepaso las 4 o 5 filas de éste
me guarda pura basura en mi tabla y nada de lo yo escribí.

Guardar->Params->Items[3]->AsString=Memo1->Text;

En la tabla(MS Sql 7.0) tengo el campo llamado "concepto" de tipo TEXT.

Como puedo solucionar este problema.

[Eduardo]

Realmente necesito de ayuda para éste problema...

[el diego]

Hola Eduardo
Podrias ser un poco mas específico? Donde queres guardar el contenido del TMemo? Qué es "Guardar"?
Probá utilizando la propiedad Lines del memo para tomar los datos linea a linea.

[Eduardo]

Deseo Guardar el contenido del TMemo en un campo llamado 'Concepto'
de una tabla en ms sql server 7.0

[triki]

Hola a todos:

Mi consejo, es que en el diseño del campo de la base de datos, le pongan en vez de text le pongas VARCHAR.

Y si sigues teniendo problemas a la hora de insertar el contenido del tmemo en la base de datos, pasa dicho contenido a AnsiString y luego lo insertas.

Te lo comento, por que la mayoria de la aplicaciones que he realizado con base de datos, son con SQL SERVER tanto 7 como 2000 lo hago de la forma que te he comentado y no he tenido problemas.

saludos

[el diego]

Eduardo,Que tipo de campo es "Concepto"?

[el diego]

Triki, no habia visto tu respuesta. Estoy deacuerdo. A lo sumo podria intentar con un campo de tipo blob (no recuerdo si se llama asi en SQL Server).

saludos

[triki]

Hola de nuevo:

Lo único que debes controlar, es que la longitud de caracteres que permites en el tmemo no exceda del que pones en el campo concepto de la base de datos.

saludos

[Eduardo]

TRIKI

NO ME FUNCIONO TU METODO...

Query1->Active=false;
Query1->SQL->Clear();
Query1->SQL->Add("INSERT INTO ingresos(num, concepto)");
Query1->SQL->Add(" VALUES(0, 1)");
Query1->Params->Items[0]->AsInteger=max;
AnsiString memo=Memo1->Text;
Query1->Params->Items[1]->Value=memo;
Query1->ExecSQL();
Query1->Close();


concepto= campo de tipo VARCHAR(500)

[Invitado]

Tuve el mismo problema y la solución fué la siguiente.
Basta con modificar:
Guardar->Params->Items[3]->AsString=Memo1->Text;
por esto:
Guardar->Params->Items[3]->AsMemo=Memo1->Text;

Fácil, cuando ya lo decubres.
espero haber ayudado.