Skip to content

Instantly share code, notes, and snippets.

@canokay

canokay/vb-db-ornekler.md

Created April 24, 2019 10:37
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save canokay/a40299b02082a5b6e3b453e9e3294fcc to your computer and use it in GitHub Desktop.
Save canokay/a40299b02082a5b6e3b453e9e3294fcc to your computer and use it in GitHub Desktop.
Download ZIP
Raw
vb-db-ornekler.md

Visual Basic Veri Tabanı Örnekleri

ornek1

Imports System.Data.OleDb 'ekleyin
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        Dim a As String = "provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\User\Desktop\kitap.mdb"
        Dim b As String = "select * from KITAPSATIS"
        Dim c As New OleDbConnection(a)
        Dim d As New OleDbDataAdapter(b, c)
        Dim f As New DataTable()
        d.Fill(f)
        Dim yal As New DataSet()
        yal.Tables.Add(f)
        BindingSource1.DataSource = yal
        BindingSource1.DataMember = yal.Tables(0).TableName
        DataGridView1.DataSource = BindingSource1
        TextBox1.DataBindings.Add("text", BindingSource1, "kitapadi")
        DateTimePicker1.DataBindings.Add("text", BindingSource1, "alıs_tarihi")
        textbox2.databindings.add("text", BindingSource1, "adeti")
        textbox3.databindings.add("text", BindingSource1, "fiati")


    End Sub



End Class

ornek2

Imports System.Data.OleDb
Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim a As String = "provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\User\Desktop\kitap.mdb"
        Dim b As String = "select * from KITAPSATIS"
        Dim c As New OleDbConnection(a)
        Dim d As New OleDbDataAdapter(b, c)       
        Dim yal As New DataSet()
        d.Fill(yal, "gecici_tablo_adi")
        BindingSource1.DataSource = yal
        BindingSource1.DataMember = yal.Tables(0).TableName
        DataGridView1.DataSource = BindingSource1
        TextBox1.DataBindings.Add("text", BindingSource1, "kitapadi")
        DateTimePicker1.DataBindings.Add("text", BindingSource1, "alıs_tarihi")
        TextBox2.DataBindings.Add("text", BindingSource1, "adeti")
        TextBox3.DataBindings.Add("text", BindingSource1, "fiati")

    End Sub
End Class

ornek3

Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form

    Dim a As String = "provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\User\Desktop\kitap.mdb"
    Dim b As String = "select * from KITAPSATIS"
    Dim c As New OleDbConnection(a)
    Dim d As New OleDbDataAdapter(b, c)
    Dim yal As New DataSet()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load  
        d.Fill(yal, "gecisi_tablo_adi")
        BindingSource1.DataSource = yal
        BindingSource1.DataMember = yal.Tables(0).TableName
        DataGridView1.DataSource = BindingSource1
        TextBox1.DataBindings.Add("text", BindingSource1, "kitapadi")
        DateTimePicker1.DataBindings.Add("text", BindingSource1, "alıs_tarihi")
        TextBox2.DataBindings.Add("text", BindingSource1, "adeti")
        TextBox3.DataBindings.Add("text", BindingSource1, "fiati")


    End Sub
End Class

ornek4

Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim a As String = "provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\User\Desktop\kitap.mdb"
    Dim b As String = "select * from KITAPSATIS"
    Dim c As New OleDbConnection(a)
    Dim d As New OleDbDataAdapter(b, c)
    Dim yal As New DataSet()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        d.Fill(yal, "gecisi_tablo_adi")
        BindingSource1.DataSource = yal
        BindingSource1.DataMember = yal.Tables(0).TableName
        DataGridView1.DataSource = BindingSource1
        TextBox1.DataBindings.Add("text", BindingSource1, "kitapadi")
        DateTimePicker1.DataBindings.Add("text", BindingSource1, "alıs_tarihi")
        TextBox2.DataBindings.Add("text", BindingSource1, "adeti")
        TextBox3.DataBindings.Add("text", BindingSource1, "fiati")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles AddNew.Click
        BindingSource1.AddNew()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        BindingSource1.EndEdit() 'arayuzdeki değişikliklerti Dataset içindekitabloya kaydeder
        BindingSource1.AddNew() 'Not: AddNew komutunun birlikte kullanılması table üzerinde eklenenlerin hemen görüntülenmesine ve yeni alanında açılmasını sağlar.
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        BindingSource1.CancelEdit() 'arayuzdeki değişikliklerti Dataset içindekitabloya kaydetmeden 
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim numara As Integer
        numara = BindingSource1.Position 'aktif kayıt numarası
        BindingSource1.RemoveAt(numara) 'sil

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        BindingSource1.MovePrevious()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        BindingSource1.MoveNext()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        BindingSource1.MoveFirst()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        BindingSource1.MoveLast()
    End Sub
End Class

ornek5

Imports System.Data.OleDb
Public Class Form1
    Inherits System.Windows.Forms.Form
    Dim a As String = "provider=Microsoft.Jet.Oledb.4.0;Data Source=C:\Users\User\Desktop\kitap.mdb"
    Dim komut As New OleDbCommand
    Dim b As String = "select * from KITAPSATIS"
    Dim c As New OleDbConnection(a)
    Dim d As New OleDbDataAdapter(b, c)
    Dim yal As New DataSet()
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        d.Fill(yal, "gecisi_tablo_adi")
        BindingSource1.DataSource = yal
        BindingSource1.DataMember = yal.Tables(0).TableName
        DataGridView1.DataSource = BindingSource1
        TextBox1.DataBindings.Add("text", BindingSource1, "kitapadi")
        DateTimePicker1.DataBindings.Add("text", BindingSource1, "alıs_tarihi")
        TextBox2.DataBindings.Add("text", BindingSource1, "adeti")
        TextBox3.DataBindings.Add("text", BindingSource1, "fiati")
        DateTimePicker1.Format = DateTimePickerFormat.Short      
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles AddNew.Click
        BindingSource1.AddNew()
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        BindingSource1.EndEdit() 'arayuzdeki değişikliklerti Dataset içindekitabloya kaydeder
        BindingSource1.AddNew() 'Not: AddNew komutunun birlikte kullanılması table üzerinde eklenenlerin hemen görüntülenmesine ve yeni alanında açılmasını sağlar.
    End Sub

    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        BindingSource1.CancelEdit() 'arayuzdeki değişikliklerti Dataset içindekitabloya kaydetmeden 
    End Sub

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        Dim numara As Integer
        numara = BindingSource1.Position 'aktif kayıt numarası
        BindingSource1.RemoveAt(numara) 'sil

    End Sub

    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        BindingSource1.MovePrevious()
    End Sub

    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        BindingSource1.MoveNext()
    End Sub

    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
        BindingSource1.MoveFirst()
    End Sub

    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
        BindingSource1.MoveLast()
    End Sub
    Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
        c.Open()
        komut.Connection = c
        komut.CommandType = CommandType.Text
        If TextBox1.Text <> "" And DateTimePicker1.Text <> "" And TextBox2.Text <> "" And TextBox3.Text <> "" Then
            komut.CommandText = "insert into KITAPSATIS (kitapadi,alıs_tarihi,adeti,fiati) values ('" & TextBox1.Text & "','" & DateTimePicker1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
            komut.ExecuteNonQuery()
            MessageBox.Show("Kayıt Yapıldı..")
            End
        Else
            MessageBox.Show("Lütfen Boşlukları Doldurunuz")
        End If
        c.Close()

    End Sub

    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles Button9.Click
        c.Open()
        komut.Connection = c
        komut.CommandType = CommandType.Text
        komut.CommandText = "delete from KITAPSATIS where kitapadi='" & TextBox1.Text & "' "
        komut.ExecuteNonQuery()
        Dim Mesaj As DialogResult
        Mesaj = MessageBox.Show("Eminmisiniz", "kayıt sil", MessageBoxButtons.YesNoCancel)
        If (Mesaj = Windows.Forms.DialogResult.Yes) Then
            BindingSource1.RemoveCurrent() 'Aktif kayıt sil
            MessageBox.Show("kayıt Silindi")
        End If
        c.Close()

    End Sub

    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles Button10.Click

        c.Open()
        komut.Connection = c
        komut.CommandType = CommandType.Text
        komut.CommandText = "update  KITAPSATIS set  alıs_tarihi=' " + DateTimePicker1.Text + " ' ,"
adeti=' " + TextBox2.Text + " ' ,fiati=' " + TextBox3.Text + " '  where kitapadi=' " + TextBox1.Text + " '"
        komut.ExecuteNonQuery()
        MessageBox.Show("Kayıt Güncellendi.")
        c.Close()


    End Sub
End Class
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment