Kayıt Arama

Merhaba Arkadaşlar 1 haftalık tatilden sonra tekrar sizlerle birlikteyiz. Bu makalemizde veritabanımızda kayıtlar arasında id nosu na veya Ad a göre arama yapacağız.

Formumuza 7 adet TextBox,2 adet RadioButton , GroupBox ve 1 adet Button ekleyin.

Şekil 1

Şekil 2

Form1.vb

Imports System

Imports System.Data

Imports System.Data.OleDb

Public Class Form1

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

RadioButton1.Checked = True

End Sub

Private Sub btnAra_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnAra.Click

Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=bilgi.accdb;")

Dim str As String

If RadioButton1.Checked Then

str = "SELECT * FROM PersonelListesi Where id='" & Val(TextBox1.Text) & "' "

Else

str = "SELECT * FROM PersonelListesi Where Ad='" & TextBox1.Text & "' "

End If

Dim da As OleDbDataAdapter = New OleDbDataAdapter(str, baglan)

baglan.Open()

Dim ds As DataSet = New DataSet()

da.Fill(ds, "PersonelListesi")

TextBox2.DataBindings.Clear()

TextBox3.DataBindings.Clear()

TextBox4.DataBindings.Clear()

TextBox5.DataBindings.Clear()

TextBox6.DataBindings.Clear()

TextBox2.DataBindings.Add("Text", ds.Tables(0), "Ad")

TextBox3.DataBindings.Add("Text", ds.Tables(0), "Soyad")

TextBox4.DataBindings.Add("Text", ds.Tables(0), "Birim")

TextBox5.DataBindings.Add("Text", ds.Tables(0), "Telefon")

TextBox6.DataBindings.Add("Text", ds.Tables(0), "Mail")

baglan.Close()

End Sub

End Class

Bir makalenin daha sonuna geldik. Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN

Share This:

Facebook Twitter Pinterest Linkedin Whatsapp Whatsapp

About Bahadır Şahin

This is a short description in the author block about the author. You edit it by entering text in the "Biographical Info" field in the user admin panel.