VB.Net Access Bağlama Ana Görüntü
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
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ü
VB.Net Access Bağlama Kayıt Formu Görüntüsü |
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ü |
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
End If
Next i
End Sub
End Class
VB.Net Access Bağlama Düzeltme Görüntüsü
VB.Net Access Bağlama Düzeltme Görüntüsü |
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
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ü
VB.Net Access Bağlama Silme Görüntüsü |
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
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ü
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
0 Yorumlar