Edit ile ilgili

[Armani]

Dataset.FieldByName('ALAN_ADI').AsString := 'Değer';

Hocam peki değer kısmına yine var olan bir değeri koymak istersek
mesela
Query1.Fieldbyname('xxxxx').AsString := Query1XXXXXX.value;
gibi

[husonet]

Evet yapabilirsiniz.

[Armani]

Malesef bu kod boş olarak getiriyor. anladıgım kadarı ile Dbf database de çalışıyor ama MDb de çalışmıyor galiba.

[mussimsek]

@Armani, çalışmıyor diğer birşey yok, aynı şekilde :

Dataset.FieldByName('ALAN_ADI').AsString := Query1.FieldByName('ALAN_ADI').AsString;


şeklinde atama yapabilirsin. Atadığın değer boş olmasın onu bir kontrol et. Değilse kodunu CODE tagını kullanarak gönder bir bakalım.

Kolay gelsin.

[Armani]

q1(Query1) de new recort a yazdım

Kod: Tümünü seç

dataset.FieldByName('Fixel_ID').AsString := Q1.FieldByName('Fixel_ID').AsString ;//burda dbgridde gördügümün aynısı olması lazım
q1.FieldByName('Product_ID').AsString := '1';
q1.FieldByName('Name').AsString := 'X';
q1.FieldByName('Manufacturer').AsString := '1';
q1.FieldByName('Category').AsString := '1';
q1.FieldByName('Horiz_Facings').AsString := '1';
q1.FieldByName('Height').AsString := '1';
q1.FieldByName('Width').AsString := '1';
q1.FieldByName('Depth').AsString := '1';
q1.FieldByName('SEG_YUK').AsString := '1';
q1.FieldByName('SEG_GEN').AsString := '1';
q1.FieldByName('SEG_DER').AsString := '1';
q1.FieldByName('UPC').AsString := '1';

amaç dbgridde değişik olan fixel_ID kısmında ne yazıyorsa new recort da aynısını ekleyerek oluşturması
diğer 1 lerde problem yok.
Benim aklıma bir şey daha geldi
veri XXX_X_X şeklinde .
veriden kaynaklanıyor olabilirmi.

[husonet]

Yeni kayıt eklediğin zaman Append; demeden önce bulunduğun alandaki bir değeri bir dğişkene ata va append dedikten sonra da değişkeni alana aktar. Problemin çözülür.

Kolay Gelsin...