ADOQuery1.Edit; sorunu

[forumsad]

arkadaşlar viritabanında ADOQuery1.Edit; yapamıyorum

Hizliupload.com

yukardaki örnekde


Başlangıç Kaydı

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin
ADOQuery1.Insert;
ADOQuery1.FieldByName('baslangic').AsString:=DateTimeToStr(Now);  //şu an atarihini ekle
ADOQuery1.FieldByName('data1').AsString:=Edit1.Text;
ADOQuery1.FieldByName('data2').AsString:=Edit2.Text;
ADOQuery1.Post;

end;

bu kod ile veritabanına ekleme yapabiliyorum

bir süre sonra bitiş kaydına tıklayıp 2'inci sıradaki kaydın bitiş tarihini saatini ve sonucunu aynı satıra yazmam lazım aynı satıra ekleme yapamadım
nasıl yapacağız
ADOQuery1.Fields.Fields[2].AsString:='deneme'; böyle bir şeyler buldum ama istediğim gibi değil
teşekkürler


bitiş butonu:
procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
ADOQuery1.Fields.Fields[2].AsString:='deneme';
ADOQuery1.FieldByName('bitis').AsString:=DateTimeToStr(Now); //şu an atarihini ekle
ADOQuery1.FieldByName('sonuc').AsString:='Tamam';
ADOQuery1.Post;
end;

[forumsad]

aşağıdaki şekilde çözdüm farklı yöntemler varsa bilği olması açısından paylaşılırsa sevinirim

Kod: Tümünü seç

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
AdoQuery1.RecNo:=2;
ADOQuery1.FieldByName('bitis').AsString:=DateTimeToStr(Now);  //şu an atarihini ekle
ADOQuery1.FieldByName('sonuc').AsString:='Tamam';
ADOQuery1.Post;
end;

[forumsad]

son hali
kayıt sırasını değişkene atıyorum daha sonra istediğim zaman değişkeni kullanarak tekrar ekleme yapabiliyorum

Kod: Tümünü seç

procedure TForm1.Button2Click(Sender: TObject);
begin

ADOQuery1.Insert;
ADOQuery1.FieldByName('baslangic').AsString:=DateTimeToStr(Now);  //şu an atarihini ekle
ADOQuery1.FieldByName('data1').AsString:=Edit1.Text;
ADOQuery1.FieldByName('data2').AsString:=Edit2.Text;
ADOQuery1.Post;
//ShowMessage(IntToStr(ADOQuery1.RecNo));
kayitID:=ADOQuery1.RecNo;  //aktif kayıt sırasını değişkene aktar
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
ADOQuery1.Edit;
AdoQuery1.RecNo:=kayitID;
ADOQuery1.FieldByName('bitis').AsString:=DateTimeToStr(Now);  //şu an atarihini ekle
ADOQuery1.FieldByName('sonuc').AsString:='Tamam';
ADOQuery1.Post;
end;