DataAdapter Kullanımı?

DataAdapter nesnesi DataSet nesnesi ile veritabanı arasında tercümanlık yapar diyebiliriz. Veritabanından aldığı bilgileri DataSet içerisine doldurur ve DataSet den aldığı bilgileri veritabanına geri gönderir. Dört önemli metoda sahiptir:

SelectCommand

UpdateCommand

InsertCommand

DeleteCommand

SQLDataAdapter ve OLEDBDataAdapter olarak iki nesne kullanılabilir. MSSQL Server a bağlantı için SQLDataAdapter nesnesi, diğer veritabanlarına bağlantı için OLEDBDataAdapter nesnesi kullanılır.

SelectCommand Metodu

Bu metod kullanılarak veritabanından bilgiler 2 şekilde listelenir: ya DataAdapter’in bu metoduna doğrudan bir Command atanır, yada SelectCommand’in Text özelliğine doğrudan bir Sql ifdesi içeren string atanabilir.

Bir örnek ile açıklamaya çalışalım. Bir select ifadesi ile veritabanından bilgileri listeleyip DataSet içine dolduralım. Ardından bu bilgiyi DataGrid içerisinde gösterelim;

Bu işlem için Imports System.Data.SqlClient kütüphanesini kullanmamız gerekli. Örneğimizde MSSQL Server a bağlanıp, Northwind veritabanında Customers table’ındaki bilgileri göstereceğiz.

Dim baglanti As SqlConnection = New SqlConnection("server=localhost;uid=sa;pwd=;database=northwind")
Dim cmd As SqlCommand = New SqlCommand("SELECT CustomerID, CompanyName FROM Customers", baglanti)
Dim adapter As SqlDataAdapter = New SqlDataAdapter()
adapter.SelectCommand = cmd
Dim ds As DataSet = New DataSet()
adapter.Fill(ds, "Customers")
DataGrid1.DataSource = ds
DataGrid1.DataBind()

UpdateCommand Metodu

Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT CategoryID, CategoryName FROM Categories", nwindConn)
adapter.UpdateCommand = New SqlCommand("UPDATE Categories SET CategoryName = @CategoryName " & _
"WHERE CategoryID = @CategoryID", nwindConn)
adapter.UpdateCommand.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15, "CategoryName")
Dim param As SqlParameter = adapter.UpdateCommand.Parameters.Add("@CategoryID", SqlDbType.Int)
param.SourceColumn = "CategoryID"
param.SourceVersion = DataRowVersion.Original
Dim ds As DataSet = New DataSet
adapter.Fill(ds, "Categories")
Dim cRow As DataRow = ds.Tables("Categories").Rows(0)
cRow("CategoryName") = "AspNedir"
adapter.Update(ds)

InsertCommand Metodu

Dim adapter As SqlDataAdapter = New SqlDataAdapter("SELECT CategoryID, CategoryName FROM Categories", nwindConn)
adapter.InsertCommand = New SqlCommand("Insert Into Categories (CategoryName) Values @CategoryName", nwindConn)
adapter.UpdateCommand.Parameters.Add("@CategoryName", SqlDbType.NVarChar, 15, "CategoryName")
Dim ds As DataSet = New DataSet
adapter.Fill(ds, "Categories")
Dim cRow As DataRow = ds.Tables("Categories").Rows(0)
cRow("CategoryName") = "BitirmeOdevi"
adapter.Update(ds)

DeleteCommand Metodu

Dim SqlIfadesi As String = "SELECT * FROM Categories ORDER BY CategoryID"
Dim baglanti As String = "server=localhost;uid=sa;pwd=;database=northwind"
Dim adapter As New SqlDataAdapter(SqlIfadesi, baglanti)
adapter.DeleteCommand.CommandText = "DELETE FROM Categories WHERE CategoryName='BitirmeOdevi'"
adapter.DeleteCommand.Connection = CType(adapter.SelectCommand.Connection, SqlConnection)

Kaynak:Sahhan