» » » Fungsi Sederhana CRUD (Create, Read, Update, Delete) Di Visual Basic .NET/VB.NET - Part 1 (Database & Koneksi)

Fungsi Sederhana CRUD (Create, Read, Update, Delete) Di Visual Basic .NET/VB.NET - Part 1 (Database & Koneksi)

,

Halo Semuanya, Kali ini kita akan membuat Fungsi sederhana CRUD(Create, Read, Update, Delete) atau lebih dikenal dengan Simpan, Tampil, Ubah, Hapus. Pada tutorial kali ini fungsi CRUD pada VB.Net sama halnya dengan fungsi CRUD pada MySql, MSql, Access Database, Maupun pada Database Management System (DBMS) Lainnya. Untuk kali ini saya akan membahas Fungsi CRUD pada VB.Net, untuk seterusnya mungkin saya akan membuat tutorial-tutorial lainnya. Oke Langsung Aja DISIMAK!!!.

 Sebelum memulai pengkodingan, saya akan menunjukkan beberapa aplikasi ataupun komponen-komponen yang diperlukan dalam tutorial ini. Adalah :

1. Visual Studio Ultimate 2012 Download Disini
2. XAMPP versi terbaru Download Disini
3. MySQL .NET Connector 6.6.5 (Disesuaikan dengan versi Visual Studio) Download Disini

Setelah semuanya didownload & diinstall, kemudian buka XAMPP kamu lalu klik tombol Start pada Mysql & Apache dan buat sebuah database baru. Untuk lebih jelasnya bisa Copy Paste Syntax SQL dibawah ini lalu simpan dengan ekstensi '.sql' .

-- MySQL dump 10.13  Distrib 5.5.36, for Win32 (x86)
--
-- Host: localhost    Database: test
-- ------------------------------------------------------
-- Server version 5.5.36

/*!40101 SET @OLD_CHARACTER_SET_CLIENT=@@CHARACTER_SET_CLIENT */;
/*!40101 SET @OLD_CHARACTER_SET_RESULTS=@@CHARACTER_SET_RESULTS */;
/*!40101 SET @OLD_COLLATION_CONNECTION=@@COLLATION_CONNECTION */;
/*!40101 SET NAMES utf8 */;
/*!40103 SET @OLD_TIME_ZONE=@@TIME_ZONE */;
/*!40103 SET TIME_ZONE='+00:00' */;
/*!40014 SET @OLD_UNIQUE_CHECKS=@@UNIQUE_CHECKS, UNIQUE_CHECKS=0 */;
/*!40014 SET @OLD_FOREIGN_KEY_CHECKS=@@FOREIGN_KEY_CHECKS, FOREIGN_KEY_CHECKS=0 */;
/*!40101 SET @OLD_SQL_MODE=@@SQL_MODE, SQL_MODE='NO_AUTO_VALUE_ON_ZERO' */;
/*!40111 SET @OLD_SQL_NOTES=@@SQL_NOTES, SQL_NOTES=0 */;

--
-- Table structure for table `dbtest`
--

DROP TABLE IF EXISTS `dbtest`;
/*!40101 SET @saved_cs_client     = @@character_set_client */;
/*!40101 SET character_set_client = utf8 */;
CREATE TABLE `dbtest` (
  `id` int(11) NOT NULL AUTO_INCREMENT,
  `nama` varchar(25) DEFAULT NULL,
  `alamat` text,
  `sekolah` varchar(50) DEFAULT NULL,
  PRIMARY KEY (`id`)
) ENGINE=InnoDB DEFAULT CHARSET=latin1;
/*!40101 SET character_set_client = @saved_cs_client */;

--
-- Dumping data for table `dbtest`
--

LOCK TABLES `dbtest` WRITE;
/*!40000 ALTER TABLE `dbtest` DISABLE KEYS */;
/*!40000 ALTER TABLE `dbtest` ENABLE KEYS */;
UNLOCK TABLES;
/*!40103 SET TIME_ZONE=@OLD_TIME_ZONE */;

/*!40101 SET SQL_MODE=@OLD_SQL_MODE */;
/*!40014 SET FOREIGN_KEY_CHECKS=@OLD_FOREIGN_KEY_CHECKS */;
/*!40014 SET UNIQUE_CHECKS=@OLD_UNIQUE_CHECKS */;
/*!40101 SET CHARACTER_SET_CLIENT=@OLD_CHARACTER_SET_CLIENT */;
/*!40101 SET CHARACTER_SET_RESULTS=@OLD_CHARACTER_SET_RESULTS */;
/*!40101 SET COLLATION_CONNECTION=@OLD_COLLATION_CONNECTION */;
/*!40111 SET SQL_NOTES=@OLD_SQL_NOTES */;

-- Dump completed on 2016-07-12 14:56:36

Setelah Syntax diatas disimpan dengan ekstensi .sql selanjutnya export ke server localhost MySQL kamu. Untuk cara export/undump database MySQL, kamu bisa lihat di postingan saya Disini.

Lalu, tambahkan referensi/komponen MySQL .NET Connector ke Visual Studio. Caranya, Klik kanan pada project kamu > add reference > cari "Mysql.Data" lalu, centang > Klik OK.

Langkah selanjutnya buka Visual Studio > New Project > "Buat Nama Project Kamu" > Klik OK. Lalu, buat sebuah Module baru caranya klik kanan pada project > Add > Module > Buat nama "Koneksidb". Setelah Module dibuat, lalu ketikkan coding berikut :

Imports MySql.Data.MySqlClient
Module Module1
    Dim koneksi As MySqlConnection
    Dim str As String

    Public Function conn() As MySqlConnection
        Try
            str = "server=localhost;user id=root;password=;database=test"
            koneksi = New MySqlConnection(str)
            MsgBox("Koneksi Database Berhasil", vbInformation)
            koneksi.Open()
        Catch ex As Exception
            MsgBox("Koneksi Database Gagal", vbCritical)
            koneksi.Close()
            Exit Try
        End Try
        Return Function
    End Function
End Module

Setelah disimpan (Ctrl + s) lalu kamu bisa mengetest koneksi database dengan cara mengklik tombol berwarna hijau atau dengan menekan tombol F5 pada keyboard. Jika module yang sudah dibuat berhasil maka akan tampil dialog box pesan "Koneksi Database Berhasil" jika tidak maka akan muncul "Koneksi Database Gagal". Jika gagal, coba perhatikan pada String MySqlConnection apakah ada kesalahan dalam pengetikan atau kesalahan pada nama/password server beserta databasenya karena tidak semua server sama. Misalkan server di komputer saya bernama localhost dengan IP 127.0.0.1 yang mungkin namanya berbeda di komputer kamu.

Oke, untuk database & koneksi sudah selesai. Silahkan simak tutorial-tutorial lain di postingan saya lainnya. Terima Kasih.
« Prev Post
First