merhabalar
implementation
Uses AnaMenu, DM, Disiler;
{$R *.DFM}
procedure TVucutForm.Button2Click(Sender: TObject);
begin
DateTimePicker1.DateTime:=Now;
Edit1.Text:=DisilerForm.Edit12.Text;
end;
procedure TVucutForm.Button1Click(Sender: TObject);
begin
DM1.ADOOlayDetayTable.Append;
DM1.ADOOlayDetayTable.FieldByName('OLAYTARIHI').AsString:=DateToStr(DateTimePicker1.Date);
DM1.ADOOlayDetayTable.FieldByName('KULAKNO').AsString:=Edit1.Text;
DM1.ADOOlayDetayTable.FieldByName('YORUM').AsString:=Memo1.Text;
DM1.ADOOlayDetayTable.FieldByName('AGIRLIKTIP').AsString:=ComboBox1.Text;
DM1.ADOOlayDetayTable.FieldByName('AGIRLIKDEG').AsString:=Edit2.Text;
DM1.ADOOlayDetayTable.FieldByName('RGROUPNO').AsInteger:=3;
DM1.ADOOlayDetayTable.Post;
DM1.ADOOlaylarTable.Append;
DM1.ADOOlaylarTable.FieldByName('KULAKNO').AsString:=Edit1.Text;
DM1.ADOOlaylarTable.FieldByName('OLAYTAR').AsString:=DateToStr(DateTimePicker1.Date);
DM1.ADOOlaylarTable.FieldByName('OLAYTURU').AsString:='Vücut Ağırlığı';
DM1.ADOOlaylarTable.FieldByName('ACIKLAMA').AsString:=Edit2.Text;
DM1.ADOOlaylarTable.FieldByName('RGROUPNO').AsInteger:=3;
DM1.ADOOlaylarTable.Post;
Application.MessageBox('Kayıt Yapıldı!!!','Çıkmak İçin OK Tuşuna Basınız!!!',MB_OKCANCEL);
Button2.Click;
end;
bu steplerde nerede hata yapıyorum button 2 güncelle buton 1 ise kaydet demesine rağmen kaydet dediğimde
Field 'KAYITNO' cannot be modified.
hatası veriyor oysa sql2000 serverde kayıtno alanını autoincrement bir alan olarak seçmiştim ve daha önce datamodule kullanmadan kayıt yapabiliyordu. nerede hata yapıyor olabilirim?
Field 'xxx' cannot be modified
Forum kuralları
Forum kurallarını okuyup, uyunuz!
Forum kurallarını okuyup, uyunuz!
Field 'xxx' cannot be modified
kayıtno alanına herhangi bir bilgi gondermiyorum yani o alana eşitlediğim bir şey yok ve bu arada tabloloar için activate i true yapıyorum fakat aynı hata yine geliyor