Evet Başlıyoruz..ilk once Kendimize bir database dosyası oluşturmamız gerekir..Microsoft Office Acces şimdilik işimizi gorur..


' Veri Tabanına Formdan Veri Kaydetme

Alıntı:
Imports System.Data.OleDb
Public Class form1
Dim baglan As OleDbConnection
Dim komut As New OleDbCommand

Private Sub btnEkle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEkle.Click
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\xxxx.mdb") 'Databasemizin yolunu burada belirtiyoruz
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "insert into tabloadi (ALAN1,ALAN2,ALAN3,ALAN4) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') " 'Veri tabanımızda oluşturduğumuz alanlara textboxtaki verileri burdan kaydediyoruz..
komut.ExecuteNonQuery()
baglan.Close() ' son olarak bağlantıyı kapatıyoruz
End Sub
' Veri Tabanındaki verileri Silme

Alıntı:
Imports System.Data.OleDb
Public Class form1
Dim baglan As OleDbConnection
Dim komut As New OleDbCommandPrivate Sub btnSil_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSil.Click
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\xxx.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "delete from TABLOADİ where alan1='" & TextBox1.Text & "' " 'Veri Tabanında Alan1 adlı alanda bulunan verilerin icinden ,kullanıcı tarafından girilen veriyi bulup onu databaseden siliyoruz...
komut.ExecuteNonQuery()
baglan.Close()
End Sub
' Veri Tabanındaki verileri Guncelleme

Alıntı:
Imports System.Data.OleDb

Public Class form1

Dim baglan As OleDbConnection
Dim komut As New OleDbCommand
Private Sub btnDuzenle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnKaydet.Click
Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & yol & "\xxx.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
komut.CommandText = "update TABLOADI set ALAN1=' " & textbox1.Text & "' where ALAN2='" & Textbox2.Text & "' "
komut.ExecuteNonQuery()
End Sub
End Class
Ornek Uygulama
Bu programı birebir yapmak isteyenler ilk once uyeler adlı bir acces veri tabanını masaustunde oluşturun
tablonun icine( uyeadi,uyesoyadi,email,mesaj )alanları oluşturun..Accessle işimiz burada bitiyor..Form tasarımına gelince 4 tane textbox,4 Label ve 1 tane button ekliyoruz..
Alıntı:
Imports System.Data.OleDb
Public Class Form1
Dim baglan As OleDbConnection
Dim komut As New OleDbCommand

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'TODO: This line of code loads data into the 'DenemeDataSet.uyeler' table. You can move, or remove it, as needed.
Me.UyelerTableAdapter.Fill(Me.DenemeDataSet.uyeler )

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim yol As String = Application.StartupPath.ToString()
Dim baglan As New OleDbConnection("provider=microsoft.jet.oledb.4.0; Data Source=" & "C:\Documents and Settings\erdi\Desktop" & "\deneme.mdb")
baglan.Open()
komut.Connection = baglan
komut.CommandType = CommandType.Text
If TextBox1.Text "" And TextBox2.Text "" And TextBox3.Text "" And TextBox4.Text "" Then 'Kayıt ekranında bulunan textboxların doldurulduğunu kontrol ediyoruz ve eğer hepsi dolduruşmuşsa veri tabanımıza kaydediyoruz..
komut.CommandText = "insert into uyeler(uyeadi,uyesoyadi,email,mesaj) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "') "
komut.ExecuteNonQuery()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
MsgBox("Kayıt Yapıldı..")
End
Else
MsgBox("Lutfen Boşlukları Doldurunuz") 'Boşluklar dolu değilse bu mesajı veriyoruz ve doldurmasını istiyoruz..
End If
baglan.Close()
End Sub
End Class

__________________