stmikbg-dot-com

banyak cara untuk manipulas data pada vb.net, menggunakan dataset, datareader, datatable dan metodelainnya. Untuk kali ini saya menggunakan binding navigator sebagai basic untuk manipulasi database divb.net.

Untuk bisa melakukan binding database anda terlebih dahulu harus mempunyai object bindingsource yang telah diset datasource pada sebuah datatable. Untuk lebih mempermudah kita akan langsung bahas codenya. Pertama-tama kita akan membuat sebuah object datatable untuk menampung record dari table misalnya table barang. Seperti dibawah ini

Dim connectionString As String = _
           "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
                                Application.StartupPath & "\simplePOS.mdb"

        Dim Conn As Data.OleDb.OleDbConnection = _
            New Data.OleDb.OleDbConnection(connectionString)

        Dim Command As New Data.OleDb.OleDbCommand(sqlCommand, Conn)
        Dim Adapter As Data.OleDb.OleDbDataAdapter = New Data.OleDb.OleDbDataAdapter()
        Adapter.SelectCommand = Command

        Dim Table As New DataTable
        Table.Locale = System.Globalization.CultureInfo.InvariantCulture
        Adapter.Fill(Table)

Setelah kita membuat sebuah object datatable kita bisa membinding datatable ini kedalam sebuah datasource, sebut saja kode diatas adalah sebuah fungsi dengan nama GetData(), sekarang kita akan binding datatablenya kedalam bindingsource dan bindingnavigator.

Private Sub InitializeDataGridView()
        Try
            ' Set up the DataGridView.
            With Me.grdBarang
                ' Automatically generate the DataGridView columns.
                .AutoGenerateColumns = True
                ' Set up the data source.
                bsBarang.DataSource = GetData("Select * From Barang Order By [Nama Barang]")
                .DataSource = bsBarang
                ' Automatically resize the visible rows.
                .AutoSizeRowsMode = _
                    DataGridViewAutoSizeRowsMode.DisplayedCellsExceptHeaders

                ' Set the DataGridView control's border.
                .BorderStyle = BorderStyle.Fixed3D

                ' Put the cells in edit mode when user enters them.
                .EditMode = DataGridViewEditMode.EditOnEnter
            End With
        Catch ex As Data.OleDb.OleDbException
            MessageBox.Show("To run this sample replace " _
                & "connection.ConnectionString with a valid connection string" _
                & "  to a Northwind database accessible to your system.", _
                "ERROR", MessageBoxButtons.OK, MessageBoxIcon.Exclamation)
            System.Threading.Thread.CurrentThread.Abort()
        End Try
    End Sub

Pada kode diatas, perhatikan tulisan warna merah, untuk mengeset datasource keobject bsBarang ( as BindingSource) kita langsung mengambil object datatable dari fungsi getdata(), yang kita buat sebelumnya. Dan untuk mengaitkan data pada bindingnavigator kita cukup mengeset properti bnBarang.BindingSource = bsBarang, Sederhana sekali, sebenarnya masih banyak cara lainnya, tergantung logic kita mau diapakan semua object yang ada pada vb.net.

Incoming search terms:

• bindingnavigator vb net

beberapa hari yang lalu hosting stmikbg.com password cpanelnya sempat dirubah sama unknown person, selang beberapa hari kerusakan yang lebih fatal terjadi pada servernya, yakni “HARDISK FAILURE” alamat semua data yang telah terposting akan hilang, masih beruntung saya sempat melakukan backup pada bulan november 2008 lalu, jadi semua konten tidak hilang.