ADOQuery1 ve DataSource1 kullanarak ilk tablomla iletişim kuruyorum
ADOQuery2 ve DataSource2 kullanarak ucretler tablomla iletişim kuruyorum
aşağıdaki kod ile ucretler tabloma eklediğim bilğiyi başka bir yerde geri çekmem lazım ama olmadı hata ne acaba
Kod: Tümünü seç
procedure TFrmMain.OyunFiyat1Click(Sender: TObject);
var
giris:string;
begin
//burda ekranda oyun fiyatını alıp ücretler tablosuna kaydedeceğiz
giris:=InputBox('Oyun Birim Fiyatı','Fiyat Giriniz','');
//oyun açılmadan önce veritabanı bilğilerinide kaydedelim
DMveriTabani.ADOQuery2.Edit;
DMveriTabani.ADOQuery2.FieldByName('Ucret').AsString:=giris;
DMveriTabani.ADOQuery2.FieldByName('UcretBirimi').AsString:='TL';
DMveriTabani.ADOQuery2.Post;
//*************************************************************************************
end;
//**********************************************************
çalıştıramadığım kod:
procedure dbOyunFiyatiniOku;
begin
//DMveriTabani.DataSource2.DataSet:=DMveriTabani.ADOQuery2;
//çalışma anında sorgulama yapabilmek için verileri data sete atarız
//FrmVeriTabani.DBGrid1.DataSource:=DMveriTabani.DataSource2;
DMveriTabani.ADOQuery2.Close;
DMveriTabani.ADOquery2.SQL.Clear;
DMveriTabani.ADOQuery2.SQL.Add('select * from ucretler where ID=1');
DMveriTabani.ADOQuery2.Open;
end;
burda ucretler tablosunda 1 nolu ücreti bir değişkene nasıl atarım
saygılarımla