Ver Mensaje Individual
  #1  
Antiguo 06-04-2012
Avatar de RoyTan
RoyTan RoyTan is offline
Miembro
 
Registrado: oct 2003
Ubicación: Mijas - Málaga
Posts: 121
Reputación: 21
RoyTan Va por buen camino
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(1,2,3)';

       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;
Responder Con Cita