Membuat Aplikasi CUD dengan Visual Basic 2012 dan SQL Server 2008

Kali ini saya akan membuat aplikasi PSB dengan VS 2012 dan SQL Server 2008, aplikasi PSB di mana di dalam aplikasi ini terdapat CUD (Create Update Delete).

Saya akan membuat FORM Pendaftaran, berikut ini caranya :

1. Buatlah database pada SQL Server

Silahkan anda buka aplikasi SQL Server anda kemudian buatlah database dengan nama "db_smkti", setelah itu buatlah table dengan nama "tb_pendaftaran" isikan data fieldnya seperti yang di bawah ini.

2. Membuat aplikasi

Silahkan anda membuka aplikasi Visual Basic atau Visual Studio anda, buatlah sebuah aplikasi yang berjudul "PSBapp".

3. Membuat koneksi

Tambahkan item 'module' dengan nama "config", setelah itu ketikkan kode yang ada di bawah ini.

Imports System.Data.SqlClient

Module cofig
    Public cn As New SqlConnection
    Public cmd As New SqlCommand

    Sub opendb()
        cn.ConnectionString = "Data Source=Guntur-PC\SQLEXPRESS;initial catalog=db_smkti;Integrated Security=True;"
        cn.Open()
        If cn.State = ConnectionState.Open Then
            MessageBox.Show("Succes Connect to Database")
        Else
            MessageBox.Show("Failed Connect to Database")
        End If
    End Sub
End Module

Di bagian "Data Source= Guntur-PC\SQLEXPRESS" ganti tulisan yang saya beri tanda sesuai dengan Server Name yang terdapat pada SQL Server anda.

4. Membuat form pendaftaran
Tambahkan item 'form'dengan nama "pendaftaran", lalu buatlah design yang kurang lebih seperti di bawah ini.

5. Menampilkan data
Klink 2X pada form "pendaftaran", setelah itu ketikkan kode seperti yang di bawah ini.

Imports System.Data.SqlClient

Public Class Form1
    Dim id As DataTable
    Dim kode As DataTable

    Sub showdatatable()
        cmd.Connection = cn
        cmd.CommandText = "SELECT * FROM tb_pendaftaran"
        Dim rd As SqlDataReader = cmd.ExecuteReader
        Dim dt As New DataTable
        dt.Load(rd)
        DataGridView1.DataSource = dt
    End Sub

    Sub bersih()
        TextBox1.Clear()
        TextBox2.Clear()
        TextBox3.Clear()
        TextBox4.Clear()
        TextBox5.Clear()
        DateTimePicker1.CustomFormat = TimeOfDay
    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        opendb()
        showdatatable()
    End Sub

6. Script SIMPAN
Klik 2X pada button "DAFTAR", setelah itu ketikkan kode seperti yang ada di bawah ini.

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        cmd.Connection = cn
        cmd.CommandText = "INSERT INTO tb_pendaftaran VALUES ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & DateTimePicker1.Value & "','" & TextBox4.Text & "','" & TextBox5.Text & "')"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

7. Script UBAH
Klik 2X pada button "UBAH", setelah itu ketikkan kode seperti yang ada di bawah ini.

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        cmd.Connection = cn
        cmd.CommandText = "UPDATE tb_pendaftaran SET nama = '" & TextBox2.Text & "',tempat_lahir = '" & TextBox3.Text & "',tanggal_lahir = '" & DateTimePicker1.Value & "',asal_sekolah = '" & TextBox4.Text & "',alamat_pendaftar = '" & TextBox5.Text & "'WHERE id_pendaftaran = '" & TextBox1.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

8. Script HAPUS
Klik 2X pada button "HAPUS", setelah itu ketikkan kode seperti yang ada di bawah ini.

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        cmd.Connection = cn
        cmd.CommandText = "DELETE FROM tb_pendaftaran WHERE id_pendaftaran = '" & TextBox1.Text & "'"
        cmd.ExecuteNonQuery()
        showdatatable()
        bersih()
    End Sub

Program yang anda buat telah selesai atau siap pakai silahkan di coba, hasilnya akan seperti di bawah ini.

TERIMAKASIH TELAH MEMBACA

SEMOGA DAPAT SANGAT BERMANFAAT

JIKA ADA YANG MASIH BINGUNG TANYAKAN SAJA DI KOMENTAR