Visual Basic Access Elle Bağlantı Nasıl Yapılır?

Bu blog içeriğimizde sizlerin ödevlerinizde yardımcı olabilecek bir Visual Basic örnek uygulaması gerçekleştireceğiniz. Visual Basic.Net veya vb.net de doğrudan el ile gerçekleştirebileceğimiz access bağlantısı seçenekleri bulunmaktadır. Bugün bu içerikte bunun hakkında sizleri bildilendirerek yönlendireceğiz

VB.Net Access Bağlama Ana Görüntü

Yapılacaklar

1-BindingSource Eklenecek

2-dataset Eklenecek(binding datasource)

3-Tabloadepter eklenecek(bindingsoure member)

4-Veri Tabanı Belgelerimde olacak

VB.Net Access Bağlama Ana Görüntü Kodları

Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'TODO: This line of code loads data into the 'MetcenDataSet.Tablo1' table. You can move, or remove it, as needed.

Me.Tablo1TableAdapter.Fill(Me.MetcenDataSet.Tablo1)

End Sub

Private Sub KayıtToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KayıtToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

End Sub

Private Sub ÇıkışToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ÇıkışToolStripMenuItem.Click

End

End Sub

Private Sub AramaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AramaToolStripMenuItem.Click

Form3.MdiParent = Me

Form3.Show()

End Sub

Private Sub EkranToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EkranToolStripMenuItem.Click

Form6.MdiParent = Me

Form6.Show()

End Sub

Private Sub DüzeltmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DüzeltmeToolStripMenuItem.Click

Form4.MdiParent = Me

Form4.Show()

End Sub

Private Sub SilmeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SilmeToolStripMenuItem.Click

Form5.MdiParent = Me

Form5.Show()

End Sub

End Class

VB.Net Access Bağlama Kayıt Formu Görüntüsü

Yukarıda bulunan Adı Soyadı, Numarası, Vize ve Final alanları Textbox ile oluşturulmuştur. Bölümü seçeneği ise Combobox ile oluşturulmuştur. Cinsiyet seçeneği ise Radiobuttonlar iler oluşturulmuştur. Temizle butonu tüm içeriklerin temizlenmesini sağlar. Çıkış butonu ise bu formun kapatılmasını sağlar.

VB.Net Access Bağlama Kayıt Formu Kodları

Public Class Form2

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

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

temizle()

End Sub

Sub temizle()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

ComboBox1.Text = ""

RadioButton1.Checked = True

End Sub

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

Dim a As String

If RadioButton1.Checked = True Then

a = "Erkek"

Else

a = "Bayan"

End If

Form1.MetcenDataSet.Tablo1.AddTablo1Row(TextBox1.Text, TextBox2.Text, a, ComboBox1.Text, TextBox3.Text, TextBox4.Text)

Form1.Tablo1TableAdapter.Update(Form1.MetcenDataSet)

temizle()

End Sub

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

End Class

VB.Net Access Bağlama Kayıt Arama Görüntüsü

Yukarıdaki formda bulunan tüm seçeneklere gerekli olan bilgileri girerek buralardan sorgulama gerçekleştiririz. Girdiğimiz verileri access veri tabanımız üzerinden kontrol ederek varsa bu bilgileri doğrudan ekrana getiririz. Access ile arama gerçekleştirmenin yanı sıra temizleme ve çıkış butonlarıda burada yer almaktadır.

VB.Net Access Bağlama Kayıt Arama Kodları

Public Class Form3

Sub temizle()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

ComboBox1.Text = ""

RadioButton1.Checked = True

End Sub

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

temizle()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

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

Dim i As Long

Dim dt As New DataSet

dt = Form1.MetcenDataSet

Dim dr As DataRow

Dim count As Long

count = dt.Tables("tablo1").Rows.Count

'MessageBox.Show("Açıklama ", "SAKARYA BÖTE ")

For i = 0 To count - 1

dr = dt.Tables("tablo1").Rows(i)

If TextBox1.Text = dr(Trim("adsoy")).ToString() Then

' MessageBox.Show(dr("ad").ToString())

TextBox2.Text = dr("numa").ToString()

TextBox3.Text = dr("vize").ToString()

TextBox4.Text = dr("Final").ToString()

ComboBox1.Text = dr("bol").ToString()

If dr("cins").ToString = "Erkek" Then

RadioButton1.Checked = True

Else

RadioButton2.Checked = True

End If

Next i

End Sub

End Class

VB.Net Access Bağlama Düzeltme Görüntüsü

Yukarıdaki ekran görüntüsünde de görüldüğü üzere ilk olarak bir kullanıcının sahip olduğu bilgileri arayarak bunu ekranda gösteriyoruz. Bu sayede kullanıcının bütün bilgilerini görüntülüyoruz. Bu işlemin ardından Düzelt butonu içerisindeki kodlarımız çalışarak değişikliklerimizi access veri tabanı üzerinde kayıt ediyoruz. Bunun tanı sıra temizle ve çıkış butonları da yine bu form arayüzünde de bulunmaktadır.

VB.Net Access Bağlama Düzeltme Kodları

Public Class Form4

Dim w As Long

Sub temizle()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

ComboBox1.Text = ""

RadioButton1.Checked = True

End Sub

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

temizle()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim i As Long

Dim dt As New DataSet

dt = Form1.MetcenDataSet

Dim dr As DataRow

Dim count As Long

count = dt.Tables("tablo1").Rows.Count

'MessageBox.Show("Açıklama ", "SAKARYA BÖTE ")

For i = 0 To count - 1

dr = dt.Tables("tablo1").Rows(i)

If TextBox1.Text = dr(Trim("adsoy")).ToString() Then

w = i

TextBox2.Text = dr("numa").ToString()

TextBox3.Text = dr("vize").ToString()

TextBox4.Text = dr("Final").ToString()

ComboBox1.Text = dr("bol").ToString()

If dr("cins").ToString = "Erkek" Then

RadioButton1.Checked = True

Else

RadioButton2.Checked = True

End If

Next i

End Sub

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

Dim a As String

'MessageBox.Show(w)

If RadioButton1.Checked = True Then

a = "Erkek"

Else

a = "Bayan"

End If

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("adsoy") = TextBox1.Text

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("numa") = TextBox2.Text

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("cins") = a

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("bol") = ComboBox1.Text

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("vize") = TextBox3.Text

Form1.MetcenDataSet.Tables("tablo1").Rows(w)("final") = TextBox4.Text

Form1.Tablo1TableAdapter.Update(Form1.MetcenDataSet)

temizle()

End Sub

End Class

VB.Net Access Bağlama Silme Görüntüsü

Yukarıdaki form üzerinde access veri tabanı üzerinden bir kullanıcının bilgilerini silmek için oluşturulmuş Form5 isimli formumuzu görebilirsiniz. Bu formda ilk olarak access veri tabanı üzerinden arama gerçekleştiririz. Ardından arama sonucumuz ilgili kutucuklara doldurulur. Görüntülediğimiz bilgiler doğrultusunda Sil butonuna tıklayarak ilgili kullanıcının silinmesini sağlayabiliriz. Diğer form alanlarında da olduğu gibi Temizle ve Çıkış butonları bu form alanında da bulunmaktadır.

VB.Net Access Bağlama Silme Kodları

Public Class Form5

Dim w As Long

Sub temizle()

TextBox1.Text = ""

TextBox2.Text = ""

TextBox3.Text = ""

TextBox4.Text = ""

ComboBox1.Text = ""

RadioButton1.Checked = True

End Sub

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

temizle()

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

Me.Close()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

Dim i As Long

Dim dt As New DataSet

dt = Form1.MetcenDataSet

Dim dr As DataRow

Dim count As Long

count = dt.Tables("tablo1").Rows.Count

'MessageBox.Show("Açıklama ", "SAKARYA BÖTE ")

For i = 0 To count - 1

dr = dt.Tables("tablo1").Rows(i)

If TextBox1.Text = dr(Trim("adsoy")).ToString() Then

w = i

TextBox2.Text = dr("numa").ToString()

TextBox3.Text = dr("vize").ToString()

TextBox4.Text = dr("Final").ToString()

ComboBox1.Text = dr("bol").ToString()

If dr("cins").ToString = "Erkek" Then

RadioButton1.Checked = True

Else

RadioButton2.Checked = True

End If

Next i

End Sub

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

Form1.MetcenDataSet.Tables("tablo1").Rows(w).Delete()

Form1.Tablo1TableAdapter.Update(Form1.MetcenDataSet)

temizle()

End Sub

End Class

VB.Net Access Bağlama Listeleme Görüntüsü

Yukarıdaki ekran görüntüsünde doğrudan veri tabanımızda bulunan tüm kullanıcı bilgilerini listediğimiz alan bulunmaktadır. Bu sayfa form6 açılır açılmaz düzenlenerek ekrana getirilen bir sayfadır. Diğer sayfalarda bulunan Temizle ve Çıkış butonu burada bulunmamaktadır. Arzu ederseniz bu butonları da buraya ekleyerek farklı bir uygulama gerçekleştirebilirsiniz.

VB.Net Access Bağlama Listeleme Kodları

Public Class Form6

Private Sub Form6_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

Dim c As New OleDb.OleDbConnection

c.ConnectionString = "Provider=Microsoft.Jet.OLedb.4.0;data source=data.mdb"

Dim adap As New OleDb.OleDbDataAdapter

Dim dats As New DataSet

c.Open()

adap = New OleDb.OleDbDataAdapter("select * from data", c)

adap.Fill(dats, "data")

Dim yenitablo As New DataTable

dats.Tables.Add(yenitablo)

BindingSource1.DataSource = dats

BindingSource1.DataMember = dats.Tables(0).TableName

DataGrid1.DataSource = BindingSource1

End Sub

End Class

Blogspot Bloglarının Yedeği Nasıl Alınır

Blogspot kullanan arkadaşlar bazen kendi sitelerine verilerini aktarmak veya Wordpress’e verileri taşımakta zorluklar yaşamaktadırlar. Bu konuda sizlere görsel olarak hazırladığım içeriği aktaracağım. Bu şekilde aldığınız yedeği isterseniz Wordpress isterseniz doğrudan kendi sitenizin veri tabanına aktarabilirsiniz.
Video Özet
Yukarı bu işleri yaptığım bir video var izleyebilirsiniz veya doğrudan aşağıdaki işlem adımlarını izleyerek sizde doğrudan yapabilirsiniz. Adım 1: Blogger.com’a giriş yapmalıyız. Adım 2: Aşağıdaki görseldeki alana geliniz. Bu alandan “İçeriği Yedekle” butonuna tıklayınız. Adım 3: Aşağıdaki pencere açılacaktır. Burada da sadece “Bilgisayarınıza kaydedin” butonuna tıklayacaksınız. Ardından tüm veriler bilgisayarınıza inecektir. Adım 4: Şimdi tüm içeriği yedeklediniz. Bu yedeği eğer farklı bir blogger sitesine aktarmak istiyorsanız Adım 2’deki karşımıza çıkan “İçeriği İçe Aktar” ile aktabilirsiniz. Bunların yanı sıra belirli aralıklar ile içeriklerinizin yedeklerini al…

Devamı

Programlama Hocam

Bu Blogda Ara

Abone Ol!