Commit no se ejecuta

[Angel.Matilla]

Antes que nada advertir que he estado buscando por el foro pero el único caso que he visto similar al mio es usan componentes FireDAC que yo no uso.

En una aplicación con BCB6 estoy migrando una base de datos Access a otra Firebird. En principio no me está dando demasiados problemas pero al cargar una de las tablas con definiciones FOREIGN KEY sobre otras de la BB.DD. me están surgiendo problemas. Tengo este código apra insertar registros en una tabla FB:

Código PHP:

Query->SQL->Text = "INSERT INTO Mesas (Municipio, Distrito, Seccion, Mesa, Censo) VALUES (:Municipio, :Distrito, :Seccion, :Mesa, :Censo)";
Query->ParamByName("Municipio")->AsInteger = Edit->Tag;
Query->ParamByName("Distrito")->AsInteger  = qGesElec1->FieldByName("Mes_Distrito")->AsInteger;
Query->ParamByName("Seccion")->AsInteger   = qGesElec1->FieldByName("Mes_Seccion")->AsInteger;
Query->ParamByName("Mesa")->AsString       = qGesElec1->FieldByName("Mes_Mesa")->AsString;
Query->ParamByName("Censo")->AsInteger     = qGesElec1->FieldByName("Mes_Censo")->AsInteger;
Query->ExecSQL();
Query->Transaction->Commit(); 


Tras grabar este registro tengo que ejecutar este otro código sobre otra tabla:

Código PHP:

Auxiliar->Close();
Auxiliar->SQL->Text = "SELECT Codigo FROM Mesas WHERE CodPrv = (SELECT Literal FROM Instalacion WHERE Etiqueta = 'Provincia') AND Municipio = :Municipio AND Distrito = :Distrito AND Seccion = :Seccion AND Mesa = :Mesa";
Auxiliar->ParamByName("Municipio")->AsInteger = Edit->Tag;
Auxiliar->ParamByName("Distrito")->AsInteger  = qGesElec1->FieldByName("Mes_Distrito")->AsInteger;
Auxiliar->ParamByName("Seccion")->AsInteger   = qGesElec1->FieldByName("Mes_Seccion")->AsInteger;
Auxiliar->ParamByName("Mesa")->AsString       = qGesElec1->FieldByName("Mes_Mesa")->AsString;
Auxiliar->Open();

if (fMenu->Auxiliar->IsEmpty())
     continue; 


Ambos códigos se ejecutan uno tras otro. El problema que se me está presentando es que si el registro a buscar en este SELECT coincide con el que acabo de grabar en el INSERT anterior siempre se sale por el continue del final y no sé como evitarlo sin tener que andar cerrando y abriendo la BB.DD. Los elementos que estoy usan son dos TIBQuery (Query y Auxiliar), un TEdit (Edit) y un TADOQuery (qGesElec1).

[Casimiro Notevi]

Bueno, no pones el código completo de esa parte y no podemos saber dónde inicias la transacción y demás. Se supone que en la consulta no estarás obteniendo los datos de otra transacción que, obviamente, no ve a la anterior.

[Angel.Matilla]

¡Uf! ¿Todo el código? Luego no quiero protestas

Código PHP:

tGesElec->Close();
tGesElec->TableName = "Localidades";
tGesElec->Open();
tGesElec->First();

for (; !tGesElec->Eof; tGesElec->Next())
{
     Edit->Text = IntToStr(fMenu->tGesElec->FieldByName("Loc_Telefono")->AsInteger);

     Query->SQL->Text = "INSERT INTO DatLoc (Codigo, Actualiza, Padron, Concejales, Afiliados, Alcalde, Partido, Constitucion, Sede, TlfSede, Presidente, Portavoz, Observaciones) VALUES (:Codigo, :Actualiza, :Padron, :Concejales, :Afiliados, :Alcalde, :Partido, :Constitucion, :Sede, :TlfSede, :Presidente, :Portavoz, :Observaciones)";

     Query->ParamByName("Codigo")->AsInteger        = Edit->Tag;
     Query->ParamByName("Actualiza")->AsDateTime    = tGesElec->FieldByName("Loc_FActualiza")->AsDateTime;
     Query->ParamByName("Padron")->AsInteger        = tGesElec->FieldByName("Loc_Habitantes")->AsInteger;
     Query->ParamByName("Concejales")->AsInteger    = tGesElec->FieldByName("Loc_Concejales")->AsInteger;
     Query->ParamByName("Afiliados")->AsInteger     = tGesElec->FieldByName("Loc_Afiliados")->AsInteger;
     Query->ParamByName("Constitucion")->AsDateTime = tGesElec->FieldByName("Loc_FConstitucion")->AsDateTime;
     Query->ParamByName("Sede")->AsString           = tGesElec->FieldByName("Loc_Sede")->AsString;
     Query->ParamByName("TlfSede")->AsString        = FormatFloat("000000000", tGesElec->FieldByName("Loc_Telefono")->AsInteger);
     Query->ParamByName("Observaciones")->AsString  = tGesElec->FieldByName("Loc_Observaciones")->AsString;
     Query->ParamByName("Presidente")->AsInteger    = tGesElec->FieldByName("Loc_Presidente")->AsString;
     Query->ParamByName("Portavoz")->AsInteger      = tGesElec->FieldByName("Loc_Portavoz")->AsString;
     Query->ParamByName("Partido")->AsInteger       = tGesElec->FieldByName("Loc_Partido")->AsString;
     Query->ParamByName("Alcalde")->AsString        = tGesElec->FieldByName("Loc_Alcalde")->AsString;
     Query->ExecSQL();
     Query->Transaction->Commit();

     qGesElec1->Close();
     qGesElec1->SQL->Text = "SELECT Mes_Distrito, Mes_Seccion, Mes_mesa, Mes_Censo FROM Mesas WHERE Loc_ID = " +
                            FormatFloat("0", tGesElec->FieldByName("Loc_ID")->AsInteger) + " ORDER BY Mes_Distrito, Mes_Seccion, Mes_mesa";
     qGesElec1->Open();

     for (; !qGesElec1->Eof; qGesElec1->Next())
     {
          Query->SQL->Text = "INSERT INTO Mesas (Municipio, Distrito, Seccion, Mesa, Censo) VALUES (:Municipio, :Distrito, :Seccion, :Mesa, :Censo)";

          Query->ParamByName("Municipio")->AsInteger = Edit->Tag;
          Query->ParamByName("Distrito")->AsInteger  = qGesElec1->FieldByName("Mes_Distrito")->AsInteger;
          Query->ParamByName("Seccion")->AsInteger   = qGesElec1->FieldByName("Mes_Seccion")->AsInteger;
          Query->ParamByName("Mesa")->AsString       = qGesElec1->FieldByName("Mes_Mesa")->AsString;
          Query->ParamByName("Censo")->AsInteger     = qGesElec1->FieldByName("Mes_Censo")->AsInteger;

          Query->ExecSQL();
          Query->Transaction->Commit();

          for (nItem = 1; nItem < 8; nItem ++)
          {
                qGesElec2->Close();
                qGesElec2->SQL->Text = "SELECT A.Ele_Tipo, A.Ele_Fecha, A.Ele_Part" + FormatFloat("0", nItem) + ", B.Vot_P" + FormatFloat("0", nItem) + " FROM Elecciones A, Votos B, Votaciones C WHERE C.Loc_ID = " + FormatFloat("0", fMenu->tGesElec->FieldByName("Loc_ID")->AsInteger) + " AND A.Ele_ID = C.Ele_ID AND C.Vot_ID = B.Vot_ID AND B.Vot_Mesa = '" + FormatFloat("00' '", qGesElec1->FieldByName("Mes_Distrito")->AsInteger) + FormatFloat("000' '", qGesElec1->FieldByName("Mes_Seccion")->AsInteger) + qGesElec1->FieldByName("Mes_Mesa")->AsString + "' ORDER BY Ele_Fecha, Ele_Tipo";
                qGesElec2->Open();

               for (; !qGesElec2->Eof; qGesElec2->Next())
               {
                     if (qGesElec2->Fields->FieldByNumber(3)->AsString.Trim().IsEmpty() || qGesElec2->Fields->FieldByNumber(4)->AsInteger == 0)
                              continue;
                    Auxiliar->Close();
                    Auxiliar->SQL->Text = "SELECT Codigo FROM Mesas WHERE CodPrv = (SELECT Literal FROM Instalacion WHERE Etiqueta = 'Provincia') AND Municipio = :Municipio AND Distrito = :Distrito AND Seccion = :Seccion AND Mesa = :Mesa";
                    Auxiliar->ParamByName("Municipio")->AsInteger = Edit->Tag;
                    Auxiliar->ParamByName("Distrito")->AsInteger  = qGesElec1->FieldByName("Mes_Distrito")->AsInteger;
                    Auxiliar->ParamByName("Seccion")->AsInteger   = qGesElec1->FieldByName("Mes_Seccion")->AsInteger;
                    Auxiliar->ParamByName("Mesa")->AsString       = qGesElec1->FieldByName("Mes_Mesa")->AsString;
                    Auxiliar->Open();

                    if (fMenu->Auxiliar->IsEmpty())
                           continue;
                    [Resto del código]
               }
          }
     }
 } 


tGesElec es un TADOTable. El problema ya os digo viene al tratar de buscar el último código grabado; ejecutando con el depurador y una vez hecho el segundo commit si busco el registro con SQLManager sí lo veo, pero si sigo la ejecución del programa entonces da un query vacío.

Es la primera vez que me tengo que enfrentar a un BB.DD. Acces, que encima ni he diseñado yo ni tengo documentación alguna sobre su estructura. Los querys sobre Access (qGesElec1 y qGesElec2) los estoy montando así porque si tarto de hacerlo con parámetros no sé como se hace; pensaba que era como en el caso de los TIBQuery.

El bucle ese for (nItem = 1; nItem < 8; nItem ++) es porque en dos tablas Access todos los registros están definidos como Ele_Part1, Ele_Part62, etc. y Vot_P1, Vot_P2, etc. Encuentro absurdo crear registros sin información sin razón alguna y los estoy cambiando de forma.

[Casimiro Notevi]

Me refería a todo el código implicado en la transacción
Ahí veo que haces commit, pero ¿cuándo inicias la transacción en esos casos?
¿Cómo tienes definido el TIBTransaction?

[Angel.Matilla]

Vale, te había entendido mal. Lo cierto es que, y me acabo de dar cuenta al leer este mensaje tuyo, que la transacción la tengo definida en el formulario principal... ¡pero luego no hago nada con ella! Quiero decir: ni la abro, ni la verifico, ni nada de nada, ¡y sin embargo funciona bien! Los registros se graban, se actualizan, se borran. No lo entiendo.


En la transacción asociada al query que hace el INSERT sólo tengo puesto:

AutoStopAction = falseDefaultAction = TACommit
Name = tGesInt

El resto de propiedades están como vienen por defecto en el objeto. Es evidente que algo estoy haciendo mal.

[Angel.Matilla]

Empezado por Casimiro Notevi

Ahí veo que haces commit, pero ¿cuándo inicias la transacción en esos casos?

¡Miento! Como me dejaste con la mosca detrás de la oreja he estado repasando el código. La transacción la activo cuando conecto la base de datos:

Código PHP:

GesInt->DatabaseName = AnsiString(cTablas) + "GesInt.fdb";
GesInt->Params->Clear();
GesInt->Params->Add("user_name=" + NombreUser);
GesInt->Params->Add("password=" + ClaveUser);
GesInt->Params->Add("lc_ctype=ISO8859_1");
GesInt->SQLDialect            = 3;
GesInt->Connected             = true;
Auxiliar->Transaction->Active = true;
Query->Transaction->Active    = true; 


Todas las varaibels que hay por ahí danzando (cTablas, NombreUser y ClaveUser) están bien definidas y con valores correctos. Ese es el úncio sitio donde modifico el esatdo de las transacciones.

[Casimiro Notevi]

Elimina esos commit que haces después de los execsql
Al componente TIBTransaction dale estos valores:

write
nowait
rec_version
read_committed

Luego, en el evento del query que lo necesites, haces un commit explícito:

Código Delphi [-]
procedure TDMmain.QRcentrosCosteAfterPost(DataSet: TDataSet);
begin
  DataSet.Transaction.CommitRetaining;
end;

Y por supuesto, no olvides hacer un commit (no un commitretaining) por ejemplo cuando vuelves a la pantalla principal. Ya depende de cómo tengas estructurado tu programa.