Birçok Table yi tek Grid ekranda birleştirme.

[ozcank]

Arkadaşlar Merhaba;
Delphi 7 Ve SQL2005 Kullanıyorum

TBLCASABIT
TBLCAHAR
TBLSTSABIT
TBLSTHAR Bu table leri tek bir Grid ekranda nasıl birleştirebilirim? Yardımcı olurmusunuz?

[orhancc]

TQuery ile join edip gride bağlayabilirsin.

[ozcank]

orhancc kardeşim örnek varmı ? Atabilirmisin?

[ozcank]

Arkadaşlar ekran görüntüsünü ekte gönderiyorum yardım edermisiniz?

[ozcank]

orhancc kardeşim konuyu biraz daha acabilirmisin? rica etsem.

[ozcank]

Arkadaşlar bu şekilde yapabildim yardımcı olurmusunuz?

Kod: Tümünü seç

SELECT TBLCAHAR.CARI_KOD, CARI_ISIM, TARIH, TBLCAHAR.VADE_TARIHI, 
BELGE_NO, ACIKLAMA, BORC, ALACAK,BORC -ALACAK AS BAKIYE, 
CASE HAREKET_TURU WHEN 'A' THEN 'DEVIR' WHEN 'B' THEN 'FATURA' WHEN 'C' THEN 'IADE_FAT' WHEN 'D' THEN 'KASA'
WHEN 'E' THEN 'MUS_SENET' WHEN 'F' THEN 'BORC_SENET' WHEN 'G' THEN 'MUS_CEK' WHEN 'H' THEN 'BORC_CEK'
WHEN 'I' THEN 'PROTES_SEN' WHEN 'J' THEN 'KARSILIKSIZ_CEK' WHEN 'K' THEN 'DEKONT' WHEN 'L' THEN 'MUHTELIF' ELSE '' END AS BELGE_TIPI, TBLCAHAR.PLASIYER_KODU,

TBLSTHAR.STOK_KODU, STOK_ADI, STHAR_GCMIK AS MIKTAR, STHAR_NF AS NET_FIYAT, STHAR_BF AS BRUT_FIYAT, STHAR_BF - STHAR_NF AS ISK_TUTAR, STHAR_ACIKLAMA, STHAR_SATISK * 100000 AS ISK1_ORAN, STHAR_SATISK2 AS ISK2_ORAN, STHAR_GCMIK * STHAR_NF AS TUTAR
FROM TBLCAHAR

 INNER JOIN TBLCASABIT ON (TBLCASABIT.CARI_KOD = TBLCAHAR.CARI_KOD)
LEFT OUTER JOIN TBLSTHAR ON (TBLSTHAR.FISNO = TBLCAHAR.BELGE_NO AND TBLSTHAR.STHAR_TARIH = TBLCAHAR.TARIH AND TBLSTHAR.STHAR_ACIKLAMA = TBLCAHAR.CARI_KOD)
LEFT OUTER JOIN TBLSTSABIT ON (TBLSTSABIT.STOK_KODU= TBLSTHAR.STOK_KODU)

[yusuf simsek]

sorguyu yazmışsın zaten... AdoDataSet ie MsSql vt bağlantı kurarak sorguyu çalıştırabilir, datasoruce ile de gridde gösterebilirsin... sorun yaşadığın konu tam olarak nedir?

[ozcank]

Burda CARI_KOD ve CARI ISIM mükerrer dönüyor sorunum tek cari altında hareketleri yapmak.

[ozcank]

Rapor aldığımda hareketler kadar cari kod ve isim de tekrar ediyor ben sadece şunu yapmak istiyorum cari kod ve isim 1 kere yazacak hareketlerini alta sıradan dökecek.

[dabaddah]

bunun için master-detail yapı oluşturman lazım

[ozcank]

Master-detail dışında tek grid ekranda nasıl birleştirebilirim?

[ozcank]

Bu sorguyu birleştiremedim?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
begin
ARapor.Close;
ARapor.sql.Clear;
ARapor.SQL.Add('select DISTINCT CARI_ISIM from TBLCASABIT WHERE TBLCASABIT.CARI_KOD='''+edit1.text+'''');
ARapor.SQL.Add('select TBLCAHAR.ACIKLAMA,TBLSTHAR.STOK_KODU,TBLSTHAR.FISNO,TBLSTHAR.STHAR_ACIKLAMA,TBLSTSABIT.STOK_ADI from TBLCAHAR,TBLSTHAR,TBLSTSABIT');
ARapor.open;
end;

[conari]

TBLCAhar ile TBLSThar ı birleştirmişsiniz, fakat bu yapıda tekrarlanır kayıtlar.
Şunu yapabilirsiniz. UNION ALL ile iki select ayrı select cümlesi çekin.bunu view olarak kaydedin.
Gridde viewi select edin, sıralamayı tblcahar.tarih,fisno,tblsthar.tarih,fisno olarak yaptırabilirsin.
örnek,
select TBLCAHAR.CARI_KOD AS KOD, CARI_ISIM AS ISIM, TARIH AS FTTARIH, BELGE_NO AS NO ....
UNION ALL
select STOK_KODU AS KOD, TBLSTSABIT.STOK_ADI AS ISIM, STHAR_TARIH, AS FTTARIH, FISNO, AS NO...

ORDER BY DA. KOD,FTTARIH,FISNO

[ozcank]

Conari kardeşim bu şekilde yaptım ama bi hata veriyor bi bakabilirmisin?

Kod: Tümünü seç

select TBLCASABIT.CARI_KOD,TBLCASABIT.CARI_ISIM FROM tblcasabit WHERE CARI_KOD='000108'
UNION ALL
select TBLCAHAR.CARI_KOD,TBLCAHAR.ACIKLAMA,TBLCAHAR.BELGE_NO FROM TBLCAHAR WHERE CARI_KOD='000108'  
UNION ALL
SELECT TBLSTHAR.STOK_KODU,TBLSTHAR.FISNO,TBLSTHAR.STHAR_ACIKLAMA from  TBLSTHAR,TBLCAHAR WHERE TBLSTHAR.STHAR_CARIKOD='000108' AND TBLSTHAR.FISNO=TBLCAHAR.BELGE_NO
ORDER BY TBLCASABIT.CARI_KOD

Msg 205, Level 16, State 1, Line 1
All queries combined using a UNION, INTERSECT or EXCEPT operator must have an equal number of expressions in their target lists.

[conari]

cümlen doğru sonucu verirmi bakmıyorum ona ama field adları farklı olduğu için veri döndürmez. AS ile isim vermelisin fieldlara, yani biri carikod diğeri stokkodu ikisinide aynı ismi vermelisiniz.ayrıca select ettiğin field sayılarıda aynı değil: