Aşağıdaki vermiş olduğum kodlarda vb üzerinde ms acces veri tabanına veri girme girilen veriler sorgulama üzerinde değişiklik yapma ve kayıt silme işlemleri yapılmıştır.Aşağıda verdiğim ornek.rar dosyasını c:\ için açınız c:\ornek şeklinde kodları çalıştırabilirisiniz.
ornek.rar
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim conn As New OleDbConnection
Dim ids As Integer
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
conn.Open()
Dim sorgu As String
sorgu = “insert into veriler(adi,soyadi,adres,tel) values (‘” & (TextBox1.Text) & “‘,’” & (TextBox2.Text) & “‘ ,’” & (TextBox3.Text) & “‘ ,’” & (MaskedTextBox1.Text) & “‘)”
Dim kaydet As OleDbCommand = New OleDbCommand(sorgu, conn)
kaydet.ExecuteNonQuery()
MsgBox(“veriler yaydedilmiştir.”)
conn.Close()
TextBox1.Clear()
TextBox2.Clear()
TextBox3.Clear()
MaskedTextBox1.Clear()
End Sub
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
conn.ConnectionString = “provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\ornek\test.mdb”
Button3.Visible = False
Button4.Visible = False
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
ListBox1.Items.Clear()
ListBox2.Items.Clear()
ListBox3.Items.Clear()
ListBox4.Items.Clear()
ListBox5.Items.Clear()
Dim ara
Dim sorgu As String
ara = InputBox(“aranacak ismi giriniz”)
sorgu = “SELECT * FROM veriler WHERE (adi LIKE ‘” & ara & “‘ )”
Dim veriler As OleDbDataAdapter = New OleDbDataAdapter(sorgu, conn)
Dim veriset As New DataSet
veriler.Fill(veriset)
If veriset.Tables(0).Rows.Count <> 0 Then
Dim i As Integer
For i = 0 To veriset.Tables(0).Rows.Count – 1
ListBox5.Items.Add(veriset.Tables(0).Rows(i)(“id”))
ListBox1.Items.Add(veriset.Tables(0).Rows(i)(“adi”))
ListBox2.Items.Add(veriset.Tables(0).Rows(i)(“soyadi”))
ListBox3.Items.Add(veriset.Tables(0).Rows(i)(“adres”))
ListBox4.Items.Add(veriset.Tables(0).Rows(i)(“tel”))
Next
End If
End Sub
Private Sub ListBox1_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles ListBox1.DoubleClick
TextBox1.Text = ListBox1.SelectedItem
TextBox2.Text = ListBox2.SelectedItem
TextBox3.Text = ListBox3.SelectedItem
MaskedTextBox1.Text = ListBox4.SelectedItem
ids = ListBox5.SelectedItem
Button3.Visible = True
Button4.Visible = True
End Sub
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
ListBox2.SelectedIndex = ListBox1.SelectedIndex ‘listbox1 seçildiğinde tamamını seçmeye yarar
ListBox3.SelectedIndex = ListBox1.SelectedIndex
ListBox4.SelectedIndex = ListBox1.SelectedIndex
ListBox5.SelectedIndex = ListBox1.SelectedIndex
End Sub
Private Sub ListBox2_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox2.SelectedIndexChanged
ListBox1.SelectedIndex = ListBox2.SelectedIndex
ListBox3.SelectedIndex = ListBox2.SelectedIndex
ListBox4.SelectedIndex = ListBox2.SelectedIndex
ListBox5.SelectedIndex = ListBox2.SelectedIndex
End Sub
Private Sub ListBox3_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox3.SelectedIndexChanged
ListBox1.SelectedIndex = ListBox3.SelectedIndex
ListBox2.SelectedIndex = ListBox3.SelectedIndex
ListBox4.SelectedIndex = ListBox3.SelectedIndex
ListBox5.SelectedIndex = ListBox3.SelectedIndex
End Sub
Private Sub ListBox4_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox4.SelectedIndexChanged
ListBox1.SelectedIndex = ListBox4.SelectedIndex
ListBox2.SelectedIndex = ListBox4.SelectedIndex
ListBox3.SelectedIndex = ListBox4.SelectedIndex
ListBox5.SelectedIndex = ListBox4.SelectedIndex
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim sorgu As String
conn.Open()
sorgu = “UPDATE veriler SET adi =’” & (TextBox1.Text) & “‘ , soyadi=’” & (TextBox2.Text) & “‘,adres =’” & UCase(TextBox3.Text) & “‘, tel=’” & (MaskedTextBox1.Text) & “‘ where id = ” & ids & ” ”
Dim guncel As OleDbCommand = New OleDbCommand(sorgu, conn)
guncel.ExecuteNonQuery()
conn.Close()
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim sorgu As String
conn.Open()
sorgu = “DELETE FROM veriler WHERE id = ” & ids & ” ”
Dim sil As OleDbCommand = New OleDbCommand(sorgu, conn)
sil.ExecuteNonQuery()
conn.Close()
End Sub
End Class
