ComboBox ve Datetimepicker den dbgrid'e ekleme

[Hotkey]

Merhaba dostlar comboBox da seçilen elemanı dbgrid e nasıl eklerim? Bir de Datetimepicker da seçilen tarihi dbgrid e aktarmam gerek? şimdiden teşekkürler...

[Battosai]

DBGrid e değil veritabanına yazcaksın verini.DBGrid zaten yaptığın değişiklikleri gösterecektir....

[Hotkey]

DBGrid e değil veritabanına yazcaksın verini.DBGrid zaten yaptığın değişiklikleri gösterecektir....

haklısın ustam veritabanına kaydetmek için;
combobox lardan seçim yapıp kaydet dediğim zaman hata alıyorum. kodum aşağıda;

adotable3.post;

[ikutluay]

bu kod dbaware componentlerde gorduklerini yazar. 2 şansın var.

1. dbcombobox kullan.
2.

Kod: Tümünü seç

adotable1.fieldbyname('alanın adı').asstring:=comboboxadin.text;

3. statik alan yaptıysan

Kod: Tümünü seç

adotable1alanınadı.asstring:=comboboxadin.text;

[Hotkey]

bu kod dbaware componentlerde gorduklerini yazar. 2 şansın var.

1. dbcombobox kullan.
2.

Kod: Tümünü seç

adotable1.fieldbyname('alanın adı').asstring:=comboboxadin.text;

3. statik alan yaptıysan

Kod: Tümünü seç

adotable1alanınadı.asstring:=comboboxadin.text;

Aynı hatayı alıyorum ustam;Ben yapmak istediğimi daha açık anlatayım;

*Forma 2 adet dbcombobox ekledim,
*dbcombobox1'i adotable1 e bağladım
*dbcombobox2'i adotable2 e bağladım
*ve formda 1 adet dbgrid bileşenim var bu da adotable3 e bağlı

yapmak istediğim;
dbcombobox1'i kullanarak adotable1 den firma adını;
dbcombobox2'i kullanarak adotable2 den banka adını;
datetimepicker aracılığıylada tarih seçerek;

kaydet butonu aracılığıyla seçilen değerleri adotable3 e kaydedecem doğal olarak dbgrid de gösterecem;

kodum aşağıda;

procedure Tf_dekgiris.BitBtn1Click(Sender: TObject);
begin
adotable1.Fieldbyname('Firma_Adi').asstring:=dbcombobox1.Text;
adotable2.FieldByName('Banka_Adi').asstring:=dbcombobox2.Text;
adotable3.Post;
end;

aldığım hata;

[ikutluay]

gecenin bu vakti ayaktayım. sanırım neskayfeyi(!) azaltmalıyım.

hocam bir dataseti kodla değiştirmek için önce edite almalısın.
mesajın anlamı. açıkçası bu konuda helpte destan gibide bir yardım var.

ben mantığı şöyle görüyorum. dbcomboboxlar yardımı ile 2 datasetten bilgi seçip bunalrı 3. bir tabloya yazacaksın. bu durumda comboboxların itemine gitmene gerek yok doğrudan db alanlarını kullanabilirsin. kayıt ekleme içinde elle append vermelisin.

Kod: Tümünü seç

procedure Tf_dekgiris.BitBtn1Click(Sender: TObject);
begin
adotable3.append; // bu olmazsa hata alırsın
adotable3.Fieldbyname('Firma_Adi').asstring:=Adotable1.Fieldbyname('Firma_Adi').asstring;
adotable3.FieldByName('Banka_Adi').asstring:=adotable2.FieldByName('Banka_Adi').asstring;
adotable3.Post;
end; 

[/code]

[ikutluay]

ilk iki tabloyada eklemek ve 3.kayıda bu ekleneleri yazmak istersen table 1 ve 2 yide edit metodu ile düzenleme durumuna geçirmeli ve sonra değerleri atatyo tekrar post etmelisin.