Friday, April 11, 2008

Membuat Datatable/Dataset dengan kode program

Berikut ini kode program yang di gunakan untuk membuat Dataset/Datatable pada VB .NET
kode dibawah ini masih belum sempurna, nanti kita lanjutkan ya :)
Public Function MakeDataTable() As DataTable

Dim myTable As DataTable
myTable = New DataTable("dtbarang")

Dim idno As DataColumn = New DataColumn("idno")
idno.DataType = System.Type.GetType("System.Int32")
myTable.Columns.Add(idno)

Dim namabarang As DataColumn = New DataColumn("namabarang")
namabarang.DataType = System.Type.GetType("System.String")
myTable.Columns.Add(namabarang)

Dim banyak As DataColumn = New DataColumn("banyak")
banyak.DataType = System.Type.GetType("System.Int32")
myTable.Columns.Add(banyak)

Dim satuan As DataColumn = New DataColumn("satuan")
satuan.DataType = System.Type.GetType("System.Double")
myTable.Columns.Add(satuan)

Dim jumlah As DataColumn = New DataColumn("jumlah")
jumlah.DataType = System.Type.GetType("System.Double")
myTable.Columns.Add(jumlah)

MakeDataTable = myTable
End Function

sedangkan untuk membuat dataset serta memasukan datatable ke dalam gridview digunakan perintah berikut :
Dim dt As DataTable
dt = MakeDataTable()
Dim ds As DataSet

ds = New DataSet
ds.Tables.Add(dt)
dgbarang.DataSource = ds.Tables("dtbarang")

datatable diatas masih kosong, kita perlu memasukan nilai kedalam masing-masing datacolumn, dibawah ini cara untuk memasukan nilai tersebut :
Dim dr As DataRow

dr = dt.NewRow()

dr("idno") = CInt(idnota)
dgbarang.Columns(0).DataPropertyName = "idno"

dr("namabarang") = txtnamabarang.text
dgbarang.Columns(1).DataPropertyName = "namabarang"

dr("banyak") = CInt(txtbanyaknya.text)
dgbarang.Columns(2).DataPropertyName = "banyak"

dr("satuan") = txthargasatuan.text
dgbarang.Columns(3).DataPropertyName = "satuan"

Dim tjumlah As Double = (txtbanyaknya.text * txthargasatuan.text)
dr("jumlah") = tjumlah
dgbarang.Columns(4).DataPropertyName = "jumlah"

dt.Rows.Add(dr)

silahkan anda kreasikan sendiri, semoga bermanfaat :)

1 comment:

  1. Thx infonya, akhirnya ketemu juga..... dah lama nyari nggak nemu2, thx ya :)

    ReplyDelete