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.

Password Cetak KHS- TGD-6MIA3

1)Buat kawan” yang ingin cetak KHS Semester 1-6

Monggo di cek password nya Di bawah ini

User Id      : NIRM Anda

Password : lihat di table bawah

2)Setelah Berhasil Login, anda Akan di minta untuk

Mengganti Password Baru

Agar privas Anda terjaga

Setelah anda ganti passwordnya jgn sampai lupa ya

Kalau lupa urusannya Mumet hahahah.....

Langsung Catat aja di notepad kawan”

Atau di noteHP, terserah deh d mana yg penting ingat

Sewaktu” pasti akan di perlukan.

3)Bingung Cari Menu Cetak KHS nya????

-Setelah Berhasil masuk/login

-Lihat dibagian kiri halaman pada WEB TGD

-Disitu tertera beberap Pilihan

-Tinggal Pilih deh, (semester1-6). Ok

4)belum berhasil Login hahah...

-jgn khawatir, kita coba lagi

-cek ulang NIRM anda dengan seksama

-cek ulang Password anda dengan detail

-jika di password  kawan” ada huruf seperti ini “Il”???

-bingung ka,  Itu i tau L? Hahah

-coba lagi dengan mengganti ( L dgn i  “atau”  i dgn L)     .oke

 

Semoga Berhasil... Kawan”...........

By: bobby perniko lase

bobbypernikolase@gmail.com