![]() |
![]() |
| Paypal | FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
|||||||
| Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
![]() |
|
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
|
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???
__________________
Visita mi Weblog de Ingeniería de Software... |
|
#3
|
|||
|
|||
|
Compañero Marto, ya probe el codigo, pero sigue sin actualizar el Grid...que podra ser???
__________________
Visita mi Weblog de Ingeniería de Software... |
|
#4
|
||||
|
||||
|
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 |
|
#5
|
|||
|
|||
|
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;
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 = '*')
__________________
Visita mi Weblog de Ingeniería de Software... |
![]() |
|
|
|