Ver Mensaje Individual
  #4  
Antiguo 18-07-2011
Diana Carolina Diana Carolina is offline
Miembro
NULL
 
Registrado: nov 2010
Posts: 30
Reputación: 0
Diana Carolina Va por buen camino
No puedo colocar en qry en modo edicion!

Ok, el componente que tiene la consulta es un TQry, que se conecta a un TDataSource, la base esta en sqlserver2008, y trabajo con delphi 6.

Tengo una pantalla en la que estan los componentes DBEdit, los cuales los lleno consultando otras tablas, y complemento una informacion en Componentes Edit, toda esta informacion (La que se carga en los DBEdit y en los Edit) se guarda en una nueva tabla, el Qry al que se conecta la Grilla hace una consulta a esa tabla.

Lo que intento es colocarle un boton a la pantalla para poder editar los datos que aparecen en la grilla y aplicarlos a la tabla.

Programe este evento para traer los datos de la tabla y la grilla a los DBEdits y Edits, efectivamente los carga, pero solo trae la primera fila que arroja la consulta, ademas al colocar el cursor sobre alguno de estos compnentes se borra la informacion que tienen.

Código Delphi [-]
procedure TFrmSponCuent.wwDBGSponDblClick(Sender: TObject);
begin
   DtmSpon.QryConsultaSpon.close;
   DtmSpon.QryConsultaSpon.open;
   DtmSpon.ValidarCuenta;
   DBEdNombre.Text := DtmSponCuent.QryConsultaSponnom_clie.AsString;
   DBEdTipIden.Text := DtmSponCuent.QryConsultaSponTip_Iden.AsString;
   DBEdNumIden.Text := DtmSponCuent.QryConsultaSponNit_Clie.AsString;
   DBEdCuenta.Text :=  FloatToStr(DtmSponCuent.QryConsultaSponCon_Cuen.asfloat);
   DBEdNomCta.Text := DtmSponCuent.QryConsultaSponCtanom_cuen.AsString;
   DBEdPais.Text := DtmSponCuent.QryConsultaSponCtaDescripcion.AsString;
   EdCod_Spon.Text := DtmSponCuent.QryConsultaSponCodigo.AsString;
   EdBolsa_Origen.Text := DtmSponCuent.QryConsultaSponBolsa.AsString;

end;

No se que programarle y si el metodo que intento es el mas adecuado...
Responder Con Cita