Merhaba arkadaşlar programlama öğrenmek için her zaman yeni örnekler denemelisiniz. Bunun için bugün sizlere Vb.Net ile Türkçe-İngilizce Sözlük Programı örneğini aktaracağız. Veri tabanı bağlantısı nasıl yapılır? İngilizce-Türkçe sözlük nasıl yapılır? Vb.Net ile veri tabanı bağlantılı Türkçe-İngilizce Sözlük Programı nasıl yapılır? Gibi sorularınızın cevabını bu içerikte bulabilirsiniz.
Programımıza ilk önce veri tabanını hazırlayarak başlıyoruz. Veri tabanını bağlaman önce daha önceden hazırladığımız WindowsFormsApplication adındaki klasörün içindeki bin klasörüne giriyoruz. Sonradan da Debug adlı klasör içine girip MS accesste oluşturduğumuz veritabanı dosyasını yukarıdaki gibi oluşturuyoruz. Sonraki adım olarak projemizi açıyoruz. Toolbox da Data altında bulunan OledbAdapter,OledbConnection,Dataview ve DataGrid kontrollerini ekliyoruz. Bunu basit olarak mause sağ tık Choose İtems olarak da yapabiliriz. Adı geçen kontrolleri böylece daha hızlı eklemiş oluruz. Bir sonraki adım olarak OledbAdapter çift tık yaparak veri tabanı bağlama işlemine başlarız. Gelen pencereye New Connection diyerek devam ediyoruz.
Yeni gelen pencereden Data Source diyin Change butonuna basıyoruz. Gelen ekranda other seçiyor ve ilerliyoruz. OLE DB Provider’ın altında bir liste açılıyor Microsoft Jet 4.0 OLE DB Provider seçiyoruz. Sonra Data Links’e tıklıyoruz ve 1 veritabanını seçiyoruz. Daha önceden oluşturduğumuz dosyayı seçtikten sonra bağlantıyı sına diyerek bağlantının çalışıp çalışmadığını anlıyoruz.Test connection succeeded iletisi gözükten sonra tamam diyip devam ediyoruz. İlerledikten sonra gelen Query Builder butonuna basarız. Gelecek tablo da veritabanın da oluşturduğumuz tablolar karşımıza gelecektir. Kullanacağımız tabloları seçip ekliyoruz. Execute Query butonunu kullanarak tablolardaki verileri görüntülüyoruz. Ondan sonra tekrardan ToolBox a geliriz. Eklediğimiz Dataviewe çift tıklarız ve formumuzun altına eklemiş oluruz. Formun altına eklenen oledbAdapte sağ tık yaparak Generate Dataset butonuna tıklarız. Son olarak ise formumuzun altında bulunan dataview i seçip properties penceresinden Table Özelliğine tıklatıp Dataset11’in altında bulunan tablo ve tablolarımızı seçeriz.
Kullanılması Gerekenler
Kod Alanı
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
OleDbDataAdapter1.Fill(DataSet11, "kelimeler")
Me.AcceptButton = btnBul
End Sub
Private Sub btnBul_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnBul.Click
Dim ara As String
Dim kayitci As Integer
TextBox1.Focus() 'imleç textbox1'e konumlansın
If RadioButton1.Checked = True Then 'Radiobuton1 seçili ise
ara = TextBox1.Text 'textbox1'e yazılanı ara değikenine ata
DataView1.Sort = "kelime" 'dataviewdeki kayıtları kelime alanına göre sırala
kayitci = DataView1.Find(ara) ' ara değiişkenindeki kelimeyi dataview'de ara ve kayıt nosunu kayitci değişkenine ata
Dim akayit As DataRowView
If (kayitci <> -1) Then 'kayitci değişkeni -1 den farklıysa yani veritabanında varsa
akayit = DataView1(kayitci) 'akayit içine datavievdeki kayıtci satırını ata
Label4.Text = akayit("kelime").ToString() 'label4'e kelime alanındaki kaydı yaz
Label5.Text = akayit("anlami").ToString() 'label5'e kelime alanındaki kaydı yaz
Else
MessageBox.Show("Kayıt bulunamadı ... ") 'değilse ekrana bulunamadı mesajını göster
End If
End If
If RadioButton2.Checked = True Then 'üstte yazılan açıklamalar aşağıdakiler için aynıdır
Label2.Text = "İngilizce Kelime"
Label3.Text = "Türkçe Anlamı"
ara = TextBox1.Text
DataView1.Sort = "anlami"
kayitci = DataView1.Find(ara)
Dim akayit As DataRowView
If (kayitci <> -1) Then
akayit = DataView1(kayitci)
Label4.Text = akayit("anlami").ToString()
Label5.Text = akayit("kelime").ToString()
Else
MessageBox.Show("Kayıt bulunamadı ... ")
End If
End If
End Sub
End Class