<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META content="text/html; charset=iso-8859-1" http-equiv=Content-Type>
<META name=GENERATOR content="MSHTML 8.00.6001.18939">
<STYLE></STYLE>
</HEAD>
<BODY bgColor=#ffffff>
<DIV><FONT size=2 face=Arial>Hola,</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Algo parecido me sucedio a mi con respecto al 
refresco, hasta que encontre una solucion de Delphi, lo cual lo aplique a 
lazarus y funciono.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>El punto era realizar el refresco del dbgrid, para 
esto te agrego el procedimiento que encontre, puedes colocar este procedimiento 
en un modulo general, que </FONT></DIV>
<DIV><FONT size=2 face=Arial>siempre este referenciado en cada unidad que 
trabajes, tambien puedes agregarlo en tu unidad de trabajo para que veas como 
funciona.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Acuerdate colocar al inicio de la unidad 
 en <STRONG>Type</STRONG> esta instruccion</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Type</FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>THackDBGrid = 
class(TDBGrid);</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>/* Procedimiento */</FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>procedure Refresh_gridrow(dbgrid1: 
TDBGrid);</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>var<BR>  rowDelta: Integer;<BR>  
row: integer;<BR>  recNo: integer;<BR>  ds : 
TDataSet;<BR>begin<BR>  ds := 
THackDBGrid(dbgrid1).DataSource.DataSet;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>  rowDelta := -1 + 
THackDBGrid(dbgrid1).Row;<BR>  row := ds.RecNo;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>  ds.Refresh;</STRONG></FONT></DIV>
<DIV><STRONG></STRONG> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>  with ds do<BR>  
begin<BR>    DisableControls;<BR>    RecNo := 
row;<BR>    MoveBy(-rowDelta) ;<BR>    
MoveBy(rowDelta) ;<BR>    EnableControls;<BR>  
end;<BR>  
ds:=Nil<BR>end;          
</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>Ahora para usarlo te dejo un ejemplo:</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>procedure Tfservicios.btnNewClick(Sender: 
TObject);<BR>begin</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG></STRONG></FONT> </DIV>
<DIV><FONT size=2 face=Arial><STRONG>     
Application.CreateForm(Tftomaservicios, 
ftomaservicios);<BR>     with ftomaservicios 
do<BR>           
Begin<BR>            
caption:='Servicio 
Nuevo';<BR>            
if(ShowModal = mrOK ) 
Then<BR>               
Begin<BR>                  
Refresh_gridrow(dbmovimiento); // dbmovimiento es el dbgrid que contiene el 
enlace con el 
query<BR>               
end;<BR>     end;<BR>     
FreeAndNil(ftomaservicios);</STRONG></FONT></DIV>
<DIV><FONT size=2 face=Arial><STRONG>end;</STRONG></FONT></DIV>
<DIV><STRONG><FONT size=2 face=Arial></FONT></STRONG> </DIV>
<DIV><FONT size=2 face=Arial>Trata de probarlo y mira si es lo que 
necesitas.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>Saludos.</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<DIV><FONT size=2 face=Arial>FG</FONT></DIV>
<DIV><FONT size=2 face=Arial></FONT> </DIV>
<BLOCKQUOTE 
style="BORDER-LEFT: #000000 2px solid; PADDING-LEFT: 5px; PADDING-RIGHT: 0px; MARGIN-LEFT: 5px; MARGIN-RIGHT: 0px">
  <DIV style="FONT: 10pt arial">----- Original Message ----- </DIV>
  <DIV 
  style="FONT: 10pt arial; BACKGROUND: #e4e4e4; font-color: black"><B>From:</B> 
  <A title=gxleandro@gmail.com href="mailto:gxleandro@gmail.com">LEANDRO 
  GARCIA</A> </DIV>
  <DIV style="FONT: 10pt arial"><B>To:</B> <A 
  title=lazarus-es@lists.lazarus.freepascal.org 
  href="mailto:lazarus-es@lists.lazarus.freepascal.org">lazarus-es@lists.lazarus.freepascal.org</A> 
  </DIV>
  <DIV style="FONT: 10pt arial"><B>Sent:</B> Monday, September 06, 2010 11:42 
  AM</DIV>
  <DIV style="FONT: 10pt arial"><B>Subject:</B> [Lazarus-es] Dudas con 
Zeos</DIV>
  <DIV><BR></DIV>Hola gente de la lista, primero quisiera felicitarlos, por ser 
  parte de esta comunidad y estar atentos a las dudas y problemas que podamos 
  tener, mi nombre es Leandro, y desde hace un tiempo estoy incursionando en 
  Lazarus, y como primer proyecto estoy migrando un sistema que tenia echo en 
  Visual fox.<BR>
  <DIV>Experimentando un poco con las librerias Zeos me surguio un 
  inconveniente.</DIV>
  <DIV> </DIV>
  <DIV>Intentando hacer un ABM simple utilize el componente 
  tzconection(conectado a Mysql 5), un TZQuery (siene un select con un inner 
  join) y un TZtable, y muestro el contenido del TZQuery en un dbgrid.</DIV>
  <DIV>Todos configurados en tiempo de diseņo.</DIV>
  <DIV><BR></DIV>
  <DIV>Uso el TZtable para guardar nuevos registros de la siguiente 
manera.</DIV>
  <DIV>tabla.Insert; <BR>tabla.FieldByName('nombre').Text:=Edit1.Text; <BR>tabla.Post; 
   <BR></DIV>
  <DIV>Y los datos se guardan perfectamente en la tabla, pero el grid no me 
  refleja los cambios, sigue mostrando el listado hasta el momento antes de 
  agregar un registro nuevo.</DIV>
  <DIV><BR></DIV>
  <DIV>Osea, si conecto el grid con el Query el listado no es completo, si 
  conecto el componente TZtable si se reflejan los cambios, pero no me sirve, 
  pues yo con el query puedo mostrar otros datos extra con el inner join.</DIV>
  <DIV>Desde ya mil gracias, espero no sea una burrada lo q estoy intentando 
  hacer, pero ya lo intente todo y no hay caso.</DIV>
  <DIV>Saludos</DIV>
  <DIV><BR></DIV>
  <DIV><BR></DIV><BR>
  <P>
  <HR>

  <P></P>_______________________________________________<BR>Lazarus-es mailing 
  list<BR>Lazarus-es@lists.lazarus.freepascal.org<BR>http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus-es<BR></BLOCKQUOTE></BODY></HTML>