Actualizar tabla Paradox

[Angel.Matilla]

Vamos a ver, que no sé que pasa. Tengo una aplicación en la que sólo se actualiza UNA única tabla Paradox y funciona en MONOPUESTO, sin red. Lo hago así, por ejemplo:

Query->SQL->Text = "INSERT INTO 'Socios.db' (Socio, Usuario, Alta, F_alta, Situacion, Apellidos, Nombre, Dni, F_nacim, Domicilio, Cpostal, Poblacion, Provincia, Telefono, Email, Forma, Iban, Bic, F_pago, F_renov) VALUES (:Socio, :Usuario, :Alta, :F_alta, :Situacion, :Apellidos, :Nombre, :Dni, :F_nacim, :Domicilio, :Cpostal, :Poblacion, :Provincia, :Telefono, :Email, :Forma, :Iban, :Bic, :F_pago, :F_renov)";
Query->ParamByName("Socio")->AsInteger     = StrToInt(Socio->Text);
Query->ParamByName("Situacion")->AsInteger = Situacion->ItemIndex;
Query->ParamByName("Apellidos")->AsString  = Apellidos->Text;
[etc...]
try
{
     Query->ExecSQL();
}
catch(...)
{
}

Todo esto no me da mayor problema pero cuando añado un registro, con el código del ejemplo, para verlo TENGO QUE SALIRME DE LA APLICACIÓN Y VOLVER A ENTRAR, y no sé como solventarlo.

[ecfisa]

Hola Angel.

Con seguridad estas usando el mismo componente para mostrar que para insertar.

Agregá estas líneas:

{
  String BackStr = Query->SQL->Text;  
 
  /* Tu código
  Query->SQL->Text = "INSERT INTO 'Socios.db' (Socio, ...
  ... 
  Query->ExecSQL();
  */

  Query->Close();
  Query->SQL->Text = BackStr;
  Query->Open();

Saludos

[Angel.Matilla]

¿Así, tal cual?
Lo digo porque si lo pongo tal cual me dice que ¡tururú pajarito! al compilar (Undefined symbol 'BackStr'). Estoy trabajando con BCB 6

[Angel.Matilla]

Empezado por Angel.Matilla

¿Así, tal cual?
Lo digo porque si lo pongo tal cual me dice que ¡tururú pajarito! al compilar (Undefined symbol 'BackStr'). Estoy trabajando con BCB 6

NO HE DICHO NADA.
Acabo de darme cuenta de la línea que había al principio.

[ecfisa]

Hola Angel.

Eso quiere decir que si escribis este código:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String BackStr;
}

¿ Obtenes el mensaje de error Undefined symbol 'BackStr' ?

Jamás me ha sucedido algo así.

Saludos

Edito: Yo tampoco dije nada. (Recién veo la línea que agregaste a tu mensaje )

[Angel.Matilla]

Empezado por ecfisa

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  String BackStr;
}

¿ Obtenes el mensaje de error Undefined symbol 'BackStr' ?

Jamás me ha sucedido algo así.

Saludos

Porque soy un prisas y puse por las bravas las líneas sin leerlo todo antes.