Belajar Visual basic.net Dengan Modul Part2

Setelah kita pada tahap pembuatan modul telah selesai tahap selanjutnya kita akan membuat coding pada Form untuk kita menyimpan data kedalam database...

penulis berasumsi teman-teman telah membuat sebuah AntarMuka yang terdiri dari data yang akan diinput dan tombol simpan,edit,hapus...dan komponen datagridview

pada Tombol Simpan

'ketikan coding dibawah ini

Private sub BtnSimapan.....

'perintah ini untuk memanggil sub OpenConn pada modul untuk membuka koneksi

OpenConn()

rsLatihan=new OleDb.OleDbCommand

rsLatihan.Connection=dblatihan

rsLatihan.CommandType=Command.Text

rsLatihan.CommandText="Insert into Tblatihan(kodebarang,namabarang,jumlah)values(' " & txtkode.text & " ',' " & txtnama.text & " ',' " & txtJumlah.text & " ')"

rsLatihan.ExecuteNonQuery()

msgbox("Data telah tersimpan")

'Untuk menutup koneksi

CloseConn()

End Sub

'Ketik perintah ini pada tombol Update atau perbaiki

Private sub Btnupdate.....

'perintah ini untuk memanggil sub OpenConn pada modul untuk membuka koneksi

OpenConn()

rsLatihan=new OleDb.OleDbCommand

rsLatihan.Connection=dblatihan

rsLatihan.CommandType=Command.Text

rsLatihan.CommandText="update TbLatihan set namabarang=' " & txtnama.text & " ',Jumlah=' " & txtjumlah.text & " ' where Kodebarang=' " & txtkode.text & " ' "

rsLatihan.ExecuteNonQuery()

msgbox("Data telah terUpdate")

'Untuk menutup koneksi

CloseConn()

End Sub

'ketik perintah ini pada Tombol Hapus

Private sub BtnHapus.....

'perintah ini untuk memanggil sub OpenConn pada modul untuk membuka koneksi

OpenConn()

rsLatihan=new OleDb.OleDbCommand

rsLatihan.Connection=dblatihan

rsLatihan.CommandType=Command.Text

rsLatihan.CommandText="delete from TbLatihan where KodeBarang=' " & txtkode.text & " ' "

rsLatihan.ExecuteNonQuery()

msgbox("Data telah terhapus..")

'Untuk menutup koneksi

CloseConn()

End Sub

'untuk menampilkan data pada datagrid

Private sub tampildata()

OpenConn()

rsLatihan=new Oledb.OleDbCommand

rslatihan.connection=dbLatihan

rsLatihan.CommandType=Command.text

rslatihan.CommandText="select * from Tblatihan"

database=new OleDb.OleDbDataAdapter

dsLatihan=new Dataset

objtabel=new Datatable

database.selectCommand=rsLatihan

Database.fill(dsLatihan,"TbLatihan")

objTabel=dslatihan.Table("TbLatihan")

datagridview1.datasource=ObjTabel

database=nothing

End Sub

'semoga bermanfaat..