Ver Mensaje Individual
  #2  
Antiguo 11-01-2008
mzell mzell is offline
Registrado
 
Registrado: jul 2006
Ubicación: La Ceiba, Honduras
Posts: 7
Reputación: 0
mzell Va por buen camino
Hola sdiaz1983.

Segun lo que veo, estás combinando dos metodos diferentes para realizar la actualización.

Puedes probar actualizarlo en las siguientes formas:
(estoy asumiendo que los EditBox ya tienen valores asignados)

Forma 1 (Utilizando metodos de dataset):
Código Delphi [-]
procedure TFrmClientes.BtEditarClick(Sender: TObject);
begin
{...}
QryCliente.Edit;
QueryCliente.FieldByName('Cedula').value := EdtCedula.Text;
QueryCliente.FieldByName('Nombre').value := EdtNombre.Text;
QueryCliente.FieldByName('Apellido').value := EdtApellido.Text;
QueryCliente.FieldByName('Telefono').value := EdtTelefono.Text;
QueryCliente.FieldByName('Direccion').value := EdtDireccion.Text;
QryCliente.Post;


Forma 2 (Utilizando los metodos de Query)
Código Delphi [-]
procedure TFrmClientes.BtEditarClick(Sender: TObject);
begin
{...}
QryCliente.SQL.Text:='update cliente set Cedula:=P1 and Nombre:=P2 and Apellido:=P3 and Telefono:=P4 and Direccion:=P5';
QryCliente.Params[0].AsString:=EdtCedula.Text;
QryCliente.Params[1].AsString:=Edtnombre.Text;
QryCliente.Params[2].AsString:=EdtApellido.Text;
QryCliente.Params[3].AsString:=EdtTelefono.Text;
QryCliente.Params[4].AsString:=EdtDireccion.Text;
QryCliente.ExecSQL;
end;

Espero que sea útil esta sugerencia.
Hasta luego.
Responder Con Cita