Alıntı
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()
ASP.NET yada VB.NET farketmez datagridviewde listeleme yapmak için bu kodu kullanabilirsin .
Alıntı
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()
Bu kodla güncelleştirme yapılır.
Alıntı
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
Bu kodla silersin
Alıntı
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 kod ile de veritabanına ekleme yaparsın .
Alıntı
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
Konuyu açalı biraz zaman geçmiş ama haala bulamadıysan kaynak olur