Database change not recognized by ADO using Delphi and SQL Server

Question

I run a small db application with 2 TADOConnection to my SQL Server. The first connection is just for viewing purpose using ADOTable, Datasource and DBNavigator. The second connection is created at run time using the following code

aConnection:=TADOConnection.create(nil);

aTable:= TADOTable.create(nil);
aConnection.LoginPrompt := false;

.....
aTable.Edit;

aTable.Insert;

aTable.FieldByName(' ... ').AsInteger :=  .... ;

aTable.FieldByName(' .... ').AsString :=  ... ;

aTable.FieldByName(' .... ').AsString :=  ..... ;

aTable.Post;

aTable.active := false;

aConnection.connected :=false;

aTable.free;

aConnection.free;

If I insert records with this code I can't see the changed data if I press the Update Navigator button. I need to restart my application to see all my new inserted data. Why is the first dbconnection not recognizing the changes made my the second connection ?

Answer 1

Try this, if I rember correct there was an issue in older Delphi/Adoverions with refresh not working as expected while requery did fine.

procedure TForm2.DBNavigator1Click(Sender: TObject; Button: TNavigateBtn);
begin
  if Button = nbRefresh then
  BEGIN
    if Assigned(TDBNavigator(Sender).DataSource) then
      if Assigned(TDBNavigator(Sender).DataSource.DataSet) then
        if TDBNavigator(Sender).DataSource.DataSet is TCustomAdoDataset then
          TADODataSet(TDBNavigator(Sender).DataSource.DataSet).Requery;
  END;
end;