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 13-08-2004
JorgeBec JorgeBec is offline
Miembro
 
Registrado: jul 2003
Posts: 159
Poder: 21
JorgeBec Va por buen camino
Refresh a un Grid

Hola de Nuevo! Mi pregunta es Tengo un DbGrid, al cual se le asigna un data source y a su vez se conecta con un set de datos de la tabla Ventas.dbf, ahora con un boton yo hago un update a esa misma tabla, pero los datos no se actualizan, como actualizo el DbGrid???
Responder Con Cita
  #2  
Antiguo 13-08-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Poder: 21
marto Va por buen camino
Código Delphi [-]
  DbGrid.DataSource.DataSet.Refresh;
__________________
E pur si muove
Responder Con Cita
  #3  
Antiguo 13-08-2004
JorgeBec JorgeBec is offline
Miembro
 
Registrado: jul 2003
Posts: 159
Poder: 21
JorgeBec Va por buen camino
Compañero Marto, ya probe el codigo, pero sigue sin actualizar el Grid...que podra ser???
Responder Con Cita
  #4  
Antiguo 13-08-2004
Avatar de marto
marto marto is offline
Miembro
 
Registrado: may 2003
Ubicación: Barcelona, Catalunya
Posts: 882
Poder: 21
marto Va por buen camino
Wop!

¿Por que no nos pones el código que usas para escribir en la tabla y para conectar el grid?
__________________
E pur si muove
Responder Con Cita
  #5  
Antiguo 13-08-2004
JorgeBec JorgeBec is offline
Miembro
 
Registrado: jul 2003
Posts: 159
Poder: 21
JorgeBec Va por buen camino
Aqui va

este es el proceso...

Código:
procedure TfrmGastos.BitBtn1Click(Sender: TObject);
begin
  try
     if edGastos.Value = 0 then
        showmessage('Falta ingresar los gastos de fabricación...')
     else
     begin
       qryTotalizado.First;
       qryUpdate.Params[0].asfloat := qryTotalizadoUni.value;
       qryUpdate.Params[1].asfloat := edGastos.value;
       qryUpdate.ExecSQL;
     end;

     showMessage('Proceso Terminado...');
  except
     on E:Exception do Errores(E.Message);
  end;

end;
este proceso es el de Actualizar el Grid...

Código:
procedure TfrmGastos.BitBtn3Click(Sender: TObject);
begin
     GridGtos.DataSource.DataSet.Refresh;
end;

y este lo que tiene el componente llamado qryUpdate...

Código:
UPDATE Ventas V 
SET 
     impgtosfab = (V.unidades / :pTotal) * :pTotGtos
WHERE 
         V.codigoprod = (SELECT codigoprod FROM Producto P WHERE P.codigoprod = V.codigoprod AND P.gtosfab = '*')
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


La franja horaria es GMT +2. Ahora son las 15:32:34.


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