Buen dia a todos, antes que nada quiero que observen este codigo
Código Delphi
[-]
procedure TFrmClientes.BtGuardarClick(Sender: TObject);
begin
TblCliente.Active:=True;
QryCliente.SQL.Text:='select * from cliente where 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.Active:=True;
if (QryCliente.RecordCount>0) then
ShowMessage('REGISTRO YA ESTA: '+IntToStr(QryCliente.RecordCount)+'')
else
ShowMessage('PAILAS');
QryCliente.AppendRecord([EdtCedula.Text]);
QryCliente.Active:=False;
TblCliente.Active:=False;
end;
end.
Lo que estoy tratando de hacer(inicialmente a manera de prueba) es que por ejemplo yo ingreso unos datos en un formulario, si me lo encuentra listo me muestra el mensaje Registro ya esta, eso ya funciona, el problema que tengo es listo ingreso los datos de un registro que no este en la base de datos me bota el mensaje pailas y lo que quiero a manera de prueba es que a manera de prueba me agregue lo que esta en ese Edt (EdtCedula) al la base de datos, segun la ayuda el metodo appenrecord me permite agregar registros al final de la base de datos, pero el erro que me bota dice mas o menos "QryCliente: No se puede modificar un Dataset de solo lectura"( es mas o menos mi traduccion ya que el mensaje en ingles no recuerdo pero se relaciona con esto), el problema es si con ese metodo me ahorro el usar la sentencia sql de insert (insert into .... values....), que tengo que corregir del codigo.
Mil Gracias por su ayuda.