ASP.Net (VB.Net) Veritabanı Örnekleri

Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet
baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= " & Application.StartupPath & ("\veritabani.mdb")
baglanti.Open()
komut.CommandType = CommandType.Text
komut.CommandText = " Select * From tabloadi"
komut.Connection = baglanti
adp.SelectCommand = komut
adp.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)
DataGridView1.Visible = True
baglanti.Close()

Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet

baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= " & Application.StartupPath & ("\veritabani.mdb")
baglanti.Open()
komut.CommandType = CommandType.Text
komut.CommandText = " UPDATE tabloadi SET alanadi= '" & TextBox13.Text & "', alanadi2= '" & TextBox14.Text & "' WHERE birincilanahtaralanadi= " & birdegiskenadiyadaid & ";"
komut.Connection = baglanti
komut.ExecuteNonQuery()

Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim ds As New DataSet
Dim sonuc As Integer
baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source= " & Application.StartupPath & ("\veritabani.mdb")
baglanti.Open()
komut.CommandType = CommandType.Text

sonuc = MsgBox("Silmek İstediğinize Emin Misiniz ?", MsgBoxStyle.Question + MsgBoxStyle.YesNo, "Silme İşlemi")
If sonuc = MsgBoxResult.Yes Then
komut.CommandText = " DELETE FROM tabloadi WHERE birincilanahtaralanadi= " & a & ";"
komut.Connection = baglanti
komut.ExecuteNonQuery()
end if

Dim baglanti As New OleDbConnection
Dim komut As New OleDbCommand
Dim adp As New OleDbDataAdapter
Dim ok As Boolean
baglanti.ConnectionString = "provider=microsoft.jet.oledb.4.0; data source=" & Application.StartupPath & "\veritabani.mdb"
baglanti.Open()
komut.CommandType = CommandType.Text
komut.CommandText = "insert into tabloadi(alanadi1,alanadi2,alanadi3) Values('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
komut.Connection = baglanti
komut.ExecuteNonQuery()

Bu kodlar VB dilini kullandığın ASP.NET yada VB.NET programlamada geçerlidir, Access veritabanı kullandığım bir projeden alıp koydum buraya bu kodları yazmadan önce kod sayfanda üste Imports System.Data
Imports System.Data.OleDb namespaceleri eklemen gerekir, eğer microsoft sql için kullanacaksan system.data.sqlclient namespacini kullanıp oledb ile başlayan yerleri sql ile başlatman ve connection stringini düzenlemen yetrlidir