TUTORIAL VISUAL STUDIO BASIC.NET #PART 1

Master Project

Aplikasi Pemrograman III
VB. NET 2012

ROJIKIN

Modul Koneksi

Buat Database Untuk Master Project

Cara membuat database anda bisa menggunakan :

ü  XAMPP

ü  HEIDI SQL

ü  NAVICAT, dll

Disini saya contohkan menggunakan  xampp / http://localhost/phpmyadmin

§  Buat Database dengan nama simpan_pinjam

§  Buat tabel user_akses dengan field-field seperti berikut:

§  Isikan data pada tabel user akses  seperti gambar berikut :

Klik tabel user_akses à insert à Go

Setelah database sudah dibuat  kita masuk ke aplikasi VB.NET nya

MEMBUAT PROJECT BARU

ü  Buka Visual Studio 2012, pilih New Project

ü  Buat project baru dengan nama PROJECT_VB

Klik new project à buat nama koperasi_simpan_pinjam à Ok

Menambahkan Reference

ü  Tambahkan reference agar dapat terhubung ke database (klik menu Project lalu klik Add Reference)

Menambahkan Reference

ü  Pada jendela Reference Manager klik Browse di bagian bawah

ü  Arahkan ke folder C:\Program Files\MySQL\v4.5 atau C:\Program Files(x86)\MySQL\v4.5 (silahkan di cari saja menyesuaikan)

ü  Pilih reference dengan nama Mysql.Data.dll lalu klik Add

Membuat Module Koneksi

ü  Tambahkan Module (klik kanan di Solution simpan_pinjam_koperasi  lalu pilih Add  à  Module)

ü  Ketik seperti di bawah ini

ü  Simpan data tersebut dengan cara Ctrl + S

'mengimport reference mysql

Imports MySql.Data.MySqlClient

Module Module1

    'membuat variabel-variabel koneksi

    Public conn As MySqlConnection

    Public cmd As MySqlCommand

    Public rd As MySqlDataReader

    Public da As MySqlDataAdapter

    Public ds As DataSet

    Public str As String

    Dim dr As DataRow

    Dim data As DataTable

    Dim cb As MySqlCommandBuilder

    'membuat prosedur koneksi ke database

    Sub koneksi()

        Try

            Dim str As String = "server=localhost;user id=root;password=;database=simpan_pinjam"

            conn = New MySqlConnection(str)

            If conn.State = ConnectionState.Closed Then

                conn.Open()

            End If

        Catch ex As Exception

            MessageBox.Show(ex.Message)

        End Try

    End Sub

End Module

UNTUK TUTORIAL SELANJUTNYA  KLIK  NEXT