stmikbg-dot-com | recordset atau dataset bingungkan?

recordset atau dataset bingungkan?

07.31.2008 by admin in .Net Programing

Kebanyakan programer yang basis sebelumnya vb 6.0 ketika beralih ke vb.net masih senang dengan recordset dalam memanipulasi data pada database, hal ini tidak salah karena kemudahan dan mungkin juga sudah sangat familiar dengan recordset. Saya sendiri yang baru-baru ini konsen kembali ke vb.net masih bingung dengan konsep dataset. Karena bingungnya saya terpaksa mengimport dan tetap mempertahankan ADODB di VB.NET, bagi rekan-rekan yang sama seperti saya untuk mengimport ADODB bisa mengikuti step berikut ini

Import ADODB dengan jalan memasukkan kereference diproject.
Untuk urusan code sama seperti VB 6.0, seperti yang ditampilkan dibawah ini

Dim cnn As New Connection()
Dim cm As New Command()
Dim rs As New Recordset()

Private Sub btnDataset_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btnDataset.Click
        ' An ADO 2.6 connection and recordset are created to pull back
        ' data using a SELECT statement.  A data adapter and dataset are
        ' created.  The data Adapters fill method is used to populate
        ' the dataset with the data in the ADO 2.6 recordset.
        ' The dataset is then assigned to the data grid control.
        Dim strSQL As String = "SELECT CustomerID, " & _
                               "       CompanyName, " & _
                               "       ContactName, " & _
                               "       COuntry, " & _
                               "       Region, " & _
                               "       Phone, " & _
                               "       Fax " & _
                               "FROM Customers"
        rs = cnn.Execute(strSQL)
        ' Create Dataset and data adapter objects
        Dim ds As New DataSet("Recordset")
        Dim da As New OleDb.OleDbDataAdapter()
        ' Call data adapter's Fill method to fill data from ADO
        ' Recordset to ADO.NET dataset
        da.Fill(ds, rs, "Customers")
        ' Assign data set to grid control
        dgMain.DataSource = ds
        dgMain.DataMember = "Customers"
    End Sub