Ayuda con next y prior........

[verito_83mdq]

Hola como andan todos?? Acá me surgió un problemita, resulta que tengo una tabla Observaciones donde guardo las observaciones de los clientes.
Los campos mas relevantes son ID_Observación,ID_Cliente,Observación , donde ID_Observación es clave primaria.

Para listar las observaciones agrego esta consulta en el form create:

Código SQL [-]
 with QueryDataModule.ObservacionClienteZQuery do 
               begin 
                 If active then close; 
                 SQL.Clear; 
                 SQL.Add('Select * from observacion_cliente where observacion_cliente.ID_Cliente='+r+''); 
                 Open; 
               end;

Esto funciona muy bien, después tengo en el form dos botones uno para ver la observacion siguiente y otro para la anterior con este código:

Código Delphi [-]
QueryDataModule.ObservacionClienteZQuery.Next; 
         ListarObservacionClienteMemo.Text:=QueryDataModule.ObservacionClienteZQuery.FieldByName('Observacion  ').AsAnsiString; 
         DiaLabel.Caption := FormatDateTime('dddd yyyy/mm/dd', QueryDataModule.ObservacionClienteZQuery.FieldByName('Fecha').AsDateTime); 
         HoraLabel.Caption:= FormatDateTime('hh:nn:ss', QueryDataModule.ObservacionClienteZQuery.FieldByName('Fecha').AsDateTime); 
         PrioridadDBLookupListBox.KeyValue:=QueryDataModule.ObservacionClienteZQuery.FieldByName('ID_Priorida  d').Value;

El problema surge cuando quiero modificar una observación cuando hago un next o prior no se como recuperar el valor del registro actual donde se encuentra posicionado el puntero. Se entiende???? Espero que me puedan ayudar! Graciass por adelantado!

[[coso]]

Hola,
me parece que lo que buscas es RecNo. Echale un vistazo a la ayuda de Delphi a ver si es eso exactamente. Saludos.

[verito_83mdq]

Hola coso suena feo llamarte coso,gracias por responder!!

Estuve viendo lo de Recno esta medio confuso me parece que es para Sql server, yo estoy usando Mysql.

Voy a seguir buscando, si alguien sabe algo se lo voy a agradecer.

Saludos!

[[Chris]]

cómo estás haciendo la modificación de la observación?

[verito_83mdq]

Hola Chris como andas? La estaba haciendo de este modo:

Código SQL [-]
procedure TListarObservacionesForm.ActualizarActivadoPngSpeedButtonClick( 
  Sender: TObject); 
 
 
 
 
begin 
 
               with QueryDataModule.ObservacionClienteZQuery do 
               begin 
                 If active then close; 
                 SQL.Clear; 
                 SQL.Add('Select * from observacion_cliente where observacion_cliente.ID_Cliente='+r+''); 
                 Open; 
               end; 
 
 
               ob:=QueryDataModule.ObservacionClienteZQuery.FieldByName('ID_Observacion').Value; 
 
              with QueryDataModule.ObservacionClienteZQuery do 
               begin 
                 If active then close; 
                   SQL.Clear; 
                   SQL.Add('Update observacion_cliente set '); 
                   SQL.Add('Observacion='''+ListarObservacionClienteMemo.Text+''', '); 
                   SQL.Add('ID_Prioridad=:Priori'); 
                   ParamByName('Priori').Value:=PrioridadDBLookupListBox.KeyValue; 
                   SQL.Add('Where observacion_cliente.ID_Observacion='+ob+''); 
                   ExecSQL; 
               end; 
 
 
 
end;

Osea con instrucciones Sql, nada de poner la tabla en modo edit.
Este codigo esta mal, la primera consulta select lo hacia pensando que me iba a dar el ID_Observacion, después de hacer un prior o next, obviamente que no lo hace y después quería guardarlo en una variable pero al cerrar el Query pierdo el valor de esta variable.

Ya que estoy y aunque esto no solucione el problema, pero se podría guardar el valor de la variable después de cerrar el Query?

Bueno sigo buscando la manera de saber en que registro me encuentro después de un prior o next.

Saludos!

[[coso]]

Hola coso suena feo llamarte coso

no pasa nada lo escogi yo con mis motivos, ya se que por alla puede sonar algo despreciativo saludos. PD: RecNo es una propiedad de TCustomDataSet, de la que probablemente deriva ZQuery, independientemente de la base de datos utilizada. Saludos.

[verito_83mdq]

Hola coso, gracias por tu ayuda. Estuve viendo lo de RecNo, ahora supongamos que obtengo el RecNo, después cuando hago el update eso tendría que estar en la clausula where, no tendrias algun ejemplo de una sentencia usando el RecNo. Desde ya muchas gracias!!!