ADO Güncelleme Sorunu

[osiso]

Arkadaşlar ekte gönderdiğim programda bir ado table var birde query var ikisi de aynı tabloya bağlı fakat adotable da yaptığım eklemeyi yada silmeyi herhangi bir kayıt değişikliğini adoquery nin bağlı olduğu dbgrid e değişiklik yansımıyor. Yardımcı olan arkadaşlara şimdiden teşekkür ederim.

[mrmarman]

Merhaba.

Projeni aşağıdaki şekilde kurgularsan değişiklikliği yansıtırsın.

Kod: Tümünü seç

procedure TForm1.DataSource1DataChange(Sender: TObject; Field: TField);
begin
  if NOT AdoQuery1.Active then Exit;
  AdoQuery1.Requery();
end;

Ayrıca örnek için gönderdiğinizin farkındayım ama örnek olarak dahi gönderseniz, ConnectionString'ini direkt AdoQuery veya AdoTable değil de bir AdoConnection nesnesinden verip de bahsi geçen AdoQuery ve AdoTable bağlantı stringi vermeden direk bu connection'u gösterirsen tablolar arasında zaman farklı kayıt/görüntüleme sorunları yaşamazsınız.

Kod: Tümünü seç

procedure TForm1.FormShow(Sender: TObject);
begin
  AdoConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source='+ExtractFilePath(Application.Exename) + 'ozkan.mdb;Persist Security Info=False';
  AdoConnection1.LoginPrompt      := False;
  AdoTable1.Connection := AdoConnection1;
  AdoQuery1.Connection := AdoConnection1;
  AdoQuery1.SQL.Text :=  'select * from osi';
  AdoQuery1.Active   := True;
  AdoTable1.Active   := True;
end;

[osiso]

başka bir çözümü yokmu?