Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Bases de datos > Firebird e Interbase
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Commit no se ejecuta

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).
Responder Con Cita
  #2  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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.
Responder Con Cita
  #3  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
¡Uf! ¿Todo el código? Luego no quiero protestas
Código PHP:
tGesElec->Close();
tGesElec->TableName "Localidades";
tGesElec->Open();
tGesElec->First();

for (; !
tGesElec->EoftGesElec->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->EofqGesElec1->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 1nItem 8nItem ++)
          {
                
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->EofqGesElec2->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.

Última edición por Angel.Matilla fecha: 23-05-2018 a las 11:37:20. Razón: Faltan comentarios
Responder Con Cita
  #4  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
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?
Responder Con Cita
  #5  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
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:
Cita:
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.
Responder Con Cita
  #6  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
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.
Responder Con Cita
  #7  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Elimina esos commit que haces después de los execsql
Al componente TIBTransaction dale estos valores:
Código:
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.
Responder Con Cita
  #8  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Al componente TIBTransaction dale estos valores:
Código:
write
nowait
rec_version
 read_committed
¿Dónde pongo esos valores? ¿En los parámetros? ¿Cómo? Porque en la ayuda no lo he visto. El resto del código que me sugieres no se me había ocurrido, la verdad.
Responder Con Cita
  #9  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Por ejemplo, doble click en el componente.
O botón derecho sobre el mismo -> editar parámetros de transacciones.
Responder Con Cita
  #10  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Imagino que te refieres a esto:

Los valores de la izquierda, ¿los dejo tal cual, sin seleccionar ninguno?
Responder Con Cita
  #11  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Ese diálogo es.
No hace falta que tú lo teclees. Si marcas "Read Commited" verás que se escriben esas opciones.
Responder Con Cita
  #12  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Gracias por todas las respuestas (me estáis enseñando un montón de cosas que desconocía) y perdón por lo paliza que llego a ser. Vamos a ver. He hecho lo que me has sugerido: darle los valores a la transacción, poner el código de la transacción (lo he puesto en el evento QueryAfterPost, como en tu ejemplo, pero tal vez no sea el mejor sitio) y he eliminado los commit tras los ExecSQL... ¡Pero me sigue haciendo lo mismo! Cuando tiene que buscar el último valor que se ha grabado en el query INSERT INTO Mesas, sigue sin encontrarlo y se salta el resto del código. De hecho tengo puesto con el depurador que se pare en:
Código PHP:
void __fastcall TfMenu::QueryAfterPost(TDataSet *DataSet)
{
     (
reinterpret_cast<TIBQuery *>(DataSet))->Transaction->CommitRetaining();

pero ni siquiera llega a entrar en ese evento; tengo puesta la "parada" justo en la línea del CommitRetainig. El código está puesto así, de forma similar a otros eventos, para que me valga para otros querys que hay en la aplicación; por ejemplo:
Código PHP:
void __fastcall TfMenu::QueryAfterClose(TDataSet *DataSet)
{
     (
reinterpret_cast<TIBQuery *>(DataSet))->UnPrepare();
     (
reinterpret_cast<TIBQuery *>(DataSet))->SQL->Clear();

Responder Con Cita
  #13  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Pero, ¿qué error sale? ¿has verificado qué valores llevan los parámetros? etc.
Responder Con Cita
  #14  
Antiguo 23-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
No sale ningún error; hace lo mismo que antes: al llegar a verificar si el query a devuelto algo, como no encuentra el dato continua con el siguiente valor del bucle. Sí, los parámetros están puestos todos. Ya te digo que he puesto el código que me has sugerido donde he indicado (en el AfterPost) pero ni siquiera llega a entrar en el evento.
Responder Con Cita
  #15  
Antiguo 23-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Tras el insert, ¿se guardó el registro?
Al hacer después el select, ¿has comprobado el query con ibexpert, o el programa que uses, para ver si es correcto?
Responder Con Cita
  #16  
Antiguo 24-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Cita:
Empezado por Casimiro Notevi Ver Mensaje
Tras el insert, ¿se guardó el registro?
Al hacer después el select, ¿has comprobado el query con ibexpert, o el programa que uses, para ver si es correcto?
Sí. Yo uso SQL Manager, pero es lo mismo; después del insert sí puedo hacer la consulta con SQL Manager.
Responder Con Cita
  #17  
Antiguo 24-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Por lo tanto el problema está en el código donde se hace el select, ¿lo has seguido paso a paso con el depurador?
Responder Con Cita
  #18  
Antiguo 24-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
Sí, y se ejecuta perfectamente y sin errores. De hecho he comprobado con el propio SQL Manager que hace bien el INSERT.
Responder Con Cita
  #19  
Antiguo 24-05-2018
Avatar de Casimiro Notevi
Casimiro Notevi Casimiro Notevi is offline
Moderador
 
Registrado: sep 2004
Ubicación: En algún lugar.
Posts: 32.021
Poder: 10
Casimiro Notevi Tiene un aura espectacularCasimiro Notevi Tiene un aura espectacular
Cita:
Empezado por Angel.Matilla Ver Mensaje
Sí, y se ejecuta perfectamente y sin errores. De hecho he comprobado con el propio SQL Manager que hace bien el INSERT.

No, si digo en el select, que es el que no hace:

Cita:
Empezado por Casimiro Notevi Ver Mensaje
Por lo tanto el problema está en el código donde se hace el select, ¿lo has seguido paso a paso con el depurador?
Responder Con Cita
  #20  
Antiguo 24-05-2018
Avatar de Angel.Matilla
Angel.Matilla Angel.Matilla is offline
Miembro
 
Registrado: ene 2007
Posts: 1.350
Poder: 19
Angel.Matilla Va por buen camino
¡Ah! El select tampoco da ningún error; simplemente no devuelver nada. Y como en el insert está probado con el SQL Manager y ahí sí devuelve resultado.
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Commit no se ejecuta hasta que cierro la aplicación... MAXIUM Firebird e Interbase 3 24-02-2018 16:44:20
con breakpoint ejecuta y sin el no lo ejecuta. pacuuy Varios 1 16-12-2007 14:41:43
Commit - CommitRetaining Luzma Firebird e Interbase 3 27-06-2006 02:58:58
Commit micayael PHP 4 21-09-2005 20:34:50
Commit Loviedo Firebird e Interbase 7 29-07-2005 15:36:10


La franja horaria es GMT +2. Ahora son las 18:35:23.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi