Veritabanı İşlemleri
Bu makalemizde Access veritabanımızdaki bilgileri comboboxta seçtiğimiz kriterlere göre listbox ta gösterimini sağlıyacağız. Bu örnekte veritabanımızı C:\bahadirsa.mdb de oluşturduk...Bahadirsa
Aşağıdaki şekilleri inceleyin.
Şekil 1
Şekil 1
Forma yazılacak kodlar:
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim baglan As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\bahadirsa.mdb;")
‘Veritabanımıza bağlanıldı.
Dim adp As New OleDb.OleDbDataAdapter("Select * From Bilgiler", baglan)
‘Data Adapter oluşturuldu.
Dim ds As New DataSet ‘ data set oluşturuldu.
adp.Fill(ds) ‘bilgiler fill yöntemiyle adaptere getirildi.
Dim dr As OleDb.OleDbDataReader
Dim cmd As OleDb.OleDbCommand = New OleDb.OleDbCommand("SELECT * FROM Bilgiler", baglan)
baglan.Open()
dr = cmd.ExecuteReader
While dr.Read()
If cmb1.Text = "" Then
MsgBox("Seçim Yapınız", MsgBoxStyle.OkOnly, "Bahadirsa")
Exit Sub
End If
If cmb1.SelectedIndex = 0 Then
ListBox1.Items.Add(dr.GetString(0) + " " + dr.GetString(1) + " " + dr.GetString(2) + " " + dr.GetString(3) + " " + dr.GetString(4) + " " + dr.GetString(5) + " " + dr.GetString(6) + " " + dr.GetString(7) + " ")
ElseIf cmb1.SelectedIndex = 1 Then
ListBox1.Items.Add(dr.GetString(1))
ElseIf cmb1.SelectedIndex = 2 Then
ListBox1.Items.Add(dr.GetString(2))
End If
End While
baglan.Close()
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
With cmb1.Items
.Add("Tüm Alanları Göster")
.Add("Sadece Ad Alanını Göster")
.Add("Sadece Soyad Alanını Göster")
End With
With Me
.Text = "Veritabanı...Bahadirsa"
.MaximizeBox = False
.Size = New System.Drawing.Size(279, 169)
.Location = New Point(250, 180)
End With
End Sub
End Class
Bir sonraki makalede buluşmak üzere...Bahadirsa