Cara Buat CRUD VB Net dan ODBC MYSQL - Koneksi dan Database

08 October 2020 05:34 6356 View

Hallo teman-teman di kesempatan kali ini saya akan menjelaskan cara membuat sebuah CRUD (Create Read Update dan Delete) atau di dalam bahasa Indonesia simpan, edit dan hapus di visual basic.Net 2010 dengan database MySQL dan Connector ODBC

Terlebih dahulu teman-teman bisa siapkan Tools ini
1.    Anda sudah menginstall Visual Basic atau Visual Studio 2010 atau versi baru
2.    Anda sudah menginstall database MysQL XAMPP
3.    Anda sudah menginstall Connector MySQL ODBC

Jika tools diatas belum ada harap download terlebih dahulu disini

Langkah - 1 Jalankan XAMPP

Pastikan Apache actionnya posisi Stop dan MySQL stop

Setelah Apache dan MysQL dalam keadaan running seperti gambar diatas,

Langkah - 2 Buat Database

Jika sudah silahkan buka browser anda. Kemudian masuk ke PHP MyAdmin : http://localhost/phpmyadmin/
Maka akan muncul tampilan dibawah ini :

Langkah - 3 Import Database

Jika sudah memiliki database yang di download di GITHUB jika tidak harap jalankan query dibawah ini di menu SQL

-- phpMyAdmin SQL Dump
-- version 4.9.0.1
-- https://www.phpmyadmin.net/
--
-- Host: 127.0.0.1
-- Waktu pembuatan: 08 Okt 2020 pada 07.03
-- Versi server: 10.4.6-MariaDB
-- Versi PHP: 7.3.8

SET SQL_MODE = "NO_AUTO_VALUE_ON_ZERO";
SET AUTOCOMMIT = 0;
START TRANSACTION;
SET time_zone = "+00:00";


/*!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 utf8mb4 */;

--
-- Database: `crud_vbnet`
--

-- --------------------------------------------------------

--
-- Struktur dari tabel `tbl_biodata`
--

CREATE TABLE `tbl_biodata` (
  `KODE` int(11) NOT NULL,
  `NAMA` varchar(50) NOT NULL,
  `ALAMAT` varchar(100) NOT NULL
) ENGINE=InnoDB DEFAULT CHARSET=latin1;

--
-- Dumping data untuk tabel `tbl_biodata`
--

INSERT INTO `tbl_biodata` (`KODE`, `NAMA`, `ALAMAT`) VALUES
(8, 'DELISMAN HULU', 'JLN GAHARU MEDAN NO.2'),
(11, 'AFRNI GEA', 'TERERERER');

--
-- Indexes for dumped tables
--

--
-- Indeks untuk tabel `tbl_biodata`
--
ALTER TABLE `tbl_biodata`
  ADD PRIMARY KEY (`KODE`);

--
-- AUTO_INCREMENT untuk tabel yang dibuang
--

--
-- AUTO_INCREMENT untuk tabel `tbl_biodata`
--
ALTER TABLE `tbl_biodata`
  MODIFY `KODE` int(11) NOT NULL AUTO_INCREMENT, AUTO_INCREMENT=12;
COMMIT;

/*!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 */;

Jika sudah selesai pastikan struktur tabel nya seperti gambar di bawah ini

Langkah - 4 Buat Koneksi ODBC

Di langkah ini pastikan sudah instal Connector ODBC dan lalu cari start ketik ODBC seprti gambar dibawah ini dan pilih versi odbc anda disini saya menggunkan windows 10 64 bit

Jika sudah di klik ODBC maka muncul tampilan seperti ini

Lalu Klik Add untuk menambahkan data source DNS dan muncul tampilan seperti gambar di bawah ini

Lau cari Mysql ODBC 3.51 Driver tapi harap sesuikan dengan versi ODBC anda jika sudah double klik maka muncul tampilan seperti dibawah ini.

Setelah siap di ini form koneksinya lalu Ok

Langkah - 5 Buat Koneksi di VB.Net

Setelah buat koneksi di Connector ODBC lalu buatkan Project VB dan buat Module dan klik Button Add

Setelah di buat Add lalu buatkan koneksi dibawah ini namun di bagian DNS=CRUD_VBNET pastikan sudah sesuai dengan nama yang di buat di Connetor ODBC

Imports System.Data.Odbc
Module Module1

    Public Konek As OdbcConnection
    Public DA As OdbcDataAdapter
    Public DR As OdbcDataReader
    Public DS As DataSet
    Public CMD As OdbcCommand

    Sub KonekDB()
        Try
            Konek = New OdbcConnection("DSN=CRUD_VBNET;MultipleActiveResultSets=True")
            If Konek.State = ConnectionState.Closed Then
                Konek.Open()
            End If
        Catch ex As Exception
            MsgBox("Koneksi Gagal", vbExclamation, "Koneksi Gagal")
        End Try
    End Sub
End Module

Jika sudah siap ikut langkah-langkah diatas maka sekarang kita akan buat design FORM CRUD.

Tutorial CRUD - Cara Buat CRUD VB Net dan ODBC MySQL - Simpan Edit dan Hapus

Semoga berhasil dan dapat mengikuti tutorial ini. Terimakasih