Membuat CRUD VB .Net Database SQL Server

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Membuat Aplikasi CRUD ( Create, Read, Update, Delete ) Visual Basic .Net Database SQL Server. Pada tutorial VB .NET kali ini saya akan melanjutkan Tutorial CRUD menggunakan VB .NET. Pada Tutorial sebelumnya saya sudah memberikan pembelajaran CRUD VB .Net database Access dan MySQL. Bagi anda yang sedang membuat Aplikasi VB .NET dan Database SQL Server maka tutorial kali ini adalah dasar dalam membuat sebuah Aplikasi. Fungsi ini sangat penting karena nantinya anda bisa Input, Edit dan Delete di dalam Form VB .NET yang datanya tersimpan di database SQL Server.

Untuk bisa 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 bisa download disini )

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

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

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU

#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 adalah : NIM, NamaMahasiswa, JenisKelamin, AlamatMahasiswa dan TeleponMahasiswa.

Untuk membuat 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 membuat Database dan Tabel SQL Server

#2. Membuat Form VB .NET dan Input Data

Selanjutnya setelah anda sukses membuat Database dan Tabel, kita akan input data menggunakan Form Visual Basic .NET.
Silahkan buka aplikasi Visual Basic .NET
Kemudian jika sudah muncul Form1, silahkan buat design Form1 seperti gambar dibawah ini :

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

Jika sudah membuat form diatas, dan sebelum membuat 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

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU

Penampakannya adalah seperti 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 bisa 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 membuat 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, jika 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 membuktikan anda bisa Edit data, silahkan jalankan Project anda

#3. Hapus Data VB .NET Database SQL Server

Yang terakhir dalam membuat Aplikasi CRUD adalah Delete atau Hapus Data. Untuk hapus data konsepnya hampir sama dengan Edit data, dimana anda harus memilih data yang akan dihapus kemudian anda klik Button Hapus.
Silahkan double klik button hapus, kemudian 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 bisa membuat Aplikasi CRUD VB .NET database SQL Server.
Adapun untuk menyempurnakan Aplikasi CRUD diatas, anda harus memvalidasi sebuah form Mahasiswa, diantaranya :

1. Nomor NIM dibuat 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

Link Video di Youtube :

https://www.youtube.com/watch?v=CHfaBSwlXyU

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

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Artikel Tips Trik Android

Membuat CRUD VB .NET Database Access ACCDB

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Pada tutorial Visual Basic kali ini akan dibahas mengenai cara mudah membuat CRUD Visual Basic Database Access .ACCDB ( Microsoft Office Access ACCDB adalah extension sebuah file access yang bisa dibuat Office 2007 keatas) anda bisa membuat database access ACCDB dengan microsoft Office 2007, 2010, 2013, 2015 ataupun Office 2016.

Apa itu CRUD VB .NET ? CRUD adalah singkatan dari Create, Read, Update dan Delete. Bahasa CRUD sudah banyak dipakai dikalangan Pemograman dimana dasar dalam membuat aplikasi berbasis database adalah dengan CRUD. Arti secara umum CRUD VB .NET adalah membuat form Input, Edit dan Hapus data didalam database menggunakan Visual Basic .NET.

Berikut langkah Membuat Input, Edit dan Hapus Visual Basic .NET database Access .ACCDB

#1. Membuat Form CRUD Dengan Visual Basic .NET

Silahkan buka Visual Studio anda,
Klik File - New - Project

Silahkan lihat gambar diatas, berikut keterangannya :
1 : Pastikan anda memilih Visual Basic
2. Pilih Windows Form Application
3. Buat Namda Project contoh : CRUD VB NET Access ACCDB, kemudian anda simpan sesuai keinginan anda, saya menyimpannya di drive D
4. Klik OK

Jika sudah melakukan langkah diatas maka muncul seperti gambar dibawah :

Secara default, maka akan muncul Form1, anda tidak perlu merubah nama form, anda langsung membuat design Form1 seperti gambar dibawah :

Silahkan buat design form1 seperti gambar diatas, jika sudah maka tahap 1 sudah selesai, selanjutnya silahkan ikuti langkah ke 2

#2. Membuat Database dan Tabel Dengan Access ACCDB

Setelah anda sukses membuat design form1, maka anda harus membuat database dan Tabel
Buatlah Database dengan nama : DBJNM.accdb

Lihat gambar diatas, pada saat membuat DBJNM.accdb pastikan anda simpan di folder bin Debug
Kemudian pastikan save type nya adalah Access accdb
kemudian Klik OK

Silahkan buat Tabel dengan nama : TBL_BARANG
Berikut penampakan TBL_BARANG :

Seteleh membuat design TBL_BARANG, silahkan input secara manual terlebih dahulu untuk sample data :

Silahkan pastikan kembali :
1. Anda harus membuat database dan tabel
2. Kemudian simpan di folder bin debug
3. Kemudian masukan data sample seperti gambar diatas

#3. Membuat Koding Input, Edit, Delete Dengan VB .NET

Selanjutnya pada TAHAP 3 ini kita akan membuat koding Input, Edit dan Delete
Sebelum Input, Edit, dan Delete anda harus bisa mengkoneksikan database access accdb dan memunculkan TBL_BARANG tersebut pada DatagridView1
Sebenarnya sudah busatkan Cara Koneksi Database Access ACCDB pada tutorial lain
Kurang lebih kodingnya seperti berikut ini :

Imports System.Data.OleDb
Public Class Form1
    Dim Conn As OleDbConnection
    Dim da As OleDbDataAdapter
    Dim ds As DataSet
    Dim LokasiDB As String
    Sub Koneksi()
        LokasiDB = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=DBJNM.accdb"
        Conn = New OleDbConnection(LokasiDB)
        If Conn.State = ConnectionState.Closed Then Conn.Open()
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Koneksi()
        da = New OleDbDataAdapter("Select * from TBL_BARANG", Conn)
        ds = New DataSet
        ds.Clear()
        da.Fill(ds, "TBL_BARANG")
        DataGridView1.DataSource = (ds.Tables("TBL_BARANG"))
    End Sub
End Class 

Jika sudah anda bisa menjalankan atau running Project VB .NET anda

Jika anda sukses muncul seperti gambar diatas, artinya anda sudah sukses mengkoneksikan database access accdb dengan VB .NET.

Cara Input Data VB NET Access ACCDB

Langkah selanjutnya adalah kita akan meninput data kedalam dabase.
Double Klik Button1 atau Button Input, kemudian 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
            Dim CMD As OleDbCommand
            Call Koneksi()
            Dim simpan As String = "insert into TBL_BARANG values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
            CMD = New OleDbCommand(simpan, Conn)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
        End If
    End Sub

Jika sudah silahkan praktekan dengan run project anda. dan lakukan input data, berikut tampilannya :

Cara Edit Data VB NET Access ACCDB

Jika Input atau Insert data sudah selesai, selanjutnya anda harus membuat Edit Data TBL_BARANG.
Sebelum memberikan koding didalam Button Edit, yang harus anda lakukan andalah menampilkan data ketika memasukan Kode di form kode barang, setelah muncul data anda bisa edit data yang diinginkan kemudian anda klik tombol edit.
Berikut Kodingnya :
Koding Untuk Memunculkan Data Ketika Memasukan KodeBarang dan ENTER pada Keyboard

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()
            Dim CMD As OleDbCommand
            Dim RD As OleDbDataReader
            CMD = New OleDbCommand("Select * From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'", Conn)
            RD = CMD.ExecuteReader
            RD.Read()
            If Not RD.HasRows Then
                MsgBox("Kode Barang Tidak Ada, Silahkan coba lagi!")
                TextBox1.Focus()
            Else
                TextBox2.Text = RD.Item("NamaBarang")
                TextBox3.Text = RD.Item("HargaBarang")
                TextBox4.Text = RD.Item("JumlahBarang")
                ComboBox1.Text = RD.Item("SatuanBarang")
                TextBox2.Focus()
            End If
        End If
    End Sub

Kemudian koding dibawah untuk Button Edit atau Button2

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Call Koneksi()
        Dim CMD As OleDbCommand
        Dim edit As String = "update TBL_BARANG set NamaBarang='" & TextBox2.Text & "',HargaBarang='" & TextBox3.Text & "',JumlahBarang='" & TextBox4.Text & "',SatuanBarang='" & ComboBox1.Text & "' where KodeBarang='" & TextBox1.Text & "'"
        CMD = New OleDbCommand(edit, Conn)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
    End Sub

Silahkan di praktekan, seharusnya dengan langkah diatas anda sudah bisa Edit data TBL_BARANG

Cara Hapus atau Delete Data VB NET Access ACCDB

Jika anda sudah bisa Read atau Koneksi database, Create atau Input data, Update atau mengubah data, terakhir adalah Delete atau penghapusan data, sehingga CRUD menjadi lengkap.
Berikut koding untuk Button3 atau Button Hapus.

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 OleDbCommand
                Dim hapus As String = "delete From TBL_BARANG  where KodeBarang='" & TextBox1.Text & "'"
                CMD = New OleDbCommand(hapus, Conn)
                CMD.ExecuteNonQuery()
            End If
        End If
    End Sub

Silahkan anda praktekan sampai bisa menghapu data didalam database atau TBL_BARANG. Jika sudah berhasil semua maka proses pembuatan CRUD VB .NET database Access ACCDB selesai, namun untuk Button4 atau Button Tutup masih belum diberikan koding.
Anda bisa Double Klik Button Tutup kemudian masukan koding END
Sangat mudah dan simple dalam membuat CRUD Visual Basic .NET database Access ACCDB

Demikian Tutorial singkat dalam Membuat CRUD VB .NET Database Access ACCDB, semoga bermanfaat untuk anda. Jangan lupa anda bisa share tutorial ini ke rekan anda, dan anda bisa berkomentar dibawah. Ikuti terus Tutorial VB .NET atau Tutorial CRUD lainnya.

Silahkan KLIK DISINI Untuk Download Project CRUD VB .NET diatas

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Artikel Tips Trik Android

Membuat CRUD Visual Basic .NET Database MySQL

Jangan lupa membaca artikel sebelumnya, yaitu > Panduan Pemrograman Pemula.

Pada pembelajaran kali ini akan bahas mengenai cara membuat CRUD ( cread, read, update and delete) atau bahasa indonesianya Input, Edit, Delete Visual Basic .NET database Menggunakan MysQL.

Syarat Mengikuti Tutorial ini :
1.    Anda sudah menginstall Visual Basic atau Visual Studio ( Boleh Versi Apapun)
2.    Anda sudah menginstall database MysQL ( Saya menggunakan Xampp)
3.    Anda sudah menginstall Connector MySQL to VB ( Jika anda belum silahkan download di  menu Download web JNM ini )

Jika syarat diatas sudah dipenuhi berikut langkahnya :

LANGKAH 1 : Membuat Database dan Tabel Menggunakan MySQL

Langkah ini wajib dilakukan ya, karena jika tidak ada database dan tabel maka anda tidak bisa melakukan CRUD
Silahkan buka Xampp Control Panel :

Pastikan Apache dan MysQL dalam keadaan running seperti gambar diatas,
Jika sudah silahkan buka browser anda. Kemudian masuk ke PHP MyAdmin : http://localhost/phpmyadmin/
Maka akan muncul tampilan dibawah ini :

Silahkan anda klik new seperti yang saya beri kotak warna merah
Buat database dengan nama : dbjnm
Jika database sudah terbuat, silahkan buat tabel dengan nama tbl_mahasiswa

CREATE TABLE `tbl_mahasiswa` (
  `nimmhs` varchar(6) NOT NULL,
  `namamhs` varchar(100) DEFAULT NULL,
  `alamatmhs` varchar(100) DEFAULT NULL,
  `teleponmhs` varchar(20) DEFAULT NULL,
  `jurusanmhs` varchar(50) DEFAULT NULL
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
ALTER TABLE `tbl_mahasiswa` ADD PRIMARY KEY (`nimmhs`);
INSERT INTO `tbl_mahasiswa` (`nimmhs`, `namamhs`, `alamatmhs`, `teleponmhs`, `jurusanmhs`) VALUES
('NIM001', 'Agus Masaid', 'JL Durian No 44', '02111111', 'Sastra'),
('NIM002', 'Bilqis Maimunah', 'JL Mangga No 56', '02122222', 'Ekonomi'),
('NIM003', 'Wahyu Adi', 'Jl Salak No 77', '0213333333', 'Sastra'),
('NIM004', 'Cahya Istiqomah', 'JL Anggur No 56', '021444444', 'Hukum'),
('NIM005', 'Alin Arfianti', 'JL Duku No 56', '02155555', 'Management');

Fungsi diatas adalah fungsi SQL, jadi membuat tabel pada mysql menggunakan koding bukan cara manual.
Saya sudah membahasnya di website JNM di link ini : http://www.javanetmedia.com/2017/04/membuat-database-dan-tabel-mysql.html

Jika anda sudah menjalankan koding diatas, maka hasilnya adalah sebagai berikut :

Gambar diatas, sudah terdapat tbl_mahasiswa didalam database dbjnm

Link Video di Youtube :

https://www.youtube.com/watch?v=egWMzIK2Nqs

LANGKAH 2 : Membuat Form Visual Basic .NET dan Kodingnya

Jika anda telah berhasil membuat database dan tabel menggunakan MySQL kini saatnya kita membuat
Silahkan buka Software Visual Basic .NET anda
Buat sebuah form seperti gambar dibawah ini :

Keterangan Gambar :
Nama Form : Form1
1 : Textbox1, 2 : Textbox2, 3 : TextBox3, 4 : textbox4, 5 : ComboBox1, 6 : Button1, 7: Button2, 8: Button3, 9 : Button4, Terakhir no 10 : DatagridView1

#1. Membuat Koding Koneksi Database :
Berikut adalah koding untuk mengkoneksikan kedatabase dbjnm dan memunculkan list tbl_mahasiswa pada Datagridview1

Imports System.Data.Odbc
Public Class Form1
    Dim CONN As OdbcConnection
    Dim CMD As OdbcCommand
    Dim DS As New DataSet
    Dim DA As OdbcDataAdapter
    Dim RD As OdbcDataReader
    Dim LokasiData As String
    Sub Koneksi()
        LokasiData = "Driver={MySQL ODBC 3.51 Driver};Database=dbjnm;server=localhost;uid=root"
        CONN = New OdbcConnection(LokasiData)
        If CONN.State = ConnectionState.Closed Then
            CONN.Open()
        End If
    End Sub
    Sub TampilGrid()
        Call Koneksi()
        DA = New OdbcDataAdapter("select * From tbl_mahasiswa ", CONN)
        DS = New DataSet
        DA.Fill(DS, "tbl_mahasiswa")
        DataGridView1.DataSource = DS.Tables("tbl_mahasiswa")
        DataGridView1.ReadOnly = True
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Call TampilGrid()
    End Sub
End Class

Jika anda sudah memasukan koding di Form1 maka hasilnya adalah sebagai berikut :

Jika anda belum bisa membuat koneksi tbl_mahasiswa seperti gambar diatas, anda tidak boleh melanjutkan tutorial selanjutnya. Jika masih error, silahkan cari sampai bisa.

Kemudian jika anda sudah bisa memunculkan data tbl_mahasiswa seperti gambar diatas, mari lanjutkan tutorilnya :
Ceritanya pada combo jurusan kita akan menampilkan Jurusan yang diinginkan. Contoh saya akan membuat list jurusan ada 4 yaitu : Sastra, Ekonomi, Hukum dan Management.
Berikut langkahnya :
Pertama buat Sub dengan nama MunculCombo, kemudian masukan koding items.add :

Sub MunculCombo()
        ComboBox1.Items.Add("Sastra")
        ComboBox1.Items.Add("Ekonomi")
        ComboBox1.Items.Add("Hukum")
        ComboBox1.Items.Add("Management")
End Sub

Silahkan jalankan Project anda seharusnya sudah muncul  list Jurusan pada pada Form1
Sebelum anda membuat koding Input data, sebaiknya anda membuat Sub KosongkanData Terlebih dahulu :

Sub KodongkanData()
        TextBox1.Text = ""
        TextBox2.Text = ""
        TextBox3.Text = ""
        TextBox4.Text = ""
End Sub

#2. Membuat koding Input Data :
Untuk membuat koding Input data, silahkan Double Klik pada Button1. Kemudian 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 = "" Then
            MsgBox("Silahkan Isi Semua Form")
        Else
            Call Koneksi()
            Dim simpan As String = "insert into tbl_mahasiswa values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "','" & ComboBox1.Text & "')"
            CMD = New OdbcCommand(simpan, CONN)
            CMD.ExecuteNonQuery()
            MsgBox("Input data berhasil")
            Call TampilGrid()
            Call KosongkanData()
        End If
    End Sub

Selanjutnya silahkan anda jalankan atau runningkan Input data yang sudah dibuat diatas
Jika sudah bisa Input silahkan dilanjut ke tahap Edit data

#3. Edit Data di TBL_MAHASISWA
Selanjutnya kita akan membuat edit data. Saya akan menggunakan KeyPress dimana sebelum edit data, kita akan memunculkan data terlebih dahulu, dengan memasukan NIM kemudian di ENTER , jika sudah muncul data maka kita akan update data tersebut.

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 OdbcCommand("Select * From tbl_mahasiswa  where NIMMHS='" & 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("namamhs")
                TextBox3.Text = RD.Item("alamatmhs")
                TextBox4.Text = RD.Item("teleponmhs")
                ComboBox1.Text = RD.Item("jurusanmhs")
                TextBox2.Focus()
                End If
            End If
    End Sub

Fungsi koding diatas untuk memunculkan data terlebih dahulu, Caranya masukan NIM pada TextBox1 contoh NIM001 kemudian ENTER

Setelah di ENTER silahkan Update data kemudian masukan koding dibawah ini pada tombol Update :

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 namamhs='" & TextBox2.Text & "',alamatmhs='" & TextBox3.Text & "',teleponmhs='" & TextBox4.Text & "',jurusanmhs='" & ComboBox1.Text & "' where nimmhs='" & TextBox1.Text & "'"
        CMD = New OdbcCommand(edit, CONN)
        CMD.ExecuteNonQuery()
        MsgBox("Data Berhasil diUpdate")
        Call TampilGrid()
        Call KosongkanData()
End Sub

Jika sudah diupdate maka Muncul pesan “Data Berhasil di Update” kemudian Call TampilGrid untuk Refresh Datagrid, dan KosongkanData untuk mengosongkan field-field yang ada di Form.

Link Video di Youtube :

https://www.youtube.com/watch?v=egWMzIK2Nqs

#4. Hapus Data di TBL_MAHASISWA
Selanjutnya yang terakhir, kita akan membuat koding untuk menghapus data. Untuk menghapus data kita akan menggunakan Keypress pada TextBox1 dimana sebelum kita menghapus data, kita akan memunculkan data mana yang akan kita hapus terlebih dahulu. Kemudian jika sudah ketemu akan kita hapus :
Karena kita sudah membuat Keypress diatas, maka kita langsung double klik pada Button3

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 hapus As String = "delete From tbl_mahasiswa  where nimmhs='" & TextBox1.Text & "'"
                CMD = New OdbcCommand(hapus, CONN)
                CMD.ExecuteNonQuery()
                Call TampilGrid()
                Call KosongkanData()
                End If
        End If
End Sub

Sampai disini, silahkan anda coba jalankan project anda, dan pastikan Input, Edit dan Hapus data sudah bisa semua. Selanjutnya jangan lupa untuk memberikan koding pada Button4 yaitu Close From.
Silahkan double klik pada Button4, kemudian anda cukup ketikan END

Demikian Tutorial Membuat CRUD Visual Basic .NET Database MySQL Semoga bermanfaat untuk anda, Ikuti terus pembelajaran Visual Basic dari JNM. Jangan lupa anda bisa Share Tutorial ini kepada teman anda yang membutuhkan dan Anda juga bisa request tutorial atau berkomentar dibawah.

Link Video di Youtube :

https://www.youtube.com/watch?v=egWMzIK2Nqs

Silahkan KLIK DISINI untuk download project diatas

Selain sebagai media informasi pemrograman, kami juga berbagi artikel terkait tips trik Android.

Artikel Tips Trik Android