Membuat CRUD sederhana

Dalam dunia programing sering tedengar CRUD, tapi apa sih CRUD tuh, CRUD tu singkatan, yaitu : Create, Read, Update dan Delete.......

Nah Bagi temen-temen yang ingin jadi programer, cara membuat CRUD ini wajib loh, yah ibarat jika anda pengen berlari kenceng, harus bisa jalan dulu kan, jika tidak menguasai CRUD, bagaimana anda bisa berlari jika jalan aja gak bisa. bagaimana bisa jadi programer kalo CRUD gak bisa......hehehe. ah males bnyak nulis, singkat ja ya basa-basinya.....

• Buat dulu project dan form vb.netnya kayak gambar.
• Tambahkan 2 button, 2 textbox dan 1 datagridview.
• Buat connection string dengan menambahkan app.config dan cara membacanya ada di sini.
• Pada button simpan (Button1) ketik coding kayak dibawah.
• Pada button baca (Button2) codingnya kayak dibawah.
• Untuk update dan delete tambahkan lagi 2 button dan untuk codingnya sama dengan insert Cuma bedanya ada pada sql =”......”
• Untuk bagaimana sql update dan delete bisa di lihat di sini

Imports System.Data
Imports System.Data.SqlClient

Public Class Form1
    Private SQLCON As New SqlConnection
    Private cmd As New SqlCommand
    Private sql As String = ""



    Private Sub bukaexec()
        Dim connectionstring As String = System.Configuration.ConfigurationManager.
AppSettings("ConnectionString")

        SQLCON.ConnectionString = connectionstring
        SQLCON.Open()
        cmd.Connection = SQLCON
    End Sub



    Private Sub tutup()
        SQLCON.Close()
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button1.Click

        Try
            Sql = "insert into dbo.tbobat values ('" & TextBox1.Text.Trim & "','" & 
TextBox2.Text.Trim & "')"

            bukaexec()
            cmd.CommandText = sql
            cmd.ExecuteNonQuery()
            MsgBox("success")
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            tutup()
        End Try
    End Sub



    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button2.Click

        Dim ds As New DataSet
        Dim adp As New SqlDataAdapter

        Try
            bukaexec()
            sql = "select * from dbo.tbkatgori"
            cmd.CommandText = sql
            adp = New SqlDataAdapter(cmd)
            adp.Fill(ds, "tbkategri")
            DataGridView1.DataSource = ds.Tables(0)
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            tutup()
        End Try
    End Sub
End Class