Merhaba arkadaşlar bu konuyu araştıran arkadaşlarımızın sayısı cok fazla.
Bunun icin bu kodları buraya yazmayı duşundum.

En Başta
PHP Code:
Imports System.Data.OleDb


Bu kodu public class formadı nın ustune yazın.
buyrun yeni kayıt ekleme kodu:
PHP Code:
Dim komut As New OleDbCommand
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\VERITABANIM.mdb") 'Databasemizin yolunu burada belirtiyoruz
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "INSERT INTO TABLOADI (Kayit1,Kayit2) values ('" & TextBox1.Text & "','" & TextBox2.Text & "')" 'Veri tabanımızda oluşturduğumuz alanlara textboxtaki verileri burdan kaydediyoruz..
komut.ExecuteNonQuery()
baglan.Close()


Bu Kodda duzenlenecek yerleri kendinize gore ayarlayın.


Şimdide Kayıt Silme Kodu:


PHP Code:

Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\VERITABANIM.mdb") 'Databasemizin yolunu burada belirtiyoruz
Dim komut As New OleDbCommand
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "delete from TABLOADI where KAYIT1='" & TextBox1.Text & "' and KAYIT2='" & TextBox2.Text & "'"
komut.ExecuteNonQuery()
baglan.Close()




Şimdide Kaydı Guncelleme Kodu:

PHP Code:
Dim komut As New OleDbCommand
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\VERITABANIM.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = ("Update TABLOADI set KAYIT1='" & TextBox1.Text & "' where KAYIT2='" & TextBox2.Text & "'")
komut.ExecuteNonQuery()
baglan.Close()


Şimdide Arama:

Arama yapabilmek icin veritabanınızı datagridview ile projenize bağlamış olmanız gerekmektedir.

PHP Code:
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\VERITABANIM.mdb")
Dim sql As String
Dim Dset As DataSet = New DataSet

If TextBox1.Text = String.Empty Then

sql = "Select * From TABLOADI"

' *** Eğer Kutudaki bilgileri silerseniz verilerin tamamı listelenecektir.

Else

sql = "Select * From TABLOADI Where KAYIT1 Like'" & TextBox1.Text & "%" & "'"

' *** TextBox1 yerine sizdeki TextBox adını kullanacaksınız
' *** Like ve "%" sizin Datagridview deki listeyi gireceğiniz karaktere gore değerlendirir. Textbox icersinde tabi siz bunu ComboBox kullanıyorsanız
' *** sql = "Select * From Bilgiler Where Veri1 Like'" & ComboBox1.SelectedItem & "%" & "'" şeklinde de kullanabilirsiniz.

End If

Dim Ds As OleDbDataAdapter = New OleDbDataAdapter(sql, baglan)

Ds.Fill(Dset, "Bilgiler")
Form1.DataGridView1.DataSource = Dset.Tables(0)


Benden Bukadar Kodlar Calışmaktadır.

KAYNAK KOD VE PROJE VB.NET İNDİR
ALINTI DEĞİLDİR...


__________________