tabel birleştirme

[andrea]

aynı programın veritabanı, 2 ayrı makinada çalışıp 2 ayrı data tutmuş. Ben bu dataları nasıl tek tbale haline getiririm.

[mussimsek]

2 taloya da bağlantı yapıp, kodla kopyalama yabilirsin.

Kod: Tümünü seç

Table1.First;
while not Table1.Eof do
begin
Table2.Append;
Table2.FieldByName('AD').AsString := Table1.FieldByName('AD').AsString;
....
Table2.Post;
Table1.Next;
end;

Kolay gelsin.

[andrea]

yanlış anlattım sanırım,
hazırladığım program(cık) 4 ayrı makinada çalışyor. Makinalar birbirlerinden bağımsız.
Kayıtları biraraya toplamak için *.dbf aynı bilgisayara taşıyıp ne yapmalıyım ?

[MicroChip]

Tamam işte adminim örnek kod bile yazmış

ikinci tablodan okuyacan birinci tabloya kaydedicen hepsi bu kadar.
peki veritabanın nedir yazmamışsın ki.
manuel olarak da yapabilirsin...


Saygılar...

[bgoktas]

tableni excelde açabiliyorsan birleştir. tekrar tablede topla

[Karinca]

2 taloya da bağlantı yapıp, kodla kopyalama yabilirsin.

Kod: Tümünü seç

Table1.First;
while not Table1.Eof do
begin
Table2.Append;
Table2.FieldByName('AD').AsString := Table1.FieldByName('AD').AsString;
....
Table2.Post;
Table1.Next;
end;

Kolay gelsin.

MErhaba.

tşk ler Mustafa Hocam kod için.

Ama Table1.Next dedikten sonra yine alanları işaretleyerek tekrar birdaha post yapıyorum ama hep birinci kaydı kopyalıyo.
Başka birşey mi yapmak gerekiyo acaba?



Selamlar...

[rsimsek]

Bu kod Table1 deki tüm kayıtları baştan başlayıp Table1.Next ile tablonun son kayıtına kadar Table2 adlı tabloya ekler..

Tabi ..

Kod: Tümünü seç

Table2.FieldByName('AD').AsString := Table1.FieldByName('AD').AsString; 

kısmını her alan için yazman lazım..

[Karinca]

Bu kod Table1 deki tüm kayıtları baştan başlayıp Table1.Next ile tablonun son kayıtına kadar Table2 adlı tabloya ekler..

Tabi ..

Kod: Tümünü seç

Table2.FieldByName('AD').AsString := Table1.FieldByName('AD').AsString; 

kısmını her alan için yazman lazım..

Hocam Deniyorum sadece ilk kaydı kopyalıyo. Sonrakilerde çıt yok

İlgilenen Arkadaşlar içinde : Sonuna yani end; den önce Abort; Yazmazsanız kitliyo. (Yoksa Ramazan hocam bundan mı:))



Selamlar...

[rsimsek]

DBGrid de kayıtları görebiliyor musun? İndeksle ilgili bir sorun olabilir... Yani bir halde ilk kayıtta dosya sonuna gitmiş oluyor.. Yada Table1 in veya bağlı DataSource un eventlarında bir işlem yapıyor olabilirsin

[Karinca]

DBGrid de kayıtları görebiliyor musun? İndeksle ilgili bir sorun olabilir... Yani bir halde ilk kayıtta dosya sonuna gitmiş oluyor.. Yada Table1 in veya bağlı DataSource un eventlarında bir işlem yapıyor olabilirsin

Hepsini Yenile Component panel den indirmiştim.
Neyse Bakalım biraz daha.
Tşk. Kolay Gelsin...


Selamlar...

[Karinca]

Kod: Tümünü seç

 if ibtable2.RecordCount = ibtable1.RecordCount then begin ShowMessage('Kopyalama Bitti'); button1.Enabled := False;  Abort end;
  else
  ibtable2.Append;
  ibtable2.FieldByName('AA').AsString := ibtable1.fieldbyname('AA').AsString;
  ibtable2.FieldByName('BB').AsString := ibtable1.fieldbyname('BB').AsString;
  ibtable2.FieldByName('CC').AsString := ibtable1.fieldbyname('CC').AsString;
  ibtable2.Post;
  ibtable1.Next;
 end;

En son olarak Böyle yaptım. Tabi deneme olarak.

2 tane kaydım var Ama işe yaramıyo. Neden olabilir ki?
Veya başka ne türlü yapabilirim?



Selamlar...

[rsimsek]

Bu kodu

Kod: Tümünü seç

IBTable1.First;
While not IBTable1.EOF do 
begin
...
end;

bloğu içine yazarsan çalışmaması için başka sebep kalmıyor.

[cemarik]

Bu kodu

Kod: Tümünü seç

IBTable1.First;
While not IBTable1.EOF do 
begin
...
end;

bloğu içine yazarsan çalışmaması için başka sebep kalmıyor.

hocam next i unutmuşsunuz

Kod: Tümünü seç

    With IBTable1 do
    begin   
       First; 
       While not EOF do 
       begin
         ...
         ...
         Next;
       end;
    end;

[vedatkaba]

Kod: Tümünü seç

if ibtable2.RecordCount = ibtable1.RecordCount then begin ShowMessage

bence sorun burda.

Table bu şekilde bulunan kayıt sayısının sağlıklı olmadığını hepimiz biliyoruz.bunu yerine

Kod: Tümünü seç

select  count(*)  as sayi from tablo

bence bunu yada

Kod: Tümünü seç

fetcall 

dı galiba bunu kullanmakl lazım.Çünkü ibtable tüm kayıtları bir kerede çekmez diye biliyorum ve o yüzden sadece bri kayıt kopyalayıp bitiriyor.Kolay gelsin.