pogam içerisnde bi datamodul ve bu dm içerisinde bir adconnection ile adoquery ve dataset tanımlı. datasete adoquery gösteriliyor ve aağıdaki kod sonrasında update işlemi yaptığımda malesef dbgrid1 boş olarak geri dönüyo veekrandagözükmüyor ayrıca programdan çıkıp tekrar grdiğimde ise kaydın yapıldığını görüyorumbudurumda nerede hata yapıyor olabilirm ki databsee bir kayıt yapıldığında veya record değiştiğinde dbgrid karşımda refresh edilmihalde çıkabilsin?
bu arada datamodule de adoquery stringinde selct * frm marka dy komutum var ve query active duumda seçili.
procedure TAracTanimlamaForm.FormCreate(Sender: TObject);
begin
Dm.ADOQMarka.Open;
Dm.ADOQMarka.active:=True;
// BBTemizle.Click;
// DM1.ADOQMarka.Last;
DBGrid1.Columns[0].Width:=50;
DBGrid1.Columns[1].Width:=50;
DBGrid1.Columns[2].Width:=100;
end;
procedure TAracTanimlamaForm.BBKaydetClick(Sender: TObject);
begin
with DM.ADOQMarka do
begin
close;
sql.Clear;
sql.Text:='UPDATE Marka SET MARKAKODU=:MKODU, MARKA=:MARK, RESIM=:RES WHERE KAYITID=:KAYNO';
Parameters.ParamByName('MKODU').Value:=EMarkaKodu.Text;
Parameters.ParamByName('MARK').Value:=EMarkaKodu.Text;
Parameters.ParamByName('RES').Value:=EResim.Text;
Parameters.ParamByName('KAYNO').Value:=EKayitNo.Text;
ExecSql;
end;
Application.MessageBox('Kayıt Yapıldı!!!','Çıkmak İçin OK Tuşuna Basınız!!!',MB_OKCANCEL);
// Dm.ADOQMarka.requery();
// Dm.ADOQMarka.Open;
// Dm.ADOQMarka.active:=True;
// dbgrid1.refresh;
end;