Veritabanlı (Access) şampiyonluk Anketi(progressBar ile) VB.NET

Veritabanlı (Access) şampiyonluk Anketi(progressBar ile) VB.NET

[code lang=”vbnet”]Imports System.Data.OleDb
Public Class Form1
Dim bag As New OleDbConnection("Provider=Microsoft.Jet.Oledb.4.0;Data Source=data.mdb")
Dim kmt As New OleDbCommand
Dim adtr As OleDbDataAdapter
Dim dtst As New DataSet
Dim oku As OleDbDataReader
Dim toplam As Integer
Sub yaz()
bag.Open()
kmt.Connection = bag
kmt.CommandText = "Select *From takimlar"
oku = kmt.ExecuteReader()
While oku.Read()
label13.Text = oku(0).ToString() ‘veritabanının 1. colon değerini yani fener alanını label13’e yaz
label14.Text = oku(1).ToString() ‘Altakiler yukarısı ile aynı
label15.Text = oku(2).ToString()
label16.Text = oku(3).ToString()
label17.Text = oku(4).ToString()
label18.Text = oku(5).ToString()
End While
Try
toplam = Val(label13.Text) + Val(label14.Text) + Val(label15.Text) + Val(label16.Text) + Val(label17.Text) + Val(label18.Text)
label7.Text = "% " & Math.Round(((100 * Val(label13.Text)) / toplam), 1) ‘Yüzde sonucunu bir virgül gösterecek şekilde yuvarlıyoruz
label8.Text = "% " & Math.Round(((100 * Val(label14.Text)) / toplam), 1) ‘diğerleri yukarıdaki açıklama ile aynı
label9.Text = "% " & Math.Round(((100 * Val(label15.Text)) / toplam), 1)
label10.Text = "% " & Math.Round(((100 * Val(label16.Text)) / toplam), 1)
label11.Text = "% " & Math.Round(((100 * Val(label17.Text)) / toplam), 1)
label12.Text = "% " & Math.Round(((100 * Val(label18.Text)) / toplam), 1)
progressBar1.Value = (((100 * label13.Text) / toplam)) ‘Yüzde olarak oy sayısına göre barların eninin değerlerini atıyorum
progressBar2.Value = (((100 * label14.Text) / toplam)) ‘diğerleri yukarıdaki ile aynı
progressBar3.Value = (((100 * label15.Text) / toplam))
progressBar4.Value = (((100 * label16.Text) / toplam))
progressBar5.Value = (((100 * label17.Text) / toplam))
progressBar6.Value = (((100 * label18.Text) / toplam))
Catch ex As Exception
MsgBox("Veritabanı bağlantısı sağlanamadı !")
End Try
bag.Close()
oku.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
groupBox2.Visible = False ‘group2’nin gözükmemesini sağlıyoruz
Me.AcceptButton = button1 ‘Entere bastığımızda buton1’in aktif olmasını sağlıyoruz
yaz()
End Sub
Private Sub button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button1.Click
If radioButton1.Checked = True Then ‘radio1 seçili ise
bag.Open() ‘veritabanını aç
kmt.Connection = bag ‘komutların bağlantı yapacağı veritabanı belirtiliyor
kmt.CommandText = "UPDATE takimlar SET fener=fener+1" ‘veritabanımızdaki takimlar tablosundaki fener alanının değerini 1 artıyoruz.
kmt.ExecuteNonQuery() ‘sorgumuzu çalıştırıyoruz
kmt.Dispose() ‘Komut kullanımını kapatıyoruz
bag.Close() ‘veritabanımızı kapatıyoruz
End If
If radioButton2.Checked = True Then ‘radio2 seçili ise
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE takimlar SET galata=galata+1"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
End If
If radioButton3.Checked = True Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE takimlar SET besik=besik+1"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
End If
If radioButton4.Checked = True Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE takimlar SET trabzon=trabzon+1"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
End If
If radioButton5.Checked = True Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE takimlar SET bursa=bursa+1"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
End If
If radioButton6.Checked = True Then
bag.Open()
kmt.Connection = bag
kmt.CommandText = "UPDATE takimlar SET diger=diger+1"
kmt.ExecuteNonQuery()
kmt.Dispose()
bag.Close()
End If
yaz()
End Sub
Private Sub linkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles linkLabel1.LinkClicked
groupBox1.Visible = True ‘group1’nin gözükmesini sağlıyoruz
groupBox2.Visible = False ‘group2’nin gözükmemesini sağlıyoruz
End Sub
Private Sub button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles button2.Click
groupBox2.Visible = True ‘group2’nin gözükmesini sağlıyoruz
groupBox1.Visible = False ‘group1’nin gözükmemesini sağlıyoruz
End Sub
End Class[/code]

Projeyi İNDİR