Club Builder

[Mac]

Saludos estoy haciendo una aplicacion que guarda registros mediante una cadena en un TQuery1 tengo tres campos en mi tablas llamados nombre,producto,descripcion los cuales introdusco la informacion mediante DBEdit de la siguiente forma en el evento BeforPost de TQuer

AnsiString d;

D="insert into Base(nombre,producto,descripcion)values(";
d+=Query1->FieldValues["nombre"];
d+=Query1->FieldValues["producto"];
d+=Query1->FieldValues["descripcion"];
UpdateSQL1->InsertSQL->Clear();
UpdateSQL1->InsertSQL->Add(d);
UpdateSQL1->ExecSQL(ukInsert);

el problema que tengo es que el campo descripcion es de tipo Null pero al dejar la informacion en blanco en el DBEdit Descripcion me devuelve un error

(Could not convert variant of type(NULL)into Type (String)

espero me puedan ayudar a solucionar el problema gracias.

[KAYETANO]

Hola

No tiene mucho que ver con lo que preguntas, pero en el ejemplo que pones ...

1. No cierras el parentesis de values
2. Las cadenas de texto deben ir entre comillas

Yo para no liarme la vida lo hago de la siguiente forma:

D="insert into Base(nombre,producto,descripcion)values(:parametro1, :parametro2, :parametro3);
UpdateSQL1->InsertSQL->Clear();
UpdateSQL1->InsertSQL->Add(d);
UpdateSQL1->InsertSQL->Params->ParamValue["parametro1"] = Query1->FieldValues["nombre"];
UpdateSQL1->InsertSQL->Params->ParamValue["parametro2"] = Query1->FieldValues["producto"];
UpdateSQL1->InsertSQL->Params->ParamValue["parametro3"] = Query1->FieldValues["descripcion"];
UpdateSQL1->ExecSQL(ukInsert);

Asi es el objeto Query el que gestion los tipos de datos.

Ya te digo poco tiene que ver con lo que preguntas pero igual te sirve de algo

Salu2
KAYETANO