Membuat Crud Vb .Net Database Sql Server

Membuat Aplikasi CRUD ( Create, Read, Update, Delete ) Visual Basic .Net Database SQL Server. Pada tutorial VB .NET kali ini aku akan melanjutkan Tutorial CRUD memakai VB .NET. Pada Tutorial sebelumnya aku sudah memperlihatkan pembelajaran CRUD VB .Net database Access dan MySQL. Bagi anda yang sedang menciptakan Aplikasi VB .NET dan Database SQL Server maka tutorial kali ini yaitu dasar dalam menciptakan sebuah Aplikasi. Fungsi ini sangat penting alasannya yaitu nantinya anda sanggup Input, Edit dan Delete di dalam Form VB .NET yang datanya tersimpan di database SQL Server.

Untuk sanggup mengikuti tutorial ini pastikan :

1. Anda sudah install Visual Basic .NET ( Jika belum punya, silahkan download disini )
2. Anda sudah install SQL Server ( Jika belum punya anda sanggup download disini )

Cukup 2 syarat diatas yang perlu anda install di Komputer anda.

Selanjutnya, konsep dasarnya yaitu : Kita buat Database dan Tabel pada SQL Server, mengkoneksikan database ke VB .NET, Kemudian Membuat Input, Edit dan Delete data.

#1. Membuat Database dan Tabel SQL Server

Silahkan buka database SQL Server anda
Buatlah database dengan nama : JNM_CRUD
Buatlah Tabel dengan nama : TBL_MAHASISWA
Field Tabelnya yaitu : NIM, NamaMahasiswa, JenisKelamin, AlamatMahasiswa dan TeleponMahasiswa.

Untuk menciptakan TBL_MAHASISWA dengan Koding, Silahkan gunakan Query dibawah :

use [DBTM]
CREATE TABLE [dbo].[TBL_MAHASISWA](
 [NIM] [varchar](6) NOT NULL,
 [NamaMahasiswa] [varchar](100) NULL,
 [JenisKelamin] [varchar](20) NULL,
 [AlamatMahasiswa] [varchar](100) NULL,
 [TeleponMahasiswa] [varchar](20) NULL,
 CONSTRAINT [PK_TBL_MAHASISWA] PRIMARY KEY CLUSTERED 
(
 [NIM] ASC
)WITH (PAD_INDEX  = OFF, STATISTICS_NORECOMPUTE  = OFF, IGNORE_DUP_KEY = OFF, ALLOW_ROW_LOCKS  = ON, ALLOW_PAGE_LOCKS  = ON) ON [PRIMARY]
) ON [PRIMARY]

GO

Dengan langkah diatas anda telah sukses menciptakan Database dan Tabel SQL Server

#2. Membuat Form VB .NET dan Input Data

Selanjutnya sehabis anda sukses menciptakan Database dan Tabel, kita akan input data memakai Form Visual Basic .NET.
Silahkan buka aplikasi Visual Basic .NET
Kemudian kalau sudah muncul Form1, silahkan buat design Form1 menyerupai gambar dibawah ini :

Dari Gambar diatas terdapat : Label1 hingga Label 5, TextBox1 sampaiTextBox4, ComboBox1, Button1 hingga Button4, dan DataGrudView1

Jika sudah menciptakan form diatas, dan sebelum menciptakan koding input. silahkan memunculkan tabel TBL_MAHASISWA dan Munculkan di DataGridView1

Silahkan masukan koding dibawah ini :

Imports System.Data.SqlClient
Public Class Form1
    Dim Conn As SqlConnection
    Dim Da As SqlDataAdapter
    Dim Ds As DataSet
    Dim Cmd As SqlCommand
    Dim RD As SqlDataReader
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "data source=JAVANET001;initial catalog=JNM_CRUD;integrated security =true"
        Conn = New SQLConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Sub KondisiAwal()
        Koneksi()
        Da = New SqlDataAdapter("Select * from TBL_MAHASISWA", Conn)
        Ds = New DataSet
        Ds.Clear()
        Da.Fill(Ds, "TBL_MAHASISWA")
        DataGridView1.DataSource = (Ds.Tables("TBL_MAHASISWA"))
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
        ComboBox1.Text = ""
        ComboBox1.Items.Clear()
        ComboBox1.Items.Add("PRIA")
        ComboBox1.Items.Add("WANITA")
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call KondisiAwal()
    End Sub
End Class

Dengan koding diatas, maka Kondisi Awal semua Form dalam keadaan Kosong dan Sudah terjadi koneksi TBL_MAHASISWA kedalam DataGridView1

Penampakannya yaitu menyerupai gambar dibawah ini :

Koding Input Data :
Silahkan Double Klik Tombol Input, dan masukan koding dibawah ini :

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or ComboBox1.Text = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Call Koneksi()
            Dim simpan As String = "insert into TBL_MAHASISWA values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & ComboBox1.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
            Cmd = New SqlCommand(simpan, Conn)
            Cmd.ExecuteNonQuery()
            MsgBox("Input data berhasil")
            Call KondisiAwal()
        End If
    End Sub

Untuk Membuktikan sanggup Input, silahkan anda Run atau Jalankan Project VB .NET anda

#3. Edit Data VB .NET Database SQL Server

Jika Input data sudah berhasil maka kita akan melanjutkan dalam Edit Data didalam Database.
Sebelum anda menciptakan koding di Tombol Edit, maka anda harus memunculkan data yang akan anda update terlebih dahulu.
Berikut kodingnya :

    Private Sub TextBox1_KeyPress1(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles TextBox1.KeyPress
        TextBox1.MaxLength = 6
        If e.KeyChar = Chr(13) Then
            Call Koneksi()
            Cmd = New SqlCommand("Select * From TBL_MAHASISWA  where NIM='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("NIM Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NamaMahasiswa")
                TextBox3.Text = RD.Item("AlamatMahasiswa")
                TextBox4.Text = RD.Item("TeleponMahasiswa")
                ComboBox1.Text = RD.Item("JenisKelamin")
                TextBox2.Focus()
            End If
        End If
    End Sub

Arti koding diatas :
Silahkan masukan NIM pada TextBox1, kalau sudah memasukan NIM maka silahkan tekan ENTER pada Keyboard
Jika NIM pada TextBox1 tidak ada databnya, maka munculkan MsgBox 
Jika NIM pada TextBox1 terdapat pada TBL_MAHASISWA maka munculkan data Mahasiswa

Jika sudah muncul data mahasiswa, silahkan anda edit data, Contoh Nama diganti dengan benar. Jika sudah masukan koding Edit dibawah pada Tombol Edit :

     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim edit As String = "update TBL_MAHASISWA set NamaMahasiswa='" & TextBox2.Text & "',AlamatMahasiswa='" & TextBox3.Text & "',TeleponMahasiswa='" & TextBox4.Text & "',JenisKelamin='" & ComboBox1.Text & "' where NIM='" & TextBox1.Text & "'"
        Cmd = New SqlCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
        Call KondisiAwal()
    End Sub

Untuk pertanda anda sanggup Edit data, silahkan jalankan Project anda

#3. Hapus Data VB .NET Database SQL Server

Yang terakhir dalam menciptakan Aplikasi CRUD yaitu Delete atau Hapus Data. Untuk hapus data konsepnya hampir sama dengan Edit data, dimana anda harus menentukan data yang akan dihapus lalu anda klik Button Hapus.
Silahkan double klik button hapus, lalu masukan koding dibwah ini :

   Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If TextBox1.Text = "" Then
            MsgBox("Silahkan Pilih Data yang akan di hapus dengan Masukan NIM dan ENTER")
        Else
            If MessageBox.Show("Yakin akan dihapus..?", "", MessageBoxButtons.YesNo) = Windows.Forms.DialogResult.Yes Then
                Call Koneksi()
                Dim CMD As SqlCommand
                Dim hapus As String = "delete From TBL_MAHASISWA  where NIM='" & TextBox1.Text & "'"
                CMD = New SqlCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
                MsgBox("Data Berhasil diHapus")
                Call KondisiAwal()
            End If
        End If
    End Sub
    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        End
    End Sub

Silahkan tekan F5 atau Jalankan Project anda.
Dengan langkah diatas seharusnya anda sudah sanggup menciptakan Aplikasi CRUD VB .NET database SQL Server.
Adapun untuk menyempurnakan Aplikasi CRUD diatas, anda harus memvalidasi sebuah form Mahasiswa, diantaranya :

1. Nomor NIM dibentuk otomatis
2. Semua Field terdapat Validasi Berapa Digit Karakter
3. Jika Edit dan Hapus, TextBox1 harus dalam kondisi disable ( Tidak Boleh diedit )
4.  dan lain sebagainya

Demikian Membuat Aplikasi CRUD VB .Net Database SQL Server, agar bermanfaat...
Silahkan KLIK DISINI untuk download Project CRUD diatas..

Share this post