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 Temas de Hoy

 
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 23-10-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Poder: 20
FGarcia Va por buen camino
Editar e Insertar con un Dataset

Nuevamente solicitando ayuda con esto de los IBX y FB 2.0 D7.

tengo este codigo:

Código Delphi [-]
//Llamo a este procedimiento y le envio dos parametros
procedure TdmDatos.ActualizaTotales(strID, strPeso: string);
begin
  //Con el DataSet Totales
  with dstTotales do
    begin
      //Intentamos localizar la existencia de un registro con esta ID
      if Locate('Bascula',strID,[loCaseInsensitive]) then
        //SI existe recupero los valores de estos dos campos y cambio a EDICION
        begin
          showmessage('SI existe'); //Esto solo para verificar que si ingresa al 
ciclo
          accCuenta := dstTotalesACCOPERACION.Value;
          gblCuenta := dstTotalesGBLOPERACION.Value ;
          Edit;
        end
      else
        showmessage('NO existe'); //Esto solo para verificar que si ingresa al ciclo
        //SI NO existe cambio a modo INSERTAR NUEVO
        begin
          Append;
          accCuenta := 0;
          gblCuenta := 0;
          dstTotalesBASCULA.Value := StrToInt(strID);
        end;
      Inc(accCuenta);
      Inc(gblCuenta);
      dstTotalesACCOPERACION.Value := accCuenta;
      dstTotalesGBLOPERACION.Value := gblCuenta;
      
      //Guardo los datos nuevos
      dstTotales.Post;
    end;
end;

y espero obtener esto

Cita:
//Espero obtener algo asi (DESPUES DE VARIAS OPERACIONES):
ID |ACCOPERACION |GBLOPERACION
1 | 20 | 20
2 | 20 | 20
3 | 20 | 20
4 | 20 | 20

//Sin embargo obtengo esto
ID |ACCOPERACION |GBLOPERACION
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
1 | 1 | 1
2 | 1 | 1
3 | 1 | 1
4 | 1 | 1
¿Cual es mi error? ¿el dataset no es apropiado para esto? ya probe con un IBQuery y me devuelve los mismos resultados. Se agradece su ayuda y sugerencias.
__________________
ESTO ES UN FORO ... NO UN MÓVIL
¿Por qué no escribir de una manera comprensible para que los humanos lo podamos entender?
Responder Con Cita
 



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
Copiar el contenido de un DataSet a otro DataSet Javi2 Varios 82 22-11-2022 09:26:16
Intento insertar y/o editar en un DBGrid y no me permite. joal Conexión con bases de datos 2 05-04-2007 18:17:59
Problema con insertar instruccion en un dataset el_barto Conexión con bases de datos 2 13-07-2005 00:16:41
insertar un nuevo sql en un DataSet.insertsql el_barto Conexión con bases de datos 2 17-06-2005 23:14:02
editar un exe piskapocha Varios 2 31-03-2004 22:20:39


La franja horaria es GMT +2. Ahora son las 16:17:50.


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