Foros Club Delphi - Actualizar tabla Paradox

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Tablas planas (https://www.clubdelphi.com/foros/forumdisplay.php?f=20)

- - Actualizar tabla Paradox (https://www.clubdelphi.com/foros/showthread.php?t=85738)

Actualizar tabla Paradox

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:

Código:

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.

Hola Angel.

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

Agregá estas líneas:

Código:

{

  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 :)

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

Cita:

Empezado por Angel.Matilla (Mensaje 475656)

¿Así, tal cual? :confused:
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. :o
Acabo de darme cuenta de la línea que había al principio.

Hola Angel.

Eso quiere decir que si escribis este código:

Código:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  String BackStr;

}

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

Jamás me ha sucedido algo así.

Saludos :)

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

Cita:

Empezado por ecfisa (Mensaje 475658)

Código:

void __fastcall TForm1::Button1Click(TObject *Sender)

{

  String BackStr;

}

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

Jamás me ha sucedido algo así.

Saludos :)

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