Order By Kullanımı hakkında.

Question

Merhaba Arkadaşlar,

Veri tabanımdaki verileri istediğim şekilde sorgulayabiliyorum.

 

Sub KayitAra()

 

        Dim Sql As String = ""

        If TextPersonelAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where AdSoyAd LIKE @ADSOYAD INTERSECT "

        If TextSirketUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SirketUnvan LIKE @SirketUnvan INTERSECT "

 

 If Sql.LastIndexOf("INTERSECT") > 0 Then Sql = Sql.Remove(Sql.LastIndexOf("INTERSECT"))

 

        CmdKayitAra = New SqlCommand

        CmdKayitAra.Connection = Con

        CmdKayitAra.CommandText() = Sql

 

        CmdKayitAra.Parameters.AddWithValue("@ADSOYAD", "%" + TextPersonelAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@SirketUnvan", "%" + TextSirketUnvanAra.Text + "%")

------------------

'Yukarıdaki sorguyu gerçekleştirirken de verilerimi belirlediğim kriterlere göre sıralamak istedim (aşağıdaki gibi) başarılı oldum fakat aşağıdaki gibi yaptığım zaman çok kriterli sorgu görevini yitiriyor. Yani verileri sorgularken textbox lardan sadece bir tanesini dikkate alıyor. Örneğin; TextPersonelAra.Text'i dikkate alıyor. diğer textbox ları dikkate almıyor.

  Dim Sql As String = ""

        If TextPersonelAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where AdSoyAd LIKE @ADSOYAD ORDER BY Durum,Tamamlanan ASC INTERSECT "

        If TextSirketUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SirketUnvan LIKE @SirketUnvan ORDER BY Durum,Tamamlanan ASC INTERSECT "

 

 

 

 CmdKayitAra = New SqlCommand

        CmdKayitAra.Connection = Con

        CmdKayitAra.CommandText() = Sql

 

        CmdKayitAra.Parameters.AddWithValue("@ADSOYAD", "%" + TextPersonelAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@SirketUnvan", "%" + TextSirketUnvanAra.Text + "%")

 

 

 

 

Konu hakkında yardımlarınızı rica eder iyi akşamlar dilerim.

 

 

Answer 1

Order BY yapısını her sorguya uygulamayın, çıkan sonuca(kesişim kümesine) uygulayın. Aşağıdaki örneği inceleyin;

select ad, soyad, meslek from (
select ad, soyad, meslek from Personel where ad like '%A%'
INTERSECT
select ad, soyad, meslek from Personel where soyad like '%C%'
) s
ORDER BY  soyad, ad

 Not: Intersect ile kesişim kümesi alınan sorgulara alias vermeyi unutmayın, vermezseniz çalışmayacaktır. Ben bu örnekte s verdim

 

---

while(true)
 Console.WriteLine("AmonRa");

---

onay.yalciner[at]hotmail[dot]com

---

www.club-bravo.com

Answer 2

Önay Bey Merhaba,

Yazdıklarını denedim fakat yapamadım.

Daha önce sizin yardımcı olduğunuz çok kriterli sorgulamamda order by ile sıralama yapmak istiyorum.

Ben kayıt arama formunda hangi textbox lara değer girersem gireyim order by ile sıralama yapabilmek istiyorum.

Kayıt arama formumun resmi aşağıdaki link te.

http://cid-a3ca9c7a87cd619b.office.live.com/browse.aspx/.Documents?uc=1

 

Kayıt ara butonumun kodları aşağıdakiler.

 

Sub KayitAra()

 

        Dim Sql As String = ""

        If TextPersonelAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where AdSoyAd LIKE @ADSOYAD INTERSECT "

        If TextSirketUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SirketUnvan LIKE @SirketUnvan INTERSECT "

        If TextIsUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where IsUnvan LIKE @IsUnvan INTERSECT "

        If TextSehirAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SehirAdi LIKE @SehirAdi INTERSECT "

        If TextIlceAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where IlceAdi LIKE @IlceAdi INTERSECT "

        If TextGorevAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where GorevAd LIKE @GOREVAD INTERSECT "

        If ComboOncelikAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where Oncelik LIKE @ONCELIK INTERSECT "

        If ComboDurumAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where Durum LIKE @DURUM INTERSECT "

        If DtBasTarihAra.Checked = True Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where BaslTarih >= @BASLTARIH INTERSECT "

        If DtBitTarihAra.Checked = True Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where BitTarih <= @BITTARIH INTERSECT "

 

 

        If Sql.LastIndexOf("INTERSECT") > 0 Then Sql = Sql.Remove(Sql.LastIndexOf("INTERSECT"))

 

        CmdKayitAra = New SqlCommand

        CmdKayitAra.Connection = Con

        CmdKayitAra.CommandText() = Sql

 

        CmdKayitAra.Parameters.AddWithValue("@ADSOYAD", "%" + TextPersonelAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@SirketUnvan", "%" + TextSirketUnvanAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@IsUnvan", "%" + TextIsUnvanAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@SehirAdi", "%" + TextSehirAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@IlceAdi", "%" + TextIlceAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@GOREVAD", "%" + TextGorevAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@ONCELIK", "%" + ComboOncelikAra.Text + "%")

        CmdKayitAra.Parameters.AddWithValue("@DURUM", "%" + ComboDurumAra.Text + "%")

        CmdKayitAra.Parameters.Add("@BASLTARIH", SqlDbType.Date).Value = DtBasTarihAra.Value.ToString("dd-MM-yyyy")

        CmdKayitAra.Parameters.Add("@BITTARIH", SqlDbType.Date).Value = DtBitTarihAra.Value.ToString("dd-MM-yyyy")

 

Anladığım kadarı ile en son sorguya yani kesişim kümesine uyguladım order by'ı ama bu sefer sorgu yu çalıştıramadım.

( f DtBitTarihAra.Checked = True Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where BitTarih <= @BITTARIH Alias Order By Durum,Tamamlanan Asc INTERSECT "

Syg.

Answer 3

  Dim Sql As String = "SELECT * FROM ("

        If TextPersonelAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where AdSoyAd LIKE @ADSOYAD INTERSECT "

        If TextSirketUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SirketUnvan LIKE @SirketUnvan INTERSECT "

        If TextIsUnvanAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where IsUnvan LIKE @IsUnvan INTERSECT "

        If TextSehirAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where SehirAdi LIKE @SehirAdi INTERSECT "

        If TextIlceAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where IlceAdi LIKE @IlceAdi INTERSECT "

        If TextGorevAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where GorevAd LIKE @GOREVAD INTERSECT "

        If ComboOncelikAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where Oncelik LIKE @ONCELIK INTERSECT "

        If ComboDurumAra.Text <> "" Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where Durum LIKE @DURUM INTERSECT "

        If DtBasTarihAra.Checked = True Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where BaslTarih >= @BASLTARIH INTERSECT "

        If DtBitTarihAra.Checked = True Then Sql += "Select Gorev.*,Personel.*,Sehirler.SehirAdi,Ilceler.IlceAdi from Gorev INNER JOIN Personel ON Gorev.PersonelID=Personel.PersonelID INNER JOIN Sehirler ON Personel.SehirID=Sehirler.SehirID INNER JOIN Ilceler ON Personel.IlceID=Ilceler.IlceID Where BitTarih <= @BITTARIH INTERSECT "

 

 

        If Sql.LastIndexOf("INTERSECT") > 0 Then Sql = Sql.Remove(Sql.LastIndexOf("INTERSECT"))

        Sql += ") s ORDER BY ADSOYAD"

 

Bu şekilde bir denermisin...

---

while(true)
 Console.WriteLine("AmonRa");

---

onay.yalciner[at]hotmail[dot]com

---

www.club-bravo.com

Answer 4

Merhaba Önay Bey,

   Adap = New SqlDataAdapter(CmdKayitAra)

            Dt = New DataTable

            Adap.Fill(Dt)   'Bu kısım sarı renk oldu ve bu hatayı verdi ( The column 'PersonelID' was specified multiple times for 's'. )

            DataGridView1.DataSource = Dt

 

Answer 5

Burada bir eleştiri yapmak istiyorum. Tablo ve alan adlarınızı belirlerken size kolaylık sağlayacak bir usüle uymanızda fayda var. Gelişi güzel isimler vermek bu tarz sonuçlar doğurur. Aliaslar vererek durumu düzeltirim ama bu geçici çözüm olacaktır. 

Burdaki sorun birden fazla tabloda PersonelID isimli bir alanın olmasından kaynaklanıyor. sorgulardaki GÖREV.* yerine, GÖREV.AD, GÖREV.GörevID vs yazarsanız düzelecek gibi görünüyor

Tablo ve alan isimleri usulüne gelince ben aşağıdaki gibi kullanıyorum. Küçük/Büyük harf e kadar;

Görevler
---------
görev_id
görev_adı

Personel
----------
personel_id
personel_adsoyad
personel_ilçe_id
personel_vs vs vs.

PersonelGörev
----------------
personelgörev_id
personelgörev_personel_id
personelgörev_görev_id


yukarıdaki gibi isimler veriecek olursa hiçbir alan adı ikinci kez kullanılmaz. 

---

while(true)
 Console.WriteLine("AmonRa");

---

onay.yalciner[at]hotmail[dot]com

---

www.club-bravo.com

Answer 6

Önay Bey Merhaba,

Tablo larımdaki alan isimlerimi dediğiniz gibi düzeltip sonucu burada paylaşıcam.

Yardımınız için teşekkür ederim. 

Answer 7

Önay Bey Merhaba,

Dediğiniz gibi tablolarımdaki alan isimlerini düzeltince oldu.

Yardımınıza çok teşekkür ederim.

İyi Akşamlar,