CRUD VB.Net Dengan SQl Server

Subekti Nur Wahyudi    08 February    Ms SQL Server , Vb.Net Visual Studio   

Kembali lagi berbagi beberapa artikel mengenai vb.net, kali ini saya berbagi tutorial terkait dengan membuaat aplikasi CRUD menggunakan code vb.net yang berintegrasi dengan database sql server, temen-temen bisa mencobanya jika sedang cari tutorial ini. Semoga dapat membantu temen-temen.

Tutorial Aplikasi CRUD VB.Net Dan SQl Server

Berdasarkan apa saja yang dibutuhkan, mungkin temen-temen membutuhkan software seperti visual studio dan Sql Server untuk artikel kali ini.

Kita akan mengenal bagaimana kita membuat sebuah aplikasi CRUD sederhana menggunakan bahasa pemrograman VB.Net dan memanfaatkan  database sql server sebagai integrasi data-data yang kita oprasikan, yang bisa kita coba diantaranya dapat menambah data, mengedit data/update data, menghapus sebuah data ataupun suatu baris data tertentu.

Mungkin tutorial ini bisa temen-temen jadikan sebagai perbandingan atau temen-teman sedang mencarinya.

Dalam tutorial ini pertama kita harus membuat beberapa Form dalam Visual studio guna terbentuk interface pengguna.

Dan jelanjutnya temen-teman bisa membuat code menggunakan bahasa vb.net sesuai aksi yang diperlukan, semisal pada button simpan, update, delet kita memberi code supaya button bisa memberi aksi sesuai dengan keterangan button tersebut.

Langsung saja mari bisa mempratekannya,

Pertama kita akan membuat beberapa Form yaitu,

• Form Menu Utama
• Form Barang
• Form Supplier
• dan Form Pembelian

Berikut ini adalah gambaran Form Utama yang kita buat, form utama kita buat sebagai form yang memberi panduan navigasi pada aplikasi yang kita buat, disini sobat bisa memanfaatkan menu strip sebagai daftar menunya.

Memanggil Form Menu Vb.Net

Kode program dalam form menu kurang lebih seperti berikut:

Public Class FormUtama

    Private Sub ExitToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExitToolStripMenuItem.Click
        Close()
    End Sub

    Private Sub mnuform1_Click(sender As Object, e As EventArgs) Handles mnuform1.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

    Private Sub mnuform2_Click(sender As Object, e As EventArgs) Handles mnuform2.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub mnuform3_Click(sender As Object, e As EventArgs) Handles mnuform3.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

End Class

Catatan: Sesuaikan code nama form yang sobat buat.

Code program di atas berguna sebagai pemberian perintah ketika kita melakukan aksi click form barang, form supplier dll.

Cara Membuat Koneksi Vb.Net

Dalam Pembuatan aplikasi CRUD ini kita perlu melakukan integrasi aplikasi dengan database sql server, mungkin sering kita sebut dengan mengoneksikan database. disini temen-temen bisa menggunakan modul koneksi dengan code seperi berikut:

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient

Module mdlkoneksi
    Public comSQL As New SqlClient.SqlCommand
    Public sql As String
    Public conn As New SqlConnection
    Public str As String = "Data Source=LENOVO-PC\SQLEXPRESS;Initial Catalog=201553061;Integrated Security=True"

    Public Sub bukakoneksi()
        If conn.State = ConnectionState.Closed Then
            conn.ConnectionString = str

            Try
                conn.Open()
                MsgBox("Koneksi Berhasil")
            Catch ex As Exception
                MsgBox("Koneksi Gagal: " & ex.ToString)
            End Try

        End If
    End Sub

    Public Sub tutupkoneksi()
        If conn.State = ConnectionState.Open Then

            Try
                conn.Close()
            Catch ex As Exception
                MsgBox("Gagal menutup koneksi: " & ex.ToString)
            End Try

        End If
    End Sub
End Module

Catatan: Pada kode program sesuikan Data Source dengan nama PC sesuai PC anda dan sesuaikan dengan initial catalog dengan nama database yang temen-temen integrasikan.

Baca Juga:Cara Mudah Membuat Koneksi Vb.net Dengan Sql Server

Selanjutnya berikut ini adalah beberapa form beserta kode programnya;

Design Form Barang Vb.Net

Cara Simpan, Update, Delete, Dan Tampil Vb.Net

Berikut ini kode program  yang terdapat pada form barang:

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient

Public Class Form2
    Private Sub tampil()
        bukakoneksi()
        sql = "SELECT *  From Supplier"
        Dim da As New SqlDataAdapter(sql, conn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim dt As New DataTable
        For Each dt In ds.Tables
            DataGridView1.DataSource = dt
        Next
        tutupkoneksi()
    End Sub


    Private Sub btntampilsupplier_Click(sender As Object, e As EventArgs) Handles btntampilsupplier.Click
        tampil()
    End Sub

    Private Sub btnsimsup_Click(sender As Object, e As EventArgs) Handles btnsimsup.Click
        bukakoneksi()
        sql = "INSERT INTO Barang (Kdsup,Nmsup,Tgllhr,Alamatkantor,Telpkantor,Jekel,Email,jnsproduk) VALUES (" &
            "'" & txtkdsup.Text & "'," &
            "'" & txtnmsup.Text & "'," &
            "'" & txttgllahir.Text & "'," &
            "'" & txtalamatkantor.Text & "'," &
            "'" & txttelpkantor.Text & "'," &
            "'" & txtjekel.Text & "'," &
            "'" & txtemail.Text & "'," &
            "'" & txtjnsproduk.Text & "')"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("simpan berhasil")
        Catch ex As Exception
            MsgBox("simpan gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub

    Private Sub btnupsup_Click(sender As Object, e As EventArgs) Handles btnupsup.Click
        bukakoneksi()
        sql = "UPDATE Supplier SET " &
            "Nmsup='" & txtnmsup.Text & "'," &
            "Tgllhr='" & txttgllahir.Text & "'" &
            "Alamatkantor='" & txtalamatkantor.Text & "'" &
            "Telpkantor='" & txttelpkantor.Text & "'" &
            "Jekel='" & txtjekel.Text & "'" &
            "Email='" & txtemail.Text & "'" &
            "jnsproduk='" & txtjnsproduk.Text & "'" &
            "WHERE Kdsup='" & txtkdsup.Text & "'"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("ubah berhasil")
        Catch ex As Exception
            MsgBox("ubah gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub

    Private Sub btndelsup_Click(sender As Object, e As EventArgs) Handles btndelsup.Click
        bukakoneksi()
        sql = "DELETE FROM Supplier WHERE Kdsup='" & txtkdsup.Text & "'"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("hapus berhasil")
        Catch ex As Exception
            MsgBox("hapus gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub
End Class

Baca juga: Cara Mudah Menamampilkan Data Sql Server Dalam Datagridview vb.net

Kemudian Berikutnya adalah form supplier yang kurang lebih sama dengan form barang,

Design Form Supplier Vb.Net

Kode programnya adalah seperti berikut;

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form2
    Private Sub tampil()
        bukakoneksi()

        sql = "SELECT *  From Supplier"
        Dim da As New SqlDataAdapter(sql, conn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim dt As New DataTable
        For Each dt In ds.Tables
            DataGridView1.DataSource = dt
        Next
        tutupkoneksi()
    End Sub

    Private Sub btntampilsupplier_Click(sender As Object, e As EventArgs) Handles btntampilsupplier.Click
        tampil()
    End Sub

    Private Sub btnsimsup_Click(sender As Object, e As EventArgs) Handles btnsimsup.Click

        bukakoneksi()
        sql = "INSERT INTO Barang (Kdsup,Nmsup,Tgllhr,Alamatkantor,Telpkantor,Jekel,Email,jnsproduk) VALUES (" &

            "'" & txtkdsup.Text & "'," &
            "'" & txtnmsup.Text & "'," &
            "'" & txttgllahir.Text & "'," &
            "'" & txtalamatkantor.Text & "'," &
            "'" & txttelpkantor.Text & "'," &
            "'" & txtjekel.Text & "'," &
            "'" & txtemail.Text & "'," &
            "'" & txtjnsproduk.Text & "')"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("simpan berhasil")
        Catch ex As Exception
            MsgBox("simpan gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub

    Private Sub btnupsup_Click(sender As Object, e As EventArgs) Handles btnupsup.Click
        bukakoneksi()
        sql = "UPDATE Supplier SET " &
            "Nmsup='" & txtnmsup.Text & "'," &
            "Tgllhr='" & txttgllahir.Text & "'" &
            "Alamatkantor='" & txtalamatkantor.Text & "'" &
            "Telpkantor='" & txttelpkantor.Text & "'" &
            "Jekel='" & txtjekel.Text & "'" &
            "Email='" & txtemail.Text & "'" &
            "jnsproduk='" & txtjnsproduk.Text & "'" &
            "WHERE Kdsup='" & txtkdsup.Text & "'"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("ubah berhasil")
        Catch ex As Exception
            MsgBox("ubah gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub

    Private Sub btndelsup_Click(sender As Object, e As EventArgs) Handles btndelsup.Click

        bukakoneksi()
        sql = "DELETE FROM Supplier WHERE Kdsup='" & txtkdsup.Text & "'"
        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("hapus berhasil")
        Catch ex As Exception
            MsgBox("hapus gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub
End Class

Selanjutnya adalah form Pembelian,

Design Form Pembelian Vb.Net

Kode programnya seperti berikut:

Imports System.Data
Imports System.Data.Sql
Imports System.Data.SqlClient
Public Class Form3
    Private Sub tampil()
        bukakoneksi()
        sql = "SELECT *  From Pembelian"
        Dim da As New SqlDataAdapter(sql, conn)
        Dim ds As New DataSet
        da.Fill(ds)
        Dim dt As New DataTable
        For Each dt In ds.Tables
            DataGridView1.DataSource = dt
        Next
        tutupkoneksi()
    End Sub

    Private Sub btnsimpan_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnsimpem.Click
        bukakoneksi()

        sql = "INSERT INTO Pembelian (Nonota,kdbrg,Kdsup,tanggalbeli,jumlahbeli,hargabeli,total) VALUES (" &
            "'" & txtNonota.Text & "'," &
            "'" & txtkdbrg.Text & "'," &
            "'" & txtkdsup.Text & "'," &
            "'" & txttglbeli.Text & "'," &
            "'" & txtjmlbeli.Text & "'," &
            "'" & txthrgbeli.Text & "'," &
            "'" & txttotal.Text & "')"

        comSQL = New SqlCommand(sql, conn)
        

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("simpan berhasil")
        Catch ex As Exception
            MsgBox("simpan gagal: " & ex.ToString)
        End Try
        tutupkoneksi()
    End Sub

    Private Sub btntampilbeli_Click(sender As Object, e As EventArgs) Handles btntampilbeli.Click
        tampil()
    End Sub

    Private Sub btnuppem_Click(sender As Object, e As EventArgs) Handles btnuppem.Click
        bukakoneksi()
        sql = "UPDATE Pembelian SET " &
            "kdbrg='" & txtkdbrg.Text & "'," &
            "Kdsup='" & txtkdsup.Text & "'" &
            "tanggalbeli='" & txttglbeli.Text & "'" &
            "jumlahbeli='" & txtjmlbeli.Text & "'" &
            "hargabeli='" & txthrgbeli.Text & "'" &
            "total='" & txttotal.Text & "'" &
            "WHERE Nonota='" & txtNonota.Text & "'"

        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("ubah berhasil")
        Catch ex As Exception
            MsgBox("ubah gagal: " & ex.ToString)
        End Try
        tutupkoneksi()
    End Sub

    Private Sub btndelpem_Click(sender As Object, e As EventArgs) Handles btndelpem.Click
        bukakoneksi()
        sql = "DELETE FROM Pembelian WHERE Nonota='" & txtNonota.Text & "'"
        comSQL = New SqlCommand(sql, conn)

        Try
            comSQL.ExecuteNonQuery()
            MsgBox("hapus berhasil")
        Catch ex As Exception
            MsgBox("hapus gagal: " & ex.ToString)

        End Try
        tutupkoneksi()
    End Sub
End Class

Baca juga:Beberapa Tutorial dalam pembuatan database sql server

Baca juga : Konsep pemrograman terstruktur pada vb.net

Jadi begutu kurang lebihnya pembuatan Aplikasi CRUD menggunakan vb.net dengan memanfaatkan database sql server, semoga dapat membantu temen-temen jika sedang mencarinya.

Semoga bermanfaat buat temen-temen. Terimakasih untuk kunjungannya, jangan lupa bagikan atau tinggalkan komentar di bawah postingan untuk kemajuan artikel di blog ini.