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