Koneksi databe Mysql dengan Visual Basic 2008 | vb.net | koneksi database

MySQL dan Visual Basic .NET 2008

Posted by Andreas Toberick on 13 Mei 2012 in Pemprograman .NET

Melakukan koneksi menggunakan database MySQL pada Visual Basic .NET 2008. Silahkan anda install terlebih dahulu perangkat berikut:

1. Install xampp terlebih dahulu.
2. Install driver odbc.

Ikuti langkah berikut:

1. Buka program xampp.

Xampp Control Panel

2. Buka browser anda dan ketik alamat address berikut https://127.0.0.1 atau https://localhost.

3. Selanjutnya kita akan masuk phpMyAdmin ketik address pada browser anda http://localhost/phpmyadmin.

Tampilan phpMyAdmin

4. Buat database baru.

Membuat Database

5. Buat tabel baru.

Membuat tabel

6. Mengisi field tabel.

Membuat Inputan Tabel

7. Memasukan isi tabel.

Mengisi tabel

Hasil Tabel

Pada tahap ini kita sudah berhasil membuat sebuah database menggunakan xampp dengan nama database “dblatihan” dan mempunyai satu buah tabel “buku“. Selanjutnya kita akan melakukan koneksi menggunakan vb.net 2008, perlu diingatkan kembali bahwa anda sudah menginstall odbc driver.

1. Buka Visual Basic .NET 2008

2. Buat project baru

New Project

3. Tambah DataGridView pada form.

DataGridView

4. Klik kanan pada ToolBox.

ToolBox

5. Cari komponen OdbcConnection .

Komponen .NET Framework

6. Tambah OdbcConnection pada form kerja.

ToolBox Data

7. Melakukan koneksi.

New Connection

Build

Memilih Data Source

Membuat Data Source

Membuat Data

Menyimpan Data

MySQL Konfigurasi

Hasil Konfigurasi

7. Selanjutnya berpindah pada jendela kode, tekan F7.

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23

Imports System.Data.Odbc Public Class Form1 Dim conn As OdbcConnection Dim da As OdbcDataAdapter Dim ds As DataSet Dim str As String Sub Koneksi() str = "Driver={MySQL ODBC 3.51 Driver};database=dblatihan;server=localhost;uid=root" 'hasil dari langkah konfigurasi yang tadi telah dilakukan conn = New OdbcConnection(str) conn.Open() End Sub Sub Tampilkan() da = New OdbcDataAdapter("Select * from buku", conn) ds = New DataSet da.Fill(ds, "buku") DGV.DataSource = ds.Tables("buku") End Sub Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load Call Koneksi() Call Tampilkan() End Sub End Class

8. Hasil Output.