Código Delphi
[-]procedure TF_AAgenda.BAnadirClick(Sender: TObject);
begin
if trim(ECodigo.Text) = '' then
Begin
ShowMessage('El campo CODIGO no puede quedar vacío.');
ECodigo.SetFocus;
End
else
Begin
ModuloDatos.IBQAgenda.Close;
ModuloDatos.IBQAgenda.SQL.Text := 'insert into AGENDA Values(pb1,pb2,pb3)';
ModuloDatos.IBQAgenda.ParamByName('pb1').AsInteger := StrToInt(ECodigo.Text);
ModuloDatos.IBQAgenda.ParamByName('pb2').AsDate := MEFechaA.Date;
Modulodatos.IBQAgenda.ParamByName('pb3').AsString := EDescripcion.Text;
ModuloDatos.IBQAgenda.ExecSQL;
ModuloDatos.IBQAgenda.transaction.commitretaining;
ShowMessage('Registro insertado con Exito');
End;
end;
Ya he hecho la modificación y nada sigue sin aparecer los datos en el grid.
Y lo siento Caral no entiendo lo que quieres decir.
Gracias.