Problemas con Firebird y DBGrid

[Casimiro Notevi]

Sobra esta línea:

Código Delphi [-]
ModuloDatos.IBQAgenda.Open;

Y tendrás que confirmar la transacción, algo así como:

Código Delphi [-]
ModuloDatos.IBQAgenda.transaction.commitretaining;

Y recuerda poner un título más descriptivo a tus preguntas, gracias

[RoyTan]

Gracias a todos.
No he contestado antes porque me quedé sin linea.

Gracias voy a probar.

[RoyTan]

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.

[Casimiro Notevi]

Código Delphi [-]
ModuloDatos.IBQAgenda.SQL.Text := 'insert into AGENDA Values(:bb1,:bb2,:bb3)';

Los parámetros llevan "dos puntos" delante.

[ecfisa]

Hola RoyTan.

Seguramente estés utilizando el mismo TIBQuery para insertar y mostrar, probá de este modo:

Código Delphi [-]
procedure TF_AAgenda.BAnadirClick(Sender: TObject);
var
  SQLStrTmp: string;
begin
  if trim(ECodigo.Text)  = '' then
  Begin
    ShowMessage('El campo CODIGO no puede quedar vacío.');
    ECodigo.SetFocus;
  End
  else
  Begin
    (* Salvar valor consulta inicial *)
    SQLStrTmp:= ModuloDatos.IBQAgenda.SQL.TExt; 

    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;

    (* Restaurar valor consulta inicial *)
    ModuloDatos.IBQAgenda.Close;
    ModuloDatos.IBQAgenda.SQL.Text:= SQLStrTmp
    ModuloDatos.IBQAgenda.Open;

    ShowMessage('Registro insertado con Exito');
  End;
end;

Saludos.

[RoyTan]

Si efectivamente estoy utilizando el mismo query, y ahora al ejecutar el código me da este error "Empty SQL statement"

[RoyTan]

Efectivamente ecfisa tu código funciona perfectamente.

Muchas gracias a todos.