- Katılım
- 5 Ocak 2014
- Mesajlar
- 3,333
- Tepkime puanı
- 6
- Puanları
- 136
Bu Ado.net dersimizde Command Nesnesi ile güncelleme yapmayı öğreneceğiz.
Öncelikle VB.net ortamını açalım. Form görüntümüzü resimdeki gibi ayarlayalım:
Sonra da aşağıdaki kodları yazalım:
Kod:
Imports System.Data.OleDbPublic Class Form7Dim con As OleDbConnectionPrivate Sub Form7_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadcon = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;datasource=KITAPLAR.mdb")If (con.State = ConnectionState.Closed) Thencon.Open()End IfDim komut1 As New OleDbCommand("select DISTINCT KITAP FROMKITAP", con)Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)Dim DR As OleDbDataReaderDR = komut1.ExecuteReader()Dim dt As New DataTabledt.Load(DR)ComboBox1.DataSource = dtComboBox1.DisplayMember = "KITAP"End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim komut As New OleDbCommand("update KITAP SET KITAP=? WHEREKITAP=?", con)Dim eski As New OleDbParametereski.OleDbType = OleDbType.VarChareski.Value = ComboBox1.TextDim yeni As New OleDbParameteryeni.OleDbType = OleDbType.VarCharyeni.Value = TextBox1.Textkomut.Parameters.Add(yeni)komut.Parameters.Add(eski)Dim a As Integer = komut.ExecuteNonQuery()If a <= 0 ThenMsgBox("degisecek kayıt bulunnamadı")ElseMsgBox(a.ToString & "adet kayıt degistirildi")End IfEnd SubEnd Class
İyi çalışmalar...
Öncelikle VB.net ortamını açalım. Form görüntümüzü resimdeki gibi ayarlayalım:
Sonra da aşağıdaki kodları yazalım:
Kod:
Imports System.Data.OleDbPublic Class Form7Dim con As OleDbConnectionPrivate Sub Form7_Load(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles MyBase.Loadcon = New OleDbConnection("Provider=microsoft.jet.oledb.4.0;datasource=KITAPLAR.mdb")If (con.State = ConnectionState.Closed) Thencon.Open()End IfDim komut1 As New OleDbCommand("select DISTINCT KITAP FROMKITAP", con)Dim DA As New OleDbDataAdapter("select * FROM KITAP", con)Dim ds As New DataSetDA.Fill(ds, "tablo1")DataGridView1.DataSource = ds.Tables(0)Dim DR As OleDbDataReaderDR = komut1.ExecuteReader()Dim dt As New DataTabledt.Load(DR)ComboBox1.DataSource = dtComboBox1.DisplayMember = "KITAP"End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e AsSystem.EventArgs) Handles Button1.ClickDim komut As New OleDbCommand("update KITAP SET KITAP=? WHEREKITAP=?", con)Dim eski As New OleDbParametereski.OleDbType = OleDbType.VarChareski.Value = ComboBox1.TextDim yeni As New OleDbParameteryeni.OleDbType = OleDbType.VarCharyeni.Value = TextBox1.Textkomut.Parameters.Add(yeni)komut.Parameters.Add(eski)Dim a As Integer = komut.ExecuteNonQuery()If a <= 0 ThenMsgBox("degisecek kayıt bulunnamadı")ElseMsgBox(a.ToString & "adet kayıt degistirildi")End IfEnd SubEnd Class
İyi çalışmalar...