Working With Data

        Pada kesempatan ini, saya ingin berbagi sedikit mengenai manis dan pahitnya mempelajari working with data. Working with data bertujuan untuk menghubungkan program dengan aplikasi database seperti Mc.Access. 

 

Data : sekumpulan fakta atau nilai yang belum diolah sehingga belum memiliki makna.

Informasi : Sekumpulan data yang telah diolah sehingga memiliki makna.

       Pada kasus ini saya menghubungkan program visual basic.net dengan Mc.Access. Dengan membuat program ini kita dapat mengubah data melalui aplikasi yang kita buat tanpa melalui Mc.Access. 

Adapun Contoh Programnya sebagai berikut :

Kode Program : 

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'My_New_AppDataSet.Students' table. You can move, or remove it, as needed.
        Me.StudentsTableAdapter.Fill(Me.My_New_AppDataSet.Students)

    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim i, sno As Integer
        Dim sname As String
        Dim rw As DataRow
        rw = My_New_AppDataSet.Students.NewRow
        sno = InputBox("Enter the ID of the Student:")
        sname = InputBox("Enter the Name of the Student:")
        rw.Item("ID") = sno
        rw.Item("Name") = sname
        Try
            My_New_AppDataSet.Students.Rows.Add(rw)
            i = StudentsTableAdapter.Update(My_New_AppDataSet)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
        MessageBox.Show("no of rows updated=" & i)
    End Sub
End Class