Archive for April 2010

Disconnected melalui SQLDataAdapter dan DataTable


.

Anda ingin tahu bagaimana caranya untuk connection string (disconnect) khususnya untuk inserting data,updating data, dan deleting data pada VB.net???ni saya tunjukkan caranya.....





Pada Button Simpan :
'deklarasi row baru untuk dimasukkan ke dalam table dt
dim row as datarow = dt.newrow
'isi setiap kolom dari baris row
row("[nama kolom]") = ...
'masukkan baris row ke dalam table dt
dt.rows.add(row)

Pada Button Ubah :
'cari dulu, baris mana yang akan diupdate
dim find as datarow = dt.rows.find([property control atau variable yang mengandung primary key])
'jika data ditemukan, lakukan perubahan data
if not isnothing(find) then
find.BeginEdit()
find("[Nama Kolom]") = ...
'setelah selesai melakukan update, simpan perubahan ke dalam dt
find.EndEdit()
end if

Pada Button Hapus :
'Cari Dulu, baris mana yang akan dihapus
dim find as datarow = dt.rows.find([property control atau variable yang mengandung primary key])
'jika data ditemukan, lakukan penghapusan data
if not isnothing(find) then
dt.rows.remove(find)
end if

kemudian simpan ke dalam database SQL Server dengan cara :
dim cb as new sqlcommandbuilder(da)
da.update(dt)


semoga bermanfaat ya........ ^_^