Ana Sayfa... Duyurularım... Ben Kimim ??? Projelerim... Tozlanmış dosyalar... İrtibata Geçin...
 
Vb.Net Uygulamalari 1 - f

Yazar :  Okan  Düzgün             Yayınlanma Tarihi :  22.07.2018 22:30:38

Vb.net uygulamalarindan veritabani ile baglanti kurulmasi ve veri okunmasi, veritabanina kayit eklenmesi, veritabanina kayit eklenmesi ve resim uygulamasi, veritabanina kayit ekleme, kayit düzeltme, kayit silme, ve dinamik combobox denetimi uygulamalarini visual studio programi kullanarak olusturacagiz.

26. Uygulamamiz



Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim baglanti_metni As String
    Dim baglanti As New OleDbConnection
    Dim sorgu As New OleDbCommand
    Dim dr As OleDbDataReader
    Private Sub btntamam_Click(sender As Object, e As EventArgs) Handles btntamam.Click

        baglanti_metni = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=|DataDirectory|\vt1.mdb; Persist Security info=False;"
        baglanti = New OleDbConnection(baglanti_metni)
        sorgu = New OleDbCommand("Select * From giris Where kuladi=@kuladi and sifre=@sifre", baglanti)
        sorgu.Parameters.AddWithValue("@kuladi", txtkuladi.Text)
        sorgu.Parameters.AddWithValue("@sifre", txtsifre.Text)
        baglanti.Open()
        dr = sorgu.ExecuteReader()
        If dr.HasRows = True Then
            dr.Read()
            MessageBox.Show("Merhaba" & " " & dr("kuladi") & " " & "hosgeldiniz", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            txtkuladi.Clear()
            txtsifre.Clear()
        Else
            MessageBox.Show("Sistemde kullanici bulunamadi.", "Uyari", MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
            txtkuladi.Clear()
            txtsifre.Clear()
        End If
        sorgu.Dispose()
        baglanti.Dispose()
        baglanti.Close()

    End Sub
End Class

27. Uygulamamiz



Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim baglanti As New OleDbConnection
    Dim baglanti_metni As String
    Dim sorgu As New OleDbCommand
    Private Sub btnkaydet_Click(sender As Object, e As EventArgs) Handles btnkaydet.Click

        If IsNumeric(txtadi.Text) = False Or IsNumeric(txtsoyadi.Text) = False Then
            baglanti_metni = "Provider=Microsoft.Jet.Oledb.4.0; Data Source=|DataDirectory|\vt1.mdb; Persist Security info=False;"
            baglanti = New OleDbConnection(baglanti_metni)
            sorgu = New OleDbCommand("insert into bilgiler(adi,soyadi,fakulte,bolum) Values(@adi,@soyadi,@fakulte,@bolum)", baglanti)
            sorgu.Parameters.AddWithValue("@adi", txtadi.Text)
            sorgu.Parameters.AddWithValue("@soyadi", txtsoyadi.Text)
            sorgu.Parameters.AddWithValue("@fakulte", ComboFak.SelectedItem)
            sorgu.Parameters.AddWithValue("@bolum", ComboBol.SelectedItem)
            baglanti.Open()
            sorgu.ExecuteNonQuery() 'Sql sorgusu burada çalistiriliyor
            sorgu.Dispose()
            baglanti.Dispose()
            baglanti.Close()
            MessageBox.Show("Bilgileriniz basariyla kaydedilmistir !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            txtadi.Clear()
            txtsoyadi.Clear()
            ComboFak.ResetText()
            ComboBol.ResetText()
            ComboFak.Text = "Birini Seçiniz"
            ComboBol.Text = "Birini Seçiniz"
            ComboBol.Enabled = False
        Else
            MessageBox.Show("Adiniz veya Soyadiniz rakam içeremez !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBol.Enabled = False
        ComboFak.Items.Add("Tip Fakültesi")
        ComboFak.Items.Add("Dis Hekimligi Fakültesi")
        ComboFak.Items.Add("Mühendislik Fakültesi")
        ComboFak.Items.Add("Egitim Fakültesi")
    End Sub

    Private Sub ComboFak_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboFak.SelectedIndexChanged
        If ComboFak.SelectedIndex = 0 Then
            ComboBol.Text = "Birini Seçiniz"
            ComboBol.Items.Clear()
            ComboBol.Enabled = True
            ComboBol.Items.Add("Beyin ve Sinir Cerrahisi")
            ComboBol.Items.Add("Deri ve Zührevi Hastaliklar")
            ComboBol.Items.Add("Genel Cerrahi Ana Bilim Dali")
            ComboBol.Items.Add("Göz Hastaliklari")
        ElseIf ComboFak.SelectedIndex = 1 Then
            ComboBol.Text = "Birini Seçiniz"
            ComboBol.Items.Clear()
            ComboBol.Enabled = True
            ComboBol.Items.Add("Agiz, Dis ve Çene Cerrahisi")
            ComboBol.Items.Add("Dis Hastaliklari ve Tedavisi")
            ComboBol.Items.Add("Ortodonti")
            ComboBol.Items.Add("Protetik Dis Tedavisi")
        ElseIf ComboFak.SelectedIndex = 2 Then
            ComboBol.Text = "Birini Seçiniz"
            ComboBol.Items.Clear()
            ComboBol.Enabled = True
            ComboBol.Items.Add("Makine Mühendisligi")
            ComboBol.Items.Add("Bilgisayar Mühendisligi")
            ComboBol.Items.Add("Elektrik ve Elektronik Mühendisligi")
            ComboBol.Items.Add("Mekatronik Mühendisligi")
        ElseIf ComboFak.SelectedIndex = 3 Then
            ComboBol.Text = "Birini Seçiniz"
            ComboBol.Items.Clear()
            ComboBol.Enabled = True
            ComboBol.Items.Add("Bilgisayar Ögretmenligi")
            ComboBol.Items.Add("Sinif Ögretmenligi")
            ComboBol.Items.Add("Okul Öncesi Ögretmenligi")
            ComboBol.Items.Add("Matematik Ögretmenligi")
        End If
    End Sub
End Class

28. Uygulamamiz



Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\sinema.mdb; Persist Security info=False;")
    Dim sorgu As New OleDbCommand
    Private Sub btnkaydet_Click(sender As Object, e As EventArgs) Handles btnkaydet.Click

        If txtfilmadi.Text = "" Or txtyonetmen.Text = "" Or txtyorum.Text = "" Or ComboYapim.SelectedIndex = -1 Or ComboSay.SelectedIndex = -1 Then
            ErrorProvider1.SetError(txtfilmadi, "Bos Geçilemez !")
            ErrorProvider1.SetError(txtyonetmen, "Bos Geçilemez !")
            ErrorProvider1.SetError(txtyorum, "Bos Geçilemez !")
            ErrorProvider1.SetError(ComboYapim, "Bos Geçilemez !")
            ErrorProvider1.SetError(ComboSay, "Bos Geçilemez !")
        Else
            sorgu = New OleDbCommand("insert into filmler(filmadi,yonetmeni,yapimyili,yildizsay,yorum) Values(@filmadi,@yonetmeni,@yapimyili,@yildizsay,@yorum)", baglanti)
            sorgu.Parameters.AddWithValue("@filmadi", txtfilmadi.Text)
            sorgu.Parameters.AddWithValue("@yonetmeni", txtyonetmen.Text)
            sorgu.Parameters.AddWithValue("@yapimyili", ComboYapim.SelectedItem)
            sorgu.Parameters.AddWithValue("@yildizsay", ComboSay.SelectedItem)
            sorgu.Parameters.AddWithValue("@yorum", txtyorum.Text)
            baglanti.Open()
            sorgu.ExecuteNonQuery()
            baglanti.Close()
            MessageBox.Show("Bilgileriniz Kaydedildi !", "Kayit Basarili", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            txtfilmadi.Clear()
            txtyonetmen.Clear()
            txtyorum.Clear()
            txtfilmadi.Focus()
            ComboSay.ResetText()
            ComboYapim.ResetText()
            ComboYapim.Text = "Birini Seçiniz"
            ComboSay.Text = "Birini Seçiniz"
        End If

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        For i = 1900 To 2018
            ComboYapim.Items.Add(i)
        Next
        For i = 1 To 5
            ComboSay.Items.Add(i)
        Next
    End Sub
End Class

29. Uygulamamiz



Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\sinema.mdb; Persist Security info=False;")
    Dim sorgu As New OleDbCommand
    Dim b1, b2, b3, b4, b5, yildiz As Byte

    Private Sub PictureBox3_Click(sender As Object, e As EventArgs) Handles PictureBox3.Click
        If b1 = 0 Then ' Eger ilk defa tiklandi ise
            PictureBox3.ImageLocation = "stardolu.png" ' Resim dosyasi ismi
            PictureBox3.Load() ' Resimi yükle
            b1 = 1
            yildiz = yildiz + 1 ' Her sari yildiz resimi için yildiz puanini bir arttir.
        Else ' Eger ikinci defa tiklandi ise;
            PictureBox3.ImageLocation = "starbos.png"
            PictureBox3.Load()
            b1 = 0
            yildiz = yildiz - 1
        End If
    End Sub

    Private Sub PictureBox4_Click(sender As Object, e As EventArgs) Handles PictureBox4.Click
        If b1 = 0 Then ' Eger ilk defa tiklandi ise
            PictureBox4.ImageLocation = "stardolu.png" ' Resim dosyasi ismi
            PictureBox4.Load() ' Resimi yükle
            b1 = 1
            yildiz = yildiz + 1 ' Her sari yildiz resimi için yildiz puanini bir arttir.
        Else ' Eger ikinci defa tiklandi ise;
            PictureBox4.ImageLocation = "starbos.png"
            PictureBox4.Load()
            b1 = 0
            yildiz = yildiz - 1
        End If
    End Sub

    Private Sub PictureBox5_Click(sender As Object, e As EventArgs) Handles PictureBox5.Click
        If b1 = 0 Then ' Eger ilk defa tiklandi ise
            PictureBox5.ImageLocation = "stardolu.png" ' Resim dosyasi ismi
            PictureBox5.Load() ' Resimi yükle
            b1 = 1
            yildiz = yildiz + 1 ' Her sari yildiz resimi için yildiz puanini bir arttir.
        Else ' Eger ikinci defa tiklandi ise;
            PictureBox5.ImageLocation = "starbos.png"
            PictureBox5.Load()
            b1 = 0
            yildiz = yildiz - 1
        End If
    End Sub

    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click
        If b1 = 0 Then ' Eger ilk defa tiklandi ise
            PictureBox2.ImageLocation = "stardolu.png" ' Resim dosyasi ismi
            PictureBox2.Load() ' Resimi yükle
            b1 = 1
            yildiz = yildiz + 1 ' Her sari yildiz resimi için yildiz puanini bir arttir.
        Else ' Eger ikinci defa tiklandi ise;
            PictureBox2.ImageLocation = "starbos.png"
            PictureBox2.Load()
            b1 = 0
            yildiz = yildiz - 1
        End If
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        End
    End Sub

    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click
        If b1 = 0 Then ' Eger ilk defa tiklandi ise
            PictureBox1.ImageLocation = "stardolu.png" ' Resim dosyasi ismi
            PictureBox1.Load() ' Resimi yükle
            b1 = 1
            yildiz = yildiz + 1 ' Her sari yildiz resimi için yildiz puanini bir arttir.
        Else ' Eger ikinci defa tiklandi ise;
            PictureBox1.ImageLocation = "starbos.png"
            PictureBox1.Load()
            b1 = 0
            yildiz = yildiz - 1
        End If
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        PictureBox1.ImageLocation = "starbos.png"
        PictureBox2.ImageLocation = "starbos.png"
        PictureBox3.ImageLocation = "starbos.png"
        PictureBox4.ImageLocation = "starbos.png"
        PictureBox5.ImageLocation = "starbos.png"
        For i = 1960 To 2018
            ComboYapimYili.Items.Add(i)
        Next
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If txtfilmadi.Text = "" Or txtyonetmen.Text = "" Or txtyorum.Text = "" Or ComboYapimYili.SelectedIndex = -1 Then
            ErrorProvider1.SetError(txtfilmadi, "Bos Geçilemez !")
            ErrorProvider1.SetError(txtyonetmen, "Bos Geçilemez !")
            ErrorProvider1.SetError(txtyorum, "Bos Geçilemez !")
            ErrorProvider1.SetError(ComboYapimYili, "Bos Geçilemez !")

        Else
            sorgu = New OleDbCommand("insert into filmler(filmadi,yonetmeni,yapimyili,yildizsay,yorum) values(@filmadi,@yonetmen,@yapimyili,@yildizsay,@yorum)", baglanti)
            sorgu.Parameters.AddWithValue("@filmadi", txtfilmadi.Text)
            sorgu.Parameters.AddWithValue("@yonetmen", txtyonetmen.Text)
            sorgu.Parameters.AddWithValue("@yapimyili", ComboYapimYili.SelectedItem)
            sorgu.Parameters.AddWithValue("@yildizsay", yildiz)
            sorgu.Parameters.AddWithValue("@yorum", txtyorum.Text)
            baglanti.Open()
            sorgu.ExecuteNonQuery()
            baglanti.Close()
            MessageBox.Show("Bilgileriniz basariyla kaydedildi !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            txtfilmadi.Clear()
            txtyonetmen.Clear()
            txtyorum.Clear()
            txtfilmadi.Focus()
            ComboYapimYili.ResetText()
            ComboYapimYili.Text = "Birini Seçiniz"

            b1 = 0
            b2 = 0
            b3 = 0
            b4 = 0
            b5 = 0
            yildiz = 0
        End If
    End Sub
End Class

30. Uygulamamiz


Form1 Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\meteor.mdb; Persist Security info=False;")
    Dim sorgu As New OleDbCommand
    Dim dr As OleDbDataReader
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        sorgu = New OleDbCommand("Select * from bolge", baglanti)
        baglanti.Open()
        dr = sorgu.ExecuteReader()
        While (dr.Read())
            ComboBolge.Items.Add(dr("bolge"))
        End While
        dr.Close()
        baglanti.Close()
        Comboil.Enabled = False
    End Sub

    Private Sub kaydet_Click(sender As Object, e As EventArgs) Handles kaydet.Click


        If ComboBolge.Text = "Birini Seçiniz" Then
            MessageBox.Show("Lütfen bölge seçimi yapiniz !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        ElseIf Comboil.Text = "Birini Seçiniz" Then
            MessageBox.Show("Lütfen il seçimi yapiniz !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Else

            sorgu = New OleDbCommand("Select tarih,il From anatablo Where tarih=@tarih and il=@il", baglanti)
            sorgu.Parameters.AddWithValue("@tarih", DateTimePicker1.Value.ToString("dd.MM.yyyy"))
            sorgu.Parameters.AddWithValue("@il", Comboil.SelectedItem.ToString())
            baglanti.Open()
            dr = sorgu.ExecuteReader()
            If dr.HasRows() = True Then
                MessageBox.Show("Sisteme" & " " & DateTimePicker1.Value.ToString("dd.MM.yyyy") & " " & "tarihi için" & " " & Comboil.Text & " " & "ili bilgi girisi yapilmis !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            Else
                dr.Close()
                Dim hava_durumu As String = Nothing
                Dim hava_durumu_kodu As Byte

                If RadioGünesli.Checked = True Then
                    hava_durumu_kodu = 1
                    hava_durumu = "Günesli"
                ElseIf RadioAzbulutlu.Checked = True Then
                    hava_durumu_kodu = 2
                    hava_durumu = "Az Bulutlu"
                ElseIf RadioBulutlu.Checked = True Then
                    hava_durumu_kodu = 3
                    hava_durumu = "Bulutlu"
                ElseIf RadioGokgurultulu.Checked = True Then
                    hava_durumu_kodu = 4
                    hava_durumu = "Gök Gürültülü ve Saganak Yagisli"
                ElseIf RadioKarlaKarisik.Checked = True Then
                    hava_durumu_kodu = 5
                    hava_durumu = "Karla Karisik Yagmurlu"
                ElseIf RadioKarYagisli.Checked = True Then
                    hava_durumu_kodu = 6
                    hava_durumu = "Kar Yagisli"
                ElseIf RadioParcaliBulutlu.Checked = True Then
                    hava_durumu_kodu = 7
                    hava_durumu = "Parçali Bulutlu"
                ElseIf RadioSaganakYagis.Checked = True Then
                    hava_durumu_kodu = 8
                    hava_durumu = "Saganak Yagisli"
                ElseIf RadioSisli.Checked = True Then
                    hava_durumu_kodu = 9
                    hava_durumu = "Sisli"
                ElseIf RadioYeryerYagmurlu.Checked = True Then
                    hava_durumu_kodu = 10
                    hava_durumu = "Yer Yer Yagmurlu"
                End If

                sorgu = New OleDbCommand("insert into anatablo(bolge,il,havadurumukodu,havadurumu,yorum,tarih) values(@bolge,@il,@havadurumkodu,@havadurumu,@yorum,@tarih)", baglanti)
                sorgu.Parameters.AddWithValue("@bolge", ComboBolge.SelectedItem)
                sorgu.Parameters.AddWithValue("@il", Comboil.SelectedItem)
                sorgu.Parameters.AddWithValue("@havadurumkodu", hava_durumu_kodu)
                sorgu.Parameters.AddWithValue("@havadurumu", hava_durumu)
                sorgu.Parameters.AddWithValue("@yorum", TextBox1.Text)
                sorgu.Parameters.AddWithValue("@tarih", DateTimePicker1.Value.ToString("dd.MM.yyyy"))
                sorgu.ExecuteNonQuery()
                baglanti.Close()
                MessageBox.Show("Bilgileriniz basariyla kaydedilmistir !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
                TextBox1.Clear()
                ComboBolge.Focus()
                ComboBolge.Items.Clear()
                Comboil.Items.Clear()
                ComboBolge.Text = "Birini Seçiniz"
                Comboil.Text = "Birini Seçiniz"
                Comboil.Enabled = False
            End If
        End If

    End Sub

    Private Sub ComboBolge_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBolge.SelectedIndexChanged
        Comboil.Enabled = True
        Comboil.Items.Clear()
        sorgu = New OleDbCommand("Select * From bolgeil Where bolgeid=@bolgeid", baglanti)
        sorgu.Parameters.AddWithValue("@bolge", ComboBolge.SelectedIndex)
        baglanti.Open()
        dr = sorgu.ExecuteReader()
        While (dr.Read())
            Comboil.Items.Add(dr("il"))
        End While
        dr.Close()
        baglanti.Close()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        Me.Close()
    End Sub
End Class

Form 2 Kodlarimiz;

Imports System.Data
Imports System.Data.OleDb
Public Class Form2

    Dim baglanti As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=|DataDirectory|\meteor.mdb; Persist Security info=False;")
    Dim sorgu As New OleDbCommand
    Dim dr As OleDbDataReader
    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        ComboBolge.Enabled = False
        Comboil.Enabled = False
        GroupBox1.Enabled = False
        txtyorum.Enabled = False
        BtnGuncelle.Enabled = False
        BtnSil.Enabled = False
    End Sub

    Private Sub kapat_Click(sender As Object, e As EventArgs) Handles kapat.Click
        Me.Close()
    End Sub

    Private Sub BtnAra_Click(sender As Object, e As EventArgs) Handles BtnAra.Click
        sorgu = New OleDbCommand("Select * From anatablo where tarih like '" & DateTimePicker1.Value.ToString("dd.MM.yyyy") & "'", baglanti)
        baglanti.Open()
        dr = sorgu.ExecuteReader()

        If dr.HasRows() = False Then
            MessageBox.Show("Bu bilgiyi içeren herhangi bir kayit bulunamadi !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Else
            While (dr.Read())
                If dr("havadurumukodu") = 1 Then
                    RadioGünesli.Checked = True
                ElseIf dr("havadurumukodu") = 2 Then
                    RadioAzbulutlu.Checked = True
                ElseIf dr("havadurumukodu") = 3 Then
                    RadioBulutlu.Checked = True
                ElseIf dr("havadurumukodu") = 4 Then
                    RadioGokgurultulu.Checked = True
                ElseIf dr("havadurumukodu") = 5 Then
                    RadioKarlaKarisik.Checked = True
                ElseIf dr("havadurumukodu") = 6 Then
                    RadioKarYagisli.Checked = True
                ElseIf dr("havadurumukodu") = 7 Then
                    RadioParcaliBulutlu.Checked = True
                ElseIf dr("havadurumukodu") = 8 Then
                    RadioSaganakYagis.Checked = True
                ElseIf dr("havadurumukodu") = 9 Then
                    RadioSisli.Checked = True
                ElseIf dr("havadurumukodu") = 10 Then
                    RadioYeryerYagmurlu.Checked = True
                End If
                GroupBox1.Enabled = True
                txtyorum.Enabled = True
                BtnGuncelle.Enabled = True
                BtnSil.Enabled = True
                ComboBolge.Text = dr("bolge")
                Comboil.Text = dr("il")
                txtyorum.Text = dr("yorum")
            End While
        End If
        dr.Close()
        baglanti.Close()

    End Sub

    Private Sub BtnGuncelle_Click(sender As Object, e As EventArgs) Handles BtnGuncelle.Click
        If ComboBolge.Text = "Birini Seçiniz" Then
            MessageBox.Show("Lütfen bölge seçimi yapiniz !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        ElseIf Comboil.Text = "Birini Seçiniz" Then
            MessageBox.Show("Lütfen il seçimi yapiniz !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        Else
            Dim hava_durumu As String = Nothing
            Dim hava_durumu_kodu As Byte

            If RadioGünesli.Checked = True Then
                hava_durumu_kodu = 1
                hava_durumu = "Günesli"
            ElseIf RadioAzbulutlu.Checked = True Then
                hava_durumu_kodu = 2
                hava_durumu = "Az Bulutlu"
            ElseIf RadioBulutlu.Checked = True Then
                hava_durumu_kodu = 3
                hava_durumu = "Bulutlu"
            ElseIf RadioGokgurultulu.Checked = True Then
                hava_durumu_kodu = 4
                hava_durumu = "Gök Gürültülü ve Saganak Yagisli"
            ElseIf RadioKarlaKarisik.Checked = True Then
                hava_durumu_kodu = 5
                hava_durumu = "Karla Karisik Yagmurlu"
            ElseIf RadioKarYagisli.Checked = True Then
                hava_durumu_kodu = 6
                hava_durumu = "Kar Yagisli"
            ElseIf RadioParcaliBulutlu.Checked = True Then
                hava_durumu_kodu = 7
                hava_durumu = "Parçali Bulutlu"
            ElseIf RadioSaganakYagis.Checked = True Then
                hava_durumu_kodu = 8
                hava_durumu = "Saganak Yagisli"
            ElseIf RadioSisli.Checked = True Then
                hava_durumu_kodu = 9
                hava_durumu = "Sisli"
            ElseIf RadioYeryerYagmurlu.Checked = True Then
                hava_durumu_kodu = 10
                hava_durumu = "Yer Yer Yagmurlu"
            End If

            sorgu = New OleDbCommand("Update anatablo set havadurumukodu=@havadurumkodu, havadurumu=@havadurumu, yorum=@yorum Where il=@il and tarih=@tarih", baglanti)
            sorgu.Parameters.AddWithValue("@havadurumkodu", hava_durumu_kodu)
            sorgu.Parameters.AddWithValue("@havadurumu", hava_durumu)
            sorgu.Parameters.AddWithValue("@yorum", txtyorum.Text)
            sorgu.Parameters.AddWithValue("@il", Comboil.Text)
            sorgu.Parameters.AddWithValue("@tarih", DateTimePicker1.Value.ToString("dd.MM.yyyy"))
            baglanti.Open()
            sorgu.ExecuteNonQuery()
            baglanti.Close()
            MessageBox.Show("Bilgileriniz basariyla güncellenmistir !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End If
    End Sub

    Private Sub BtnSil_Click(sender As Object, e As EventArgs) Handles BtnSil.Click
        If ComboBolge.Text <> "Birini Seçiniz" Then
            Dim sonuc As DialogResult
            sonuc = MessageBox.Show("Kayit siliniyor ! Islemi onayliyor musunuz ?", "Bilgilendirme", MessageBoxButtons.YesNo, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button2)

            If sonuc = DialogResult.Yes Then
                sorgu = New OleDbCommand("Delete From anatablo Where tarih=@tarih", baglanti)
                sorgu.Parameters.AddWithValue("@tarih", DateTimePicker1.Value.ToString("dd.MM.yyyy"))
                baglanti.Open()
                sorgu.ExecuteNonQuery()
                baglanti.Close()
                MessageBox.Show("Bilgiler veritabanindan silinmistir.", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            Else
                MessageBox.Show("Islem iptal edildi", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
            End If

            DateTimePicker1.Enabled = False
            BtnAra.Enabled = False
            BtnGuncelle.Enabled = False
            BtnSil.Enabled = False
            txtyorum.Enabled = False
            GroupBox1.Enabled = False
        Else
            MessageBox.Show("Lütfen arama sorgunuzu gerçeklestiriniz !", "Bilgilendirme", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1)
        End If


    End Sub
End Class

Form3 Kodlarimiz;

Public Class Form3
    Private Sub btngiris_Click(sender As Object, e As EventArgs) Handles btngiris.Click
        Dim Form1 As New Form1
        Form1.ShowDialog() ' Form1 dialog penceresini açar.
    End Sub

    Private Sub btnarama_Click(sender As Object, e As EventArgs) Handles btnarama.Click
        Dim Form2 As New Form2
        Form2.ShowDialog() ' Form2 dialog penceresini açar.
    End Sub

    Private Sub btnkapat_Click(sender As Object, e As EventArgs) Handles btnkapat.Click
        End ' Programi kapatir.
    End Sub
End Class

VeriTabani düzenimize bakacak olursak eger;

  



 

 
 Dosyaları indirmek ve yorumları görebilmek için lütfen kullanici girişi yapınız !!!  
 
 
 


 

 Son Güncelleme :  14.08.2018
  Design and Coding - Okan Düzgün 2011 - 2018 © Tüm Hakları Saklıdır.