Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 15-05-2012
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
guardad datos en firebird no funciona hasta cerrar programa

Hola a todos tengo un problema que no puedo guardar los datos que agrego en mi programa hasta que se cierre el programa, osea lo añado al grid verifico con el ibexpert y aun estos datos no estan en la base de datos. cierro el programa y verifico con el ibexpert y los datos recien se guardan.

este es el codigo que uso y espero puedan ayudarme
muchisimas gracias
Código Delphi [-]
 if (sModo = 'Insertar') then
  begin
    with dmDatos.Categorias do
    begin
      Close;
      SQL.Clear;
      SQL.Add('INSERT INTO categoria (name_categ, fecha_categ, tipo, cuenta)');
      SQL.Add('VALUES(:name_categ,:fecha_categ,:tipo,:cuenta)');
      params.ParamByName('name_categ').Value := txtnombrecateg.Text;
      params.ParamByName('fecha_categ').Value := FormatDateTime('dd/mm/yyyy', Date);
      params.ParamByName('tipo').Value := sTipo;
      params.ParamByName('cuenta').Value := txtcodigo.Text;
      ExecSQL;
      Close;
    end;
      dmDatos.Tcategorias.Active := false;
  with dmDatos.categorias do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM categoria');
    open;
  end;
  with dmDatos.Tcategorias do
  begin
    Active := true;
  end;

  end
  else
  begin
    with dmDatos.Categorias do
    begin
      Close;
      SQL.Clear;
      SQL.Add('UPDATE categoria SET name_categ = ''' + txtnombrecateg.Text + ''',');
      SQL.Add('cuenta = ''' + txtcodigo.Text + ''',');
      SQL.Add('fecha_categ = ''' + FormatDateTime('mm/dd/yyyy', Date) + '''');
      SQL.Add('WHERE clave = ' + IntToStr(iClave));
      ExecSQL;
      Close;
    end;
  end;
Responder Con Cita
  #2  
Antiguo 15-05-2012
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
tienes que utilizar transacciones, investiga , hay mucho de ese tema en los foros.
__________________
all your base are belong to us
Responder Con Cita
  #3  
Antiguo 15-05-2012
Avatar de look
look look is offline
Miembro
 
Registrado: sep 2007
Ubicación: The Shire
Posts: 656
Poder: 17
look Va camino a la fama
aqui un ejemplo:


Código Delphi [-]
  if not (DataModule.IBTransaction1.InTransaction) then DataModule.IBTransaction1.StartTransaction;
  try

     ////     aqui los cambios en la base de datos      insert, update..

      DataModule.IBTransaction1.CommitRetaining;
  except
    on E: Exception do
    begin
          DataModule.IBTransaction1.RollbackRetaining;
          Application.MessageBox( PCHAR('Ocurrio un error.'+#13+E.MESSAGE), 'Error',MB_ICONERROR );
          exit;
    end;
  END;
__________________
all your base are belong to us
Responder Con Cita
  #4  
Antiguo 15-05-2012
JXJ JXJ is offline
Miembro
 
Registrado: abr 2005
Posts: 2.475
Poder: 21
JXJ Va por buen camino
tienes que agregar commit a cada transaccion
que quieres que
sea guardada sin cerrar el programa

osea cada componente funciona diferente.
los ibdac lo hacen automaticamente.

los zeos
dbx
ibxpress

lo tienes que indicar explicitamente


que compoenntes usas??
Responder Con Cita
  #5  
Antiguo 15-05-2012
Rofocale Rofocale is offline
Miembro
 
Registrado: mar 2010
Posts: 182
Poder: 15
Rofocale Va por buen camino
Gracias por el ejemplo.
uso ibquery, ibtransaction..
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
Socket que funciona hasta la segunda vuelta Phacko Varios 5 18-07-2007 03:50:13
Cerrar Programa. johurgi Varios 5 25-06-2007 20:52:11
No cerrar hasta guardar cambios mario2000 API de Windows 3 05-05-2007 20:27:06
eliminar contraseña guardad Manuel Windows 3 26-10-2006 16:22:00
MDI(editor txt)al cerrar principal no funciona codigo d peticion pra guardar cambios ixMike Varios 2 08-04-2004 19:56:10


La franja horaria es GMT +2. Ahora son las 19:12:14.


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