Problemas con Firebird y DBGrid
 

Saludos, mi consulta es la siguiente.
Con la inserción de datos no tengo problemas, el problema es cuando regreso al formulario donde tengo el DBGrid, los datos que había han desaparecido.
Lo que quiero decir es que cada vez que hago una inserción en la base de datos, los datos del DBGrid desaparecen, he probado refrescando el DBgrid pero nada, sigue sin mostrarlo.
Este es el código, no se si he hecho algo mal, lo mio no es SQL.

Gracias.

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(:p1,:p2,:p3)';

       ModuloDatos.IBQAgenda.ParamByName('p1').AsInteger  := StrToInt(ECodigo.Text);
       ModuloDatos.IBQAgenda.ParamByName('p2').AsDate     := MEFechaA.Date;
       Modulodatos.IBQAgenda.ParamByName('p3').AsString    := EDescripcion.Text;

       ModuloDatos.IBQAgenda.ExecSQL;
       ModuloDatos.IBQAgenda.Open;
       ShowMessage('Registro insertado con Exito');
      End;
end;

Hola
Me parece que el dbgrid esta ligado a IBQAgenda, al hacer el insert cambias el texto del sql y pretendes ejecutarlo y luego abrirlo.
Si estas usando el mismo query tienes que re-escribir el sql.
Saludos

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 :)

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

Gracias voy a probar.

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.

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

Los parámetros llevan "dos puntos" delante.

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.

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

Efectivamente ecfisa tu código funciona perfectamente.

Muchas gracias a todos.