Home > Kerjaan, Pindahan, Programming, Tips Tutorial > Membuat Datatable/Dataset dengan kode program

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. No comments yet.
  1. No trackbacks yet.

Leave a Reply

Fill in your details below or click an icon to log in:

WordPress.com Logo

You are commenting using your WordPress.com account. Log Out / Change )

Twitter picture

You are commenting using your Twitter account. Log Out / Change )

Facebook photo

You are commenting using your Facebook account. Log Out / Change )

Google+ photo

You are commenting using your Google+ account. Log Out / Change )

Connecting to %s

%d bloggers like this: