Formunuza 1 adet DataGridview ve Button ekleyin. Veritabanınızı Şekil 1 deki gibi oluşturun.
Şekil 1
Şekil 2
Şekil 3
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kayitlar.mdb;")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From liste", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)
Dim cmd As New Data.OleDb.OleDbCommand("Select * From liste", baglan)
baglan.Open()
Dim ds1 As New DataSet()
adp.Fill(ds1)
DataGridView1.DataSource = ds1.Tables(0)
baglan.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ad As String
Dim sayi As Integer
ad = InputBox("Ad giriniz")
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kayitlar.mdb;")
Dim komut As New OleDbCommand("", baglan)
Dim veri As OleDb.OleDbDataReader
baglan.Open()
komut.CommandText = "SELECT COUNT(*) FROM liste WHERE Ad=‘" & ad & "‘"
‘veya Like komutu kullanılarak bir kaç harf girerek aşağıdaki gibi arattırma yaptırabilirsiniz.
‘komut.CommandText = "SELECT COUNT(*) FROM liste WHERE Ad LIKE ‘%" + UCase(a) + "%‘"
komut.ExecuteNonQuery()
veri = komut.ExecuteReader(CommandBehavior.SingleResult)
Do While veri.Read
sayi = veri(0)
Loop
If sayi > 1 Then
MessageBox.Show("Veritabanındaki kayıtlar içerisinde " & ad & " isimli" & Chr(10) & sayi & " adet kayıt bulunmaktadır", "Kayıt Sorgulama", MessageBoxButtons.OK)
Else
MessageBox.Show(ad & " isimli tek kayıt bulunmaktadır", "Kayıt Sorgulama", MessageBoxButtons.OK)
End If
baglan.Close()
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
Imports System.Data.OleDb
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kayitlar.mdb;")
Dim adp As New OleDb.OleDbDataAdapter()
adp.SelectCommand = New OleDb.OleDbCommand("Select * From liste", baglan)
Dim CB As OleDb.OleDbCommandBuilder = New OleDb.OleDbCommandBuilder(adp)
Dim cmd As New Data.OleDb.OleDbCommand("Select * From liste", baglan)
baglan.Open()
Dim ds1 As New DataSet()
adp.Fill(ds1)
DataGridView1.DataSource = ds1.Tables(0)
baglan.Close()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim ad As String
Dim sayi As Integer
ad = InputBox("Ad giriniz")
Dim baglan As OleDb.OleDbConnection = New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=kayitlar.mdb;")
Dim komut As New OleDbCommand("", baglan)
Dim veri As OleDb.OleDbDataReader
baglan.Open()
komut.CommandText = "SELECT COUNT(*) FROM liste WHERE Ad=‘" & ad & "‘"
‘veya Like komutu kullanılarak bir kaç harf girerek aşağıdaki gibi arattırma yaptırabilirsiniz.
‘komut.CommandText = "SELECT COUNT(*) FROM liste WHERE Ad LIKE ‘%" + UCase(a) + "%‘"
komut.ExecuteNonQuery()
veri = komut.ExecuteReader(CommandBehavior.SingleResult)
Do While veri.Read
sayi = veri(0)
Loop
If sayi > 1 Then
MessageBox.Show("Veritabanındaki kayıtlar içerisinde " & ad & " isimli" & Chr(10) & sayi & " adet kayıt bulunmaktadır", "Kayıt Sorgulama", MessageBoxButtons.OK)
Else
MessageBox.Show(ad & " isimli tek kayıt bulunmaktadır", "Kayıt Sorgulama", MessageBoxButtons.OK)
End If
baglan.Close()
End Sub
End Class
Bir sonraki makalede görüşmek üzere. Bahadır ŞAHİN
0 comments:
Yorum Gönder