Problema Para Actualizar Un Registro

[sdiaz1983]

BUEN DIA A TODOS


procedure TFrmVehiculos.BtEditarClick(Sender: TObject);
begin
QryVehiculo.Active:=True;
TblVehiculo.Active:=True;
TblCliente2.Active:=True;
EdtFecha.Text:=DateToStr(Date);
EdtHora.Text:=TimeToStr(Time);
QryCliente2.SQL.Text:='select * from cliente where Cedula=:P1';
Qrycliente2.Params[0].AsString:=EdtCliente.Text;
QryCliente2.Active:=True;
if(QryCliente2.RecordCount>0)then
Begin
QryVehiculo.Edit;
QryVehiculo.FieldByName('Placa').Value:=EdtPlaca.Text;
QryVehiculo.FieldByName('Fecha').Value:=EdtFecha.Text;
QryVehiculo.FieldByName('Hora').Value:=EdtHora.Text;
QryVehiculo.FieldByName('Cedula_cliente').Value:=EdtCliente.Text;
QryVehiculo.FieldByName('Marca').Value:=EdtMarca.Text;
QryVehiculo.FieldByName('Modelo').Value:=EdtModelo.Text;
QryVehiculo.FieldByName('Clase').Value:=EdtClase.Text;
QryVehiculo.FieldByName('Color').Value:=EdtColor.Text;
QryVehiculo.Post;
MessageDlg('DATOS DEL VEHICULO ACTUALIZADOS',mtInformation,[mbOk],0);
LblVehiculo.Visible:=False;
LblPlaca.Visible:=False;
EdtPlaca.Visible:=False;
LblCliente.Visible:=False;
EdtCliente.Visible:=False;
Lblnombre.Visible:=False;
EdtNombre.Visible:=False;
LblApellido.Visible:=False;
EdtApellido.Visible:=False;
LblFecha.Visible:=False;
EdtFecha.Visible:=False;
LblFecha.Visible:=False;
EdtFecha.Visible:=False;
LblHora.Visible:=False;
EdtHora.Visible:=False;
LblMarca.Visible:=False;
EdtMarca.Visible:=False;
LblModelo.Visible:=False;
EdtModelo.Visible:=False;
LblClase.Visible:=False;
EdtClase.Visible:=False;
LblColor.Visible:=False;
EdtColor.Visible:=False;
BtEditar.Visible:=False;
BtBorrar.Visible:=False;
QryVehiculo.Active:=False;
QryCliente2.Active:=False;
TblCliente2.Active:=False;
TblVehiculo.Active:=False
End
else
MessageDlg('CLIENTE NO EXISTE, DEBE CREARLO',mtError,[mbOk],0);
end;


En el siguiente codigo quiero actualizar un dato de un vehiculo en este caso pero cuando oprimo el boton, me aparece un mensaje en el que me dice "QryVehiculo: no se puede editar un dataset de solo lectura", queria si por favor me pueden ayudar y me dicen que tengo mal en el codigo que tengo que corregi porque he mirado por todos lados pero nada.

Mil Gracias por su ayuda

[droguerman]

no puedes actualizar el resultado de un SELECT (creo que esto puedes hacer con ado pero no con BDE), esto solo lo puedes hacer en un objeto tipo Table

[Lepe]

Al query, pon su propiedad RequestLive a True.

Saludos

[sdiaz1983]

Ok Señores Gracias Por Sus Comentarios