Resimde gördüğümüz Personel tablosu üzerinden örnek vermeye çalışacağım.



SELECT

Select sorgusu tablodan veri çekmek için kullanılır.
Söz dizimi, SELECT KolonAdı FROM TabloAdı şeklindedir.
Örneğin;

Select * From Personel

dediğimizde tablodaki tüm kayıtlar listelenecektir.

Select Ad,Soyad From Personel

dersek sorgu sonucu tablodan, tüm kayıtların Ad ve Soyad alanları döner.

Operatör	Anlamı
=	Eşit
!=	Eşit değil(Farklı)
<>	Eşit değil(Farklı)
<	Küçük
>	Büyük
<=	Küçük veya Eşit
>=	Büyük veya Eşit
!>	Büyük değil(Küçük veya Eşit)
!<	Küçük değil(Büyük veya Eşit)
BETWEEN	Arasında
LIKE	Metin arama (% _ [] [^])
IN	Listede arama

Koşul 1	Koşul 2	AND	OR
False	False	False	False
False	True	False	True
True	False	False	True
True	True	True	True

Sonucu tersine çevirmek için ise NOT kullanılır.

Koşul	NOT
True	False
False	True

Örnek-1) Soyadı Sever olan kayıtları arayalım;

Select * From Personel Where Soyad = 'Sever'

Select * From Personel Where Soyad LIKE 'Sever'

Sonuç:




Sever yazımında görüldüğü  üzere,  String ifadeler  Tek Tırnak (') içerisinde kullanılır.




Örnek-2) Aktif çalışanları listeleyelim;

Select * From Personel Where Durum = 1

Select * From Personel Where Durum = 'TRUE'

Sonuç:





Örnek-3) 2010'dan sonra işe giren ve aktif çalışanları  listeleyelim;

Select * From Personel Where GirisTarihi > 2010 AND Durum = 1

Sonuç:





Örnek-4) 2010 ile 2015 arasında işe giren çalışanları  listeleyelim;

Select * From Personel Where GirisTarihi BETWEEN '2010' AND '2016'

Sonuç:





Örnek-5) 2010 ile 2015 aralığı harici işe giren çalışanları  listeleyelim;

Select * From Personel Where GirisTarihi NOT BETWEEN '2010' AND '2016'

Sonuç:

Select * From Personel 
Where PersNo IN (1521201017,1521201014,1521201097,1521201099)

Sonuç: 






Örnek-7) Soyadı Ta ile başlayan kayıtları listeleyelim;

Select * From Personel Where Soyad LIKE 'Ta%' 

Sonuç: 





Örnek-8) Soyadı K veya S ile başlayan kayıtları listeleyelim;

Select * From Personel Where Soyad LIKE '[KS]%' 

Sonuç: 





Örnek-9) Soyadı K veya T ile başlayan ve k ile biten kayıtları listeleyelim;

Select * From Personel Where Soyad LIKE '[TK]%' AND Soyad LIKE '%k' 

Sonuç: 





Örnek-10) Soyadı Ta ile başlayan ve 3.harfi b olmayan kayıtları listeleyelim;

Select * From Personel Where Soyad LIKE 'Ta[^b]%' 

Sonuç: 





Örnek-11) Adı 4 harfli olan kayıtları listeleyelim;

Select * From Personel Where Ad LIKE '____' 

Sonuç: 









Örnek-12) Aktif personel sayısını öğrenelim;

Select COUNT(*) From Personel Where Durum=1 

Select COUNT(*) AS PersSayi From Personel Where Durum=1

Sonuç: 






Örnek-13) Kaç farklı departman olduğunu öğrenelim;

Select Count(DISTINCT Departman) AS DepSayi From Personel Where Durum=1 

Sonuç: 










SUM : Bu fonksiyon, belirtilen alanların toplamını verir.

Select SUM(Maas) AS a_Maas From Personel Where Departman='a'

Sonuç:









MAX-MIN : Belirtilen veri grubunun en yüksek ve en düşük değerini bulmak için kullanılır.




Örnek-15) Tablomuzdaki en yüksek ve en düşük maaşa bakalım;

Select MAX(Maas) AS Max_Maas, MIN(Maas) AS Min_Maas From Personel 

Sonuç: 









AVG : Belirtilen aralıktaki verilerin ortalama değerini bulmak için kullanılır.




Örnek-16) b departmanında çalışan personellerin ortalama maaşına bakalım;

Select AVG(Maas) AS b_Ort From Personel Where Departman='b'

Sonuç: 

Select 
Durum, 
COUNT(*) AS Sayisi 
From Personel 
Where DogumTarihi >= '1990' 
GROUP BY Durum

Sonuç: 

Select 
Departman, 
COUNT(*) AS Sayisi, 
MAX(Maas) AS MaxMaas, 
AVG(Maas) AS OrtMaas, 
MIN(Maas) AS MinMaas 
From Personel 
Where Departman is NOT NULL 
Group By Departman 

Sonuç: 












Gruplanmış veriler üzerinde koşul belirtmek istediğimiz zaman ise HAVING yardımcı kelimesini kullanırız. Where'den farkı where sözcüğü belirtilen tüm satırlar için o koşulu doğrulamaya çalışır. Having sadece Group By ile birlikte kullanılır.

Select
Departman,
COUNT(*) AS Sayisi,
MAX(Maas) AS MaxMaas,
AVG(Maas) AS OrtMaas,
MIN(Maas) AS MinMaas
From Personel
Where Departman is NOT NULL
Group By Departman
Having Count(*) > 2

Sonuç: 

Imports System
Imports System.Text
Imports System.IO
Public Class FDosyalama
'3 adet string değişken barındıran PersonelDetay adında bir yapımız olduğunu düşünelim.
'Yapımızın bulunduğu .vb dosyası:
'Module Dosyalama
'    Public Structure PersonelDetay
'        Dim tc As String
'        Dim ad As String
'        Dim soyad As String
'    End Structure
'End Module
Dim Degerler(20) As PersonelDetay
'Örnekte 20 adet satır içeren bir dosyayı okuyacağımızı varsayıyorum.
'Dosya okuma işlemi için fonksiyonumuz aşağıda yer almaktadır. 
Private Sub DosyaOku()  
        'Application.StartupPath ile C:\Users\esra.turkmen\Documents\Projects\Dosyalama\bin\Debug
        'gibi projenin bulunduğu konumu belirten bir yol belirtilmektedir.
        'Buradaki if koşulu Ornek.txt isimde bir dosya varsa okuma işlemini başlat demek içindir.
        If Dir(Application.StartupPath & "\Ornek.txt", FileAttribute.Normal) <> "" Then     
            'Dosyayı okuma modu ile aç.
            FileOpen(1, Application.StartupPath & "\Ornek.txt", OpenMode.Input)
            For i As Integer = 0 To 19
                Try
                    'Input komutu ile ilk satırdan başlayarak toplam 20 değer 
                    'sırası ile değişkenlerimize atılır. 
                    Input(1, Degerler(i).tc)
                    Input(1, Degerler(i).ad)
                    Input(1, Degerler(i).soyad)

                Catch ex As Exception
                    'Hata durumunda değişkenler boş döndürülür. 
                    Degerler(i).tc = ""
                    Degerler(i).ad = ""
                    Degerler(i).soyad = ""
                End Try
            Next
            FileClose(1)
        Else
            'Dosya yoksa hata almamak için değişkenler boş döndürülür. 
            For i As Integer = 0 To 19
                Degerler(i).tc = ""
                Degerler(i).ad = ""
                Degerler(i).soyad = ""
            Next
        End If
    End Sub
'Dosya yazma işlemi için fonksiyonumuz aşağıda yer almaktadır. 
Private Sub DosyaYaz()
        Try
            'Ornek.txt adında bir dosya varsa ona yazar, yoksa oluşturur. 
            FileOpen(1, Application.StartupPath & "\Ornek.txt", OpenMode.Output)
            For i As Integer = 0 To 19
                WriteLine(1, Degerler(i).tc, Degerler(i).ad, Degerler(i).soyad)
            Next
            MessageBox.Show("Kaydedildi.")
        Catch
            MessageBox.Show("Kaydedilemedi.")
        Finally
            FileClose(1)
        End Try
    End Sub
End Class